Links eines TWebbrowser in zweiten TWebbrowser öffnen

[Benjin]

Hallo,


ich möchte links, die in einem Browser angezeigt werden, per default in einem bestimmten anderen TWebbrowser öffnen lassen, sowie dieses Anklicken der Links "sniffen" um für das Ereignis noch weitere, außerhalb des Browsers passierende Funktionen zu schreiben.

Wie geht das?

[marabu]

Vielleicht solltest du dir einmal das Ereignis OnBeforeNavigate2 des TWebBrowser ansehen.

Grüße vom marabu

[Benjin]

OnBeforeNavigate ist schon klar, aber was genau wird dann da angegeben?

Wie kann ich dort einen bestimmten zweiten browser angeben?


Kannst du das ein wenig genauer schildern?

[MathiasSimmack]

Delphi-Quellcode:

procedure TForm1.WebBrowser1BeforeNavigate2(Sender: TObject;
  const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
  Headers: OleVariant; var Cancel: WordBool);

Noch Fragen? Cancel auf TRUE, und "URL" an den anderen Browser weiterleiten. Was du darüber hinaus mit den Variablen "URL" - "Headers" anstellst (du wolltest ja schnüffeln :lol:), bleibt dir überlassen.

[Benjin]

Super, das kommt dem Ganzen schon näher.

Url ist allerdings als OleVariant deklariert, ich möchte jedoch den ursprünglichen String wiederhaben, da ich auf bestimmte Adressen reagieren möchte.

Wie komme ich jetzt an den simplen Adress-String ran? Casten geht ja scheinbar niht, und zu OleVariant finde ich keine Dokumentation.

Hat jemand eine Idee?


Vielen Dank!

[toms]

Zitat:

Zitat von Benjin

Wie komme ich jetzt an den simplen Adress-String ran? Casten geht ja scheinbar niht, und zu OleVariant finde ich keine Dokumentation.

Hallo!


Du musst nicht casten. Kannst OleVariant im Prinzip wie ein normaler String behandeln.
d.h z.B deinstring := URL oder ShowMessage(URL);