Internet Links herausfinden...

[GuybrushThreepwood]

Liebe Delphiler,

es gibt ja, wie ihr wisst, viele Seiten, die eine Dömäne haben. Nun möchte ich aber, durch ein Programm, dass ich vorhab selbst zu schreiben, herausfinden, wo er zugreift, auf den richtigen Link, nicht die Domäne. Also ungefähr so...

Ich geb www.cheatz.de

Und er listet mir auf, auf welche Datei und welchen Server er zugegriffen hat. Ungefähr so...

Zugriff auf: http://cheatz.spieletips.de/de/

Jo, nur leider habe ich keine Ahnung, wie ich abfragen kann, wo er gerade zugreift... Hat jemand ne Idee ?

Danke im voraus...

[Bernhard Geyer]

Idee:
Nimm die TWebBrowser-Komponente, Lade die erste URL mittels Navigate-Methode und werte die Events aus. Ich vermute im OnNavitageComplete (oder ähnlichen Events) bekommst Du mit, welche URL letzendlich geladen wurde.

[Tubos]

Vorteil der WebBrowser-Methode: jede Art von Weiterleitung wird berücksichtigt.

[GuybrushThreepwood]

Ich danke euch vielmals für den Tip :thumb: , werde es gleich mal versuchen, hoffe es klappt.

Guybrush Threepwood(Treibholz)

[GuybrushThreepwood]

Ich danke euch für die Lösung, und es klappt auch, aber nur teilweise... z.B. bei www.Google.de klappt es nicht, weiß jemand wieso ???

Mein Code sieht so aus:

Delphi-Quellcode:

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  If Key = VK_RETURN Then
  Begin
    WebBrowser1.Navigate(ComboBox1.Text);
  End;
end;

procedure TForm1.WebBrowser1NavigateComplete2(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
begin
  ComboBox1.Items.Add(URL);
end;

end.