url abfangen

[Remote1]

wie bekomme ich die url der seite, welche die twebbrowser komponente gerade öffnen möchte (seite ist noch nicht geöffnet - also onbeforenavigate2)

[sakura]

Zitat:

Zitat von Remote1

seite ist noch nicht geöffnet - also onbeforenavigate2

Wie wäre es mit dem Parameter URL des von Dir genannten Ereignisses :gruebel:

...:cat:...

[Remote1]

da bekomm ich aber immer die alte seite angezeigt und net die neue
sorry, aber das hab ich auch schon probiert

ich habs ja auch hingekreigt, aber halt ziemlich unsauber (erst seite in unsichtbare komponente laden und von da dien url abfragen :oops: :oops: :oops: )

[sakura]

Zitat:

Zitat von Remote1

da bekomm ich aber immer die alte seite angezeigt und net die neue
sorry, aber das hab ich auch schon probiert

Sorry, aber ich verstehe nicht, was Du meinst. :gruebel: Du kannst doch OnBeforeNavigate2 nutzen. Setzt Du Cancel auf False, wird die URL geladen, setzt Du es auf True wird die URL nicht geladen...

...:cat:...

[Remote1]

das is mir alles schon klar
ich will einfach nur die url einer seite, bevor diese angezeigt wird und mit dem parameter url klappt das bei mir halt nicht, deswegen der umstand mit 2 webbrowsern

[sakura]

Also bei mir geht es, anbei mal eine Demo.

...:cat:...

[Remote1]

hast recht, klappt doch. sorry

ich hab aber was anderes ausprobiert und das hat net geklappt
eigentlich will ich, dass alle neuen seiten (zb. wenn _blank) nicht in einem neuen fenster erscheinen, sondern nach abfrage auch in der webbrowser komponente dargestellt werden.
hab gedacht wenn ich die url abfange, kann ich die dann im webbrowser laden.
klappt aber net
hab auch schon bei onnewwindow versucht:

Delphi-Quellcode:

ppDisp := Webbrowser1.DefaultDispatch;

klappt aber auch net
tja und dann bin ich auf eine zweite webbrowser komponente umgestiegen:

Delphi-Quellcode:

ppDisp := Webbrowser2.DefaultDispatch;

hab da nach documentcomplete die url ausgelesen und in Webbrowser1 geladen
ok, scheiße programmiert, aber es klappt (auch wenn alles auf kosten der zeit geht da 2x laden)
im prinzip soll jede neue seite einfach nur im selben Webbrowser1 angezeigt werden und nicht im standartbrowser.

ach ja, es soll kein neues fenster aufgehen wie bei:

Delphi-Quellcode:

procedure TForm1.WebBrowser1NewWindow2(Sender: TObject; 
  var ppDisp: IDispatch; var Cancel: WordBool); 
var 
  fenster: TForm1; 
begin 
  fenster := TForm1.Create(self); 

  fenster.Show; 
  ppDisp := fenster.Webbrowser1.DefaultDispatch; 
end;