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?

Zitat:

das ist der TimeOut von Windows.

Gut zu wissen.

Zitat:

Kannst Du den nicht in der Komponente zusetzen?

Man kann zwei verschiedene Timeouts setzen aber beide interessieren Windows nicht.

Wenn Windows wartet, dann wartet Windows. Erst wenn das mit der Warterei fertig ist, kannst Du im Programm reagieren, nur dass das dann sowieso schon reagiert.

Solange von Windows nix kommt, wird onWork nicht aufgerufen, da ja nicht "geworkt" wird. Von daher hilft es nichts, wenn man da Disconnect aufruft und/oder 'ne Exception wirft. OnWork eignet sich für Fortschrittsanzeigen ..., also alles, was man bei funktionierender Arbeit machen kann. Das ist beim TimeOut aber nicht gegeben.

Mir ist momentan kein Weg bekannt, wie man da "mal eben" rauskommt.

Eventuell dasda? http://smallbusiness.chron.com/chang...ons-45899.html

Eventuell mal mit windows internet timeout bei der Suchmaschine Deiner Wahl stöbern gehen.

In 'nem threadlosen Programm hab' ich das etwas unelegant gelöst:

Es gibt da 'nen Timer, im OnWorkBegin wird er eingeschaltet und im OnWorkEnd wieder ausgeschaltet. Der hat ein Interval von 15 Sekunden. Wenn er "zuschlägt" wird im Timerereignis sowas gemacht:

markieren

Delphi-Quellcode:

idhttp.Disconnect(True);
idhttp.IOHandler.InputBuffer.Clear;

Wenn Du den Timer und sein Ereignis mit in den Thread nehmen kannst, könnte das ja eventuell ein Lösungsansatz sein. Ob der gut ist, entscheiden bitte andere, mit Threads hab' ich es nicht so

Ein Ansatz zur Umsetzung ist aber eventuell garnicht so weit: Thread + Timer, Einbinden von TimerThread.pas bzw. im Ursprung: http://www.delphipraxis.net/1270100-post13.html

So ganz verstehe ich nicht was es mit " http://www.delphipraxis.net/181814-t...hread-pas.html " aufsich hat.

Für mich ist das nur ein TThread mit Events zum Warten statt mit einem Sleep(1234).

Wenn/da Indy bestimmt ReadFile und WriteFile für das Auslesen/Senden des TCP-Datenstroms verwendet, kann man sowas z.B. über
CancelIo, CancelIoEx oder CancelSynchronousIo aus jedem Thread unterbrechen.

Aber hier wartet es ja schon beim Öffnen der Verbindung (ala CreateFile oder so) und da gibt es keinen Abbruchbefehl, aber hier sollte man irgendwo auch den passenden Timeout einstellen können (denk ich mir).

Zitat von LTE5:

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

Dann prüf doch erstmal ob eine Internetverbindung besteht bevor du was mit GET machst.

Vielleicht bin ich nicht so schlau, aber wie soll man das konkret prüfen? Was er macht ist doch völlig legitim. Oder muss er vor dem Prüfen "ob eine Internetverbindung besteht" dann noch prüfen ob überhaupt eine Netzwerkkarte im PC steckt? Und davor prüfen ob ...