TidHTTP -> Downloader in einem Thread

[Real-TTX]

Hallo Gemeinde,

Ich habe folgendes Problem in einem Thread :
Bei Beendes die Mainanwendung, während der Download im Thread läuft wird eine exception ausgelöst (zu 90% - nicht immer):
EIdSocketError : 'Socket Error #10093' und manchmal auch, noch einer den ich im moment nicht reproduzieren kann : "WSANOTINITIAL". Bin leider Ratlos...

Hier der Abschnitt :

Delphi-Quellcode:

      objStream.Position := 0;
      try
        repeat
          //if not Self.Terminated then <--- bringt leider nichts
          //begin

          if (Self.Info.Size - Self.Info.Downloaded) > conFileSplitSize then
          begin
            objHTTP.Request.Range := Format('%d-%d', [Self.Info.Downloaded, (Self.Info.Downloaded+conFileSplitSize-1)]);
          end else begin
            objHTTP.Request.Range := Format('%d-', [Self.Info.Downloaded]);
          end;
          objHTTP.Get(Self.Info.Name, objStream);// <-- Ich glaube immer wenn gerade Get aufgerufen wird und der Thread wird auf Terminated gesetzt, knallt es... :/

          Self.Info.Downloaded := Self.Info.Downloaded + conFileSplitSize;
          //end;
        until (Self.Info.Downloaded >= Self.Info.Size);
      except
        on e: Exception do begin
          ShowMessage('blub');
        end;
      end;
      if not Self.Terminated then objHttp.Request.Range := '';
    end;

Habe schon an jeder erdenklichen Stelle auf Terminated geprüft...

Nun, wie kann ich den Thread so beenden, dass der Fehler nicht auftritt... ?

Gruß, Real-TTX

[Blup]

Ich bin mir nicht sicher ob TidHTTP überhaupt threadsicher ist.
Wird objHTTP durch den Thread erzeugt und wieder freigegeben?

[Real-TTX]

Ja, wird er... :/

[Assertor]

Hi,

Zitat:

Zitat von Blup

Ich bin mir nicht sicher ob TidHTTP überhaupt threadsicher ist.

Ja, ist es. Gerade die Kombination von Blocking Sockets mit Threads macht wirklich Spaß - und ich verwendes es auch, ohne solche Fehler.

@Real-TTX: Gib doch bitte etwas mehr Code, wo wird die Fkt aufgerufen, wie und wo erstellst und beendest Du den Thread. Verwendest Du auch Suspend und Resume (böse!)?

Edit: Im IdHTTP.Get mit dem Stream wird es eher nicht knallen, denn TThread.Terminated setzt doch nur einen Boolean, den Du prüfst. Es wird der Thread ja nicht wirklich gezwungen sich zu beenden, IdHTTP Get kommt wegen des Blocking Socket erst nach vollständiger Ausführung (oder Timeout, Disconnect Exception o.ä.) zurück.

Edit2: Übrigens, Socket Fehler 10093 = WSANOTINITIALISED. Der Fehler wird von Windows geworfen, wenn Du den Socket über verschiedene Threads hinweg benutzt oder der Socket nicht initialisiert wurde. Wenn Du also Dein IdHTTP Objekt irgendwo außerhalb des Threads erstellst und z.B. vom Thread oder auch anderen Threads darauf zugreifst könnte der Fehler auftreten.

Zitat:

Zitat von Real-TTX

Delphi-Quellcode:

      objStream.Position := 0;
      try
        repeat
          //if not Self.Terminated then <--- bringt leider nichts
          ...
        until (Self.Info.Downloaded >= Self.Info.Size) or (Self.Terminated); // aber hier :)
      except
        on e: Exception do begin
          ShowMessage('blub');
        end;
      end;
      if not Self.Terminated then objHttp.Request.Range := '';
    end;

Gruß Assertor