TWebBrowser - Download verhindern

[J.P.]

Hallo Leute!

Ich hab da eine frage, wie kann man bei der TWEbBrowser komponente verhindern, dass ein download nach dem klicken auf einen direkt link startet?

Oder kann man es so einrichten, dass der Browser immer auf einer bestimmten seite bleibt, und egal was der user macht, es auch weiterhin bleibt?

Schonmal danke für eure Antworten :)

[arbu man]

Wie wärs mit dem Ereignis OnNavigate ?

mfg, Björn

[J.P.]

Ich hab grad geguckt, das gibt es bei mir nicht.
Es gibt nur onBeforeNavigate
und onNavigateComplete.

ich hab das jetzt mal mit onBeforeNavigate ausprobiert, aber es kommt ein Stack-überlauf...

Ich hab in OnBeforeNavigate geschrieben:

if not url = 'http://XXXXXXX.de:8010' then
webbrowser1.navigate('http://XXXXXXX.de:8010');

hmmm. eigentlich dürfte das doch nicht passieren, oder?


Danke schonmal für die antwort.

[Klaus01]

Zitat:

Zitat von J.P.

Ich hab grad geguckt, das gibt es bei mir nicht.
Es gibt nur onBeforeNavigate
und onNavigateComplete.

ich hab das jetzt mal mit onBeforeNavigate ausprobiert, aber es kommt ein Stack-überlauf...

Ich hab in OnBeforeNavigate geschrieben:

if not url = 'http://XXXXXXX.de:8010' then
webbrowser1.navigate('http://XXXXXXX.de:8010');

hmmm. eigentlich dürfte das doch nicht passieren, oder?


Danke schonmal für die antwort.

Das ist doch recht eindeutig, das ein Stacküberlauf verursacht wird.
im OnBeforeNavigate rufst Du Navigate(...) auf welches wieder ein Ereignis onBeforeNavigate auslöst
welches dann wieder navigate aufruft ...

Grüße
Klaus

[MaBuSE]

Zitat:

Zitat von J.P.

ich hab das jetzt mal mit onBeforeNavigate ausprobiert, aber es kommt ein Stack-überlauf...
Ich hab in OnBeforeNavigate geschrieben:

Delphi-Quellcode:

if not url = 'http://XXXXXXX.de:8010' then
 webbrowser1.navigate('http://XXXXXXX.de:8010');

hmmm. eigentlich dürfte das doch nicht passieren, oder?

Du rufst in OnBeforeNavigate wieder Navigate auf. Das vorherige Navigate (Klick auf Link) ist noch nicht ganz abgearbeitet. Das dürfte das Problem sein.
Du hast eine Schleife gebaut. Das wird immer wieder aufgerufen, bis es einen "Stack overflow" gibt (also die maximale Verschachtelungstiefe erreicht ist.)

[edit]Warum kam eigentlich keine roter Kasten :gruebel:
Doppelpost darf gerne von Mod gelöscht werden.[/edit]

[J.P.]

wie könnte ich das denn jetzt am elegantesten lösen?
einen boolean wert dort einstellen und dann an einer anderen stelle abfragen?

[Phoenix]

Hrm. Hat das OnBeforeNavigate Event denn keinen Var-Parameter mit dem man den Aufruf abbrechen kann (Cancel)?

[MCXSC]

Wie wäre es mit:

Delphi-Quellcode:

procedure TForm1.WebBrowser1BeforeNavigate2(ASender: TObject;
  const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
  Headers: OleVariant; var Cancel: WordBool);
begin
  if URL <> 'http://www.google.de/' then Cancel := True;
end;

[Phoenix]

Aua.

Also WENN dann:

Delphi-Quellcode:

Cancel := URL <> 'http://www.google.de/'

[MCXSC]

Zitat:

Zitat von Phoenix

Aua.

Also WENN dann:

Delphi-Quellcode:

Cancel := URL <> 'http://www.google.de/'

Oder so... ;)