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

[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) , haben nämlich genau das identische Problem gehabt