WebBrowser Url ermitteln

**Maa83**

Hallo,

ich habe auf meinem Formular eine TWebBrowser-Komponente liegen.
In dieser wird eine Seite angezeigt die Links enthält. Nun möchte ich, sobald auf einen dieser Links geklickt wird, die URL zu der gelinkt werden soll ermitteln und dies z.B. mit Hilfe von ShowMessage ausgeben. Gibt es hierzu eine Möglichkeit?

**Maa83**

sorry, hab das Ereignis OnNavigateComplete2 komplett übersehen.

udn was kommt da fürn code rein bei dem ereignis?

das würde mich mal interessieren

**Klaus01**

Vielleicht dieser?

markieren

Delphi-Quellcode:

			procedure TForm1.EmbeddedWB1NavigateComplete2(Sender: TObject;

  const pDisp: IDispatch; var URL: OleVariant);

begin

  ShowMessage(Url);

end;

end.

Grüße
Klaus

WebBrowser Url ermitteln

WebBrowser Url ermitteln

Re: WebBrowser Url ermitteln

Re: WebBrowser Url ermitteln

Re: WebBrowser Url ermitteln

Forumregeln

Maa83 Registriert seit: 7. Nov 2002 220 Beiträge Delphi 10.3 Rio	#1 WebBrowser Url ermitteln 6. Jun 2006, 12:08 Hallo, ich habe auf meinem Formular eine TWebBrowser-Komponente liegen. In dieser wird eine Seite angezeigt die Links enthält. Nun möchte ich, sobald auf einen dieser Links geklickt wird, die URL zu der gelinkt werden soll ermitteln und dies z.B. mit Hilfe von ShowMessage ausgeben. Gibt es hierzu eine Möglichkeit? Martin
	Zitat

Maa83 Registriert seit: 7. Nov 2002 220 Beiträge Delphi 10.3 Rio	#2 Re: WebBrowser Url ermitteln 6. Jun 2006, 12:28 sorry, hab das Ereignis OnNavigateComplete2 komplett übersehen. Martin
	Zitat

delphis spassbremse (Gast) n/a Beiträge	#3 Re: WebBrowser Url ermitteln 24. Jul 2006, 14:40 udn was kommt da fürn code rein bei dem ereignis? das würde mich mal interessieren
	Zitat

Klaus01 Registriert seit: 30. Nov 2005 Ort: München 5.755 Beiträge Delphi 10.4 Sydney	#4 Re: WebBrowser Url ermitteln 24. Jul 2006, 17:05 Vielleicht dieser? markieren Delphi-Quellcode: procedure TForm1.EmbeddedWB1NavigateComplete2(Sender: TObject; const pDisp: IDispatch; var URL: OleVariant); begin ShowMessage(Url); end; end. Grüße Klaus Klaus
	Zitat