URL im TWebbrowser - immer mit dem Standartbrowser öffnen

[horst]

Wie kann ich eine URL die im TWebbrowser angeklickt wird, immer im Standard-Webbrowser öffnen lassen?
Soll also nie im TWebbrowser angezeigt werden.

[sakura]

Du musst im OnNavigate Ereigniss den ShellExecute Befehl nutzen und CancelNavigation (oder ähnlich) auf True setzen.

...:cat:...

[horst]

sorry, aber ich verstehe nicht wie du das meinst :roll:

[Daniel B]

Delphi-Quellcode:

ShellExecute(0, 'open', 'http://www.delphipraxis.net', nil, nil, SW_SHOW);

[horst]

ok,
aber dadurch sind evt. vorhandene links im twebbrowser immer noch "benutzbar" und genau das soll nicht sein, wie ich zu einer webseite komme ist schon klar.
danke für deine antwort

[sakura]

Du willst, daß der User den Link anklickt. Das Ereignis, welches Du abfangen musst (siehe Objekt-Inspektor) heisst genau: OnBeforeNavigate2. Darin erhälst Du im Parameter URL die URL, welche Du an ShellExecute übergeben musst. Zusätzlich musst Du die Variable Cancel auf False setzen.

...:cat:...

P.S.: Jetzt stimmen die Namen alle :mrgreen:

[horst]

ok, danke

[horst]

ne, icb blicks nicht...was muss ich den in OnBeforeNavigate2
reinschreiben?

[Daniel B]

Das könnte etwa so aussehen:

Delphi-Quellcode:

procedure TForm1.WebBrowser1BeforeNavigate2(Sender: TObject;
  const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
  Headers: OleVariant; var Cancel: WordBool);
var
  wsTemp: WideString;
begin
  Cancel := False;
  wsTemp := URL;
  ShellExecute(0, 'open', PAnsiChar(wsTemp), nil, nil, SW_SHOW);
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  WebBrowser1.Navigate('http://delphipraxis.net');
end;

Musst Du aber selbst ausprobieren. Ich hab nur das geschrieben was Sakura gesagt hat.

[horst]

vielen dank für deine hilfe...
nur kann ich immer noch fleißig surfen, wenn ich die links anklicke.
ich habs so gemacht wie du es geschrieben hast.

[Daniel B]

kein Thema, aber wie gesagt, ich habe nur das gemacht was Sakura geschrieben hat, ich bin allerdings der Meinung das Er Dein Problem nicht ganz verstenden hat, bzw. es grundsätzlich nicht ganz klar ist was Du ganz genau vor hast. Vielleicht hast Du noch ein paar Infos für Uns. :mrgreen:

[horst]

ok...

ich habe eine combobox, über diese steuer ich die navigation meines webbrowsers.
wenn dann über die combobox eine seite aufgerufen wird (z.b. http://www.web.de), sollen die links dieser seite innerhalb des twebbrowser nicht funktionieren.
ich klicke also einen link im webbrowser an und es öffnet sich der "standartwebbrowser des users"
ich hoffe jetzt deutlicher gewesen zu sein :wink:

[sakura]

:mrgreen: Cancel muss auf TRUE gesetzt werden. :oops: Aber mal ehrlich, mit nachdenken bzw. einem Blick in meinen ersten Beitrag wäre dieses auch aufgefallen.

...:cat:...

[horst]

stimmt, entschuldiging. mir ist es nicht aufgefallen.

[Daniel B]

Hmm, ich muss ich aber doch nochmal nerven, ich habe irgednwie keinen Unterschied zwischen T/F beim Cancel feststellen können. Was sollte das denn bewirken?

[horst]

habe es gerade ausprobiert, kann immer noch im webbrowser surfen....

[Daniel B]

Eben, das meinte ich, irgendwie bringt dieses Cancel überhaupt nichts...

[horst]

teilweise funktiert es ja schon, in "wsTemp" ist auf jeden fall schonmal die URL drinnen.
jetzt müßte das mit dem shellexecute funktionieren, ich blicke nicht warum.
das mit dem cancel:=true müßte eigendlich so funktionieren.
habe es mit webbrowser1.stop versuch, geht aber auch nicht.

[horst]

das funktioniert so auch nicht...

Delphi-Quellcode:

procedure TForm1.webbrowser1NewWindow2(Sender: TObject;
  var ppDisp: IDispatch; var Cancel: WordBool);
begin
Cancel := True;
end;

[horst]

so gehts

Delphi-Quellcode:

var path: String;
begin
   path := URL;
   ShellExecute(Handle, 'open', PChar(path), '', '', SW_NORMAL);
   Cancel := true;

mein problem ist nun das ich garnicht dazu komme eine seite in meinem webbrowser zu laden, er sollte ja nur die links innerhalb meiner seite (die durch die combobox ausgewählt wurde)
in einem neuen fenster öffnen...