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