IdHTTP.Head hängt Programm auf

[Klaus01]

Guten Abend,

dieser Code:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  httpClient : Tidhttp;
begin
  httpClient := TIdHttp.Create(nil);
  try
    httpClient.HandleRedirects := true;
    httpClient.Head(edit1.text);
    memo1.Text:=httpClient.Response.ResponseText;
    memo1.Lines.add('ResponseCode: '+IntToStr(httpClient.Response.ResponseCode));
  finally
    httpClient.free;
  end;
end;

schreibt dieses in das Memo:

Zitat:

HTTP/1.1 200 OK
ResponseCode: 200

Wo bei Dir das Problem ist - ist mir zur Zeit ein Rätsel.

Edit: Zum Tracen kannst Du Wireshark verwenden.
Ich haben mal den Trace zum erfolgreichen Versuch angehängt.

Grüße
Klaus