Entwickler-Ecke

Internet / Netzwerk - Twebbrowser link nicht öffnen


Eckesachs - Mi 09.07.08 21:12
Titel: Twebbrowser link nicht öffnen
Hallo,
ich habe eine Twebbrowserkomponente in der ich html-Text anzeige.
Wenn ich jetzt darin auf einen Link klicke ann wird e Seite in der Komponente geladen.
Ich hätte aber gern, dass der Link mit dem Standartbrowser angezeigt wird.
Könnte mir bitte jemand einen Tipp geben wie ich das lösen kann.

MfG
Eckesachs


jakobwenzel - Mi 09.07.08 21:35

So duerfte es funktionieren. Wahrscheinlich musst du aber noch ueberpruefen, ob die zu ladende Seite wirklich eine extern zu oeffnende Seite ist.

Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
procedure TForm1.HelpBrowserBeforeNavigate2(ASender: TObject;  
  const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,  
  Headers: OleVariant; var Cancel: WordBool);  
begin  
  cancel:=true;  
  ShellExecute(handle,'open',PChar(String(url)),nil,nil,SW_ShowNormal);  
end;


Eckesachs - Do 10.07.08 21:58
Titel: Wie überprüfe ich ob es lokal oder auf einem Server liegt?
Öffnen funktioniert jetzt schon mit dem Standardbrowser, aber nur wenn ich explizit sage, dass er Links mit dem Standardbrowser öffnen soll. Wie kann ich nun überprüfen ob der Link auf eine Lokales html-Datei oder auf eine Website verweist?


toms - Fr 11.07.08 22:31

Hallo, mit FileExists() kannst du überprüfen, ob die Datei lokal existiert.
(evtl. zuvor Backslashes in Slashes umwandeln etc.)


Eckesachs - Sa 12.07.08 17:14

Vielen Dank, damit ist mein Problem jetzt gelöst.