PHP Seite ansteuern und neue URL erhalten TIdHTTP

[Hallo_Thomas]

Hallo,
ich versuche einen HTTP-Server per Php-URL anzusteuern "http://www.FremdeSeite.php?code=irgendwas"
Nun werde ich im IE zu einem Bild weitergeleitet.

Wie kann ich diese neue URL auslesen(nicht im IE)?

[mkinzler]

Wirst du wirklich auf eine andere Seite weitergeleitet oder wird nur das Bild zurückgeliefert?

[Hallo_Thomas]

Meiner Meinung nach beides, im IE steht in der Adressleiste eine neue URL(mit *.gif Endung) & es wird ein Bildchen angezeigt.

[inherited]

Hol dir doch mal mit IdHTTP.Get die PHP-Seite und schau nach, ob der Inhalt irgendwie auf eine Datei verweißt.

[Hallo_Thomas]

Klappt irgendwie nicht
Fehlermeldung:"Ungültiges Argument zum Codieren des Datums"
String:=IdHTTP.Get([url]http://www.FremdeSeite.php?code=irgendwas[/url])

[arbu man]

String:=IdHTTP.Get('http://www.FremdeSeite.php?code=irgendwas'); ?


Edit: Jetzt hab ich doch " mit ' vertauscht arbeite zu viel mit php

[Hallo_Thomas]

@arbu man
Jaja, sorry das hat ich hier im Forum vergessen, aber die Fehlermeldung bleibt die selbe!!!

[Hallo_Thomas]

Also über den Code komme ich an die URL ran, aber das muss auch irgendwie mit Indy oder irgendwie anders gehen?

Delphi-Quellcode:

Form1.WebBrowser1.Navigate('http://www.FremdeSeite.php?code=irgendwas');
{Hier ein paar Sekunden warten, sonst Fehlermeldung}
Form1.Label1.Caption:=Form1.Webbrowser1.OleObject.Document.URL;

Nachtrag

HTTP-Status 301, kommt dann später noch als Meldung

[inherited]

http://www.delphipraxis.net/internal...ct.php?t=65072
(10!)

[Hallo_Thomas]

Das wäre meine Lösung;

Delphi-Quellcode:

procedure TForm1.Button4Click(Sender: TObject);
begin
  try {try um Fehlermeldung zu unterdrücken}
  IdHTTP.Get ('http://www.FremdeSeite.php?code=irgendwas'); 
  except
  end;
end;

procedure TForm1.IdHTTPWorkEnd(ASender: TObject; AWorkMode: TWorkMode);
begin
Label2.Caption:=IdHTTP.Response.Location;
end;