TWebBrowser: URL bei BeforeNavigate2

[Ungeübter]

Hallo,

ich versuche folgendes, eigentlich primitives:

Der TWebBrowser wird mit Navigate angewiesen eine Website zu laden:

Webbrowser1.Navigate(http://www.delphi-tage.de');


Nun möchte ich aber über BeforeNavigate2 die URL "umbiegen":

procedure TForm1.WebBrowser1BeforeNavigate2(Sender: TObject;
const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
Headers: OleVariant; var Cancel: WordBool);
begin
URL := 'http://www.delphipraxis.net'
end;



Leider funktioniert es nicht mal ansatzweise, der Browser lädt immer die erste Ressource welche mit Navigate aufgerufen wurde, obwohl in der Hilfe unter BeforeNavigate2 steht dass man "vor dem Wechseln zu einer anderen URL die Adresse ändern oder die Operation abbrechen (kann)". Weiß jemand die Lösung?

Viele Grüße,

Ungeübter

[KrasserChecker]

Ist ja vielleicht eine blöde Frage: Aber warum "biegst" Du die URL nicht schon vor dem Aufruf von Navigate um?

Also etwa so:

Delphi-Quellcode:

if TargetUrl = 'http://www.delphi-tage.de' then
  TargetUrl = 'http://www.delphipraxis.net';
ebbrowser1.Navigate(TargetUrl );

[fnhofm]

Hallo,

das umbiegen kannst Du auch direkt im OnNavigate2 Ereignis machen.

Delphi-Quellcode:

  if URL <> 'http://www.delphipraxis.net' then
  begin
    Cancel := True;
    ebbrowser1.Navigate('http://www.delphipraxis.net');
  end;

Gruß


Florian

[Ungeübter]

Ah ich hätte mich präziser ausdrücken sollen, es geht letztlich darum nur die Ressource eines Frames einer Webseite "umzubiegen" ohne die anderen Seitenbestandteile anzutasten, sprich nicht das komplette Dokument neu zu laden wie es Navigate tut.