HTTP-Statuscode und Header auslesen

**stiftII**

//Sehe gerade das ich das Thema im falschen Bereich erstellt habe. Bitte verschieben, wenn möglich.

Hallo.

Über die Forensuche habe ich diesen Code gefunden(ein wenig abgeändert).

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TForm1.Button1Click(Sender: TObject);

var

  responseStream: TFileStream;

  ausgabe:String;

begin

 responseStream := TFileStream.Create('d:\test.txt',fmCreate);

  try

    IdHTTP1.get('http://google.de/');

  except

    on EIdHTTPProtocolException do

      ausgabe:='Fehler!'+#13#10 + IdHTTP1.ResponseText;

    // die anderen Fehler

    on E: Exception do

      ausgabe:='Auch ein Fehler (' + E.ClassName + ')!'+#13#10 + E.Message;

  end;//try

  if (Length(ausgabe)<1) then

    ausgabe:='OK, alles klar'+#13#10 + IdHTTP1.ResponseText;

  ShowMessage(ausgabe);

  responseStream.free;

end;

Ich möchte damit den http-statuscode, und dann, wenn notwendig den http header auslesen.

Beispiel: "http://google.de/"(ohne www) gibt den Statuscode "301 Moved Permanently" zurück, das bedeutet, dass die Website jetz an einer anderen Stelle zu finden ist, diese würde man im http-head finden.

Wenn ich allerdings "IdHTTP1.head('http://google.de/');" ausführe, gibt es immer nur eine "timeout" exception, und nicht den passenden head bereich ;/.

Was mache ich falsch ?, wie kann ich den head in ein string-arry, oder ähnlichem auslesen ?.

Hat sich soeben erledigt idhttp.redirect := true hat mein Problem gelöst

~stift

HTTP-Statuscode und Header auslesen

HTTP-Statuscode und Header auslesen

Forumregeln