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.

Einen Cancelbefehl gibt es nicht.
Das hier führt auch nicht zum Erfolg. Es dauert immer circa 19 Sekunden bis das Programm beendet wird.

zusammenfalten · markieren

Delphi-Quellcode:

type
 THTTPObject = class(TIdHTTP)

 private
  FCanceled: Boolean;
  IOHndl: TIdSSLIOHandlerSocketOpenSSL;
  procedure FOnWork(ASender: TObject; AWorkMode: TWorkMode; AWorkCount: Int64);
 public
  constructor Create(AOwner: TComponent);
  destructor Destroy; override;

 published
  property Canceled: Boolean read FCanceled write FCanceled;
 end;

implementation

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

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

 OnWork := FOnWork;
end;

procedure THTTPObject.FOnWork(ASender: TObject; AWorkMode: TWorkMode; AWorkCount: Int64);
begin
 if FCanceled then
  begin
   raise Exception.Create('Disconnect');

   Disconnect;
  end;
end;

markieren

Delphi-Quellcode:

aHTTP.Canceled := True;
_Thread.Terminate; // Wird respektiert: "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."

Hmm..

Zitat von LTE5:

markieren

Delphi-Quellcode:

procedure THTTPObject.FOnWork(ASender: TObject; AWorkMode: TWorkMode; AWorkCount: Int64);
begin
 if FCanceled then
  begin
   raise Exception.Create('Disconnect');

   Disconnect;
  end;
end;

Dir ist bewusst, dass das 'Disconnect' nach dem 'raise Exception..' nie zur Ausführung kommt?

Versuche mal ein Tausch.

(Ungetestet, nur so gelesen...)

Zitat:

Dir ist bewusst, dass das 'Disconnect' nach dem 'raise Exception..' nie zur Ausführung kommt?

Habe schon sämtliche Kombinationen durch. Selbst wenn das Disconnect ausgeführt wird muss ich diese 20 Sekunden warten.

Genau hier beim Head muss ich warten. Vollkommen egal welche URL ich eingebe. Bei Get muss ich ebenfalls warten.

Ich habe glaube ich vergessen zu erwähnen, dass ich nur warten muss wenn keine Internetverbindung besteht.

zusammenfalten · markieren

Delphi-Quellcode:

// Unit 1
aHTTP := THTTPObject.Create(nil);
try
 if UrlCheck(aHTTP, ---) = 200 then
  .....

// Unit 2
function UrlCheck(aHTTP: THTTPObject = nil; sUrl: string = ''): Integer;
begin
 Result := -1;

 try
  if sUrl <> '' then
   begin
    aHTTP.Head(sUrl);
    Result := aHTTP.Response.ResponseCode;
   end;
 except
  Result := GetLastError;
 end;
end;

Hallo,
das ist der TimeOut von Windows.
Kannst Du den nicht in der Komponente zusetzen?