TidHTTP-Komponente bringt Socket Error 57: Socket is not connected

[arnof]

ist vielleicht noch keine Internetverbindung da ?

Ich würde es so lösen das ich nicht gleich einen Fehler ausgeben würde sondern es einfach mehrfach versuchen würde. Wenn nach 3-5 sec noch nichts geht, dann kann mann immer noch einen Fehler ausgeben!

[RWarnecke]

Ich habe Internet, da ein Link der im Safari aufgerufen wird funktioniert.

[danielmagin]

Lösung:

Im Falle einer Exception muss Discconect(False) aufgerufen werden.

Delphi-Quellcode:

procedure TPraxisThread.Execute;
var
 sURL: string;
 s: string;

begin
  { Thread-Code hier einfügen }
 FIdHttp:=TIdHTTP.Create;
 FIdHttp.ReadTimeout:=20000;
 FIdHttp.ConnectTimeout:=2000;

  while not Terminated do
  begin

    surl:='http://www.google.de';
     try
      s:=FIdHttp.Get(surl);
     except on e:exception do
     begin
       FIdHttp.Disconnect(False);
     end;
     end;
    sleep(2000);
  end;

end;

Grüsse von Daniel (Magin) und Daniel (Wolf) :-D, haben nämlich genau das identische Problem gehabt