Mit dieser Unit erspare ich mir doppelten Code und erzeuge eine TIdHTTP-Instanz

zusammenfalten · markieren

Delphi-Quellcode:

unit HTTPObject;

interface

uses
 System.Classes, IdHTTP, IdSSLOpenSSL;

type
 THTTPObject = class(TIdHTTP)

 private
  IOHndl: TIdSSLIOHandlerSocketOpenSSL;
 public
  constructor Create(AOwner: TComponent);
  destructor Destroy; override;
 end;

implementation

constructor THTTPObject.Create(AOwner: TComponent);
begin
 inherited;

 IOHndl := TIdSSLIOHandlerSocketOpenSSL.Create(nil);
 Request.BasicAuthentication := True;
 HandleRedirects := False;
 IOHandler := IOHndl;
 ReadTimeout := 10000;
end;

destructor THTTPObject.Destroy;
begin
 IOHndl.Free;

 inherited;
end;

end.

markieren

Delphi-Quellcode:

aHTTP := THTTPObject.Create(nil);
try
 X := aHTTP.Get( --- );
finally
 aHTTP.Free;
end;

Obiger Aufruf ist in einem Thread.

Wie kann ich nun bei Programmbeendigung dieses Get() sofort unterbrechen?
Den Thread terminieren funktioniert leider nicht wegen dem Get() was noch am arbeiten ist.

http://www.delphipraxis.net/173890-w...gewaltsam.html

Tl;dr: Klar kannst du ihn, z.B. mit WinApi-Routinen hart abschießen. Aber man sollte das nicht tun. Wenn jemand in meinem Büro ist und ich meine Ruhe haben möchte bitte ich ihn auch freundlich den Raum zu verlassen und schieße ihm nicht einfach in den Kopf.

Es geht mir nicht um den Thread sondern um das IdHTTP.Get.

Die Suchmaschine meines Vertrauens meint man könne das OnWork -Event verwenden um dort dann abzubrechen, z.B. mittels Disconnect() oder Werfen einer Exception.

Aber das hast du sicher schon gesehen - Wird das Event nicht aufgerufen bei deinem hohen ReadTimeout wenn er einfach nur hängt?

Zitat:

Aber das hast du sicher schon gesehen - Wird das Event nicht aufgerufen bei deinem hohen ReadTimeout wenn er einfach nur hängt?

Noch nicht. Ich gucke gleich mal nach was passiert wenn ich Disconnect aufrufe.

Wie hoch sollte so ein Timeout denn gewöhnlich sein?

Einen Thread kann/darf man niemals von außen "beenden". Man muß immer dem Thread, bzw. dem Code darin, sagen, dass er sich beenden soll.
Die potentiellen Folgen wären sonst Deadlocks, Speicherlecks oder Schlimmeres.

Also TThread.Terminate und TThread.Terminated im Thread.
Und natürlich den "länger" wartenden Funktionen im Thread. (ebenfalls auf Terminated reagieren oder z.B. Terminate überschreiben und das da durchreichen)

Im genannten OnWork könntest du dann diese Anfrage prüfen, oder du suchst in TIdHTTP oder besser im TIdHTTP.IOHandler, ob es da einen Cancel-Befehl gibt.