//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).
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