Link von TwebBrowser bekommen

[wo0zy]

hi,

ich hab da mal ein problem:
ich schreibe gerade an einem browser, doch wenn ich eine seite in einem neuen fenster aufmachen will, fehlt mir der link der neuen seite, um ihn meiner anwendung zu übergeben. ich hatte schon eine lösung, aber bei dieser wurde das neue fenster einfach so geöffnet das die form nochmal erzeugt wurde, aber das will ich ja nich, ich rufe mein programm nochmal auf(per shellexecute) und dann will ich eine url übergeben, aber den einzigen den ich zum übergeben gefunden habe, ist der link der seite auf der sich der link befindet auf den ich geklickt habe(sozusagen kopiere ich also nur die seite anstatt eine neue zu bekommen)

habt ihr da irgendeinen rat für mich wie ich an den link kommen könnte?

ich hab auch schon versucht den link von dem ereignis onbeforenavigate2 zu bekommen, aber der link is der gleiche wie oben beschrieben.

[Marco Haffner]

Delphi-Quellcode:

Webbrowser1.OleObject.Document.Url

sollte die aktuell geladene Seite anzeigen.

[wo0zy]

ja wie gesagt, an die zu kommen is absolut nich das problem, sondern die zukünftige is es die mir sorgen bereitet

[Marco Haffner]

Und wie ist es mit dem OnBeforeNaviagte2-Ereignis wenn du dort die Eigenschaft URL abfragst?

[wo0zy]

das hab ich auch schon probiert bringt aber auch nichts :cry:

[Marco Haffner]

Zitat:

Zitat von wo0zy

das hab ich auch schon probiert bringt aber auch nichts :cry:

:oops: Oops, das hast Du ja auch schon oben geschrieben. Ich glaub' ich muß erstma meine Brille putzen.

Sonst wüßte ich im moment jetzt auch nicht genau was Du sonst meinst.
Schau doch mal bei den SwissDelphiCenter bzw. Torry.net-Tips,
da ist einiges zum TWebBrowser zu finden und vielleicht auch das was du suchst.

[wo0zy]

so, hab das programm jetzt für die erste beta soweit fertig, nur diese eine eigentschaft fehlt mir und ohne die kann ich das programm nich so recht gebrauchen.

hat echt keiner von euch damit erfahrungen?

im moment sieht die newwindow2 procedure so aus

Code:

procedure TForm1.WebBrowser1NewWindow2(Sender: TObject;
  var ppDisp: IDispatch; var Cancel: WordBool);
  var adr:String;
  begin
    adr:=WebBrowser1.OleObject.Document.Url;
    ShellExecute(Form1.Handle, 'open', 'NetView.exe',pchar(adr),nil,SW_SHOW);
end;

aber wie gesagt, das gibt die aktuelle url und nicht den link