TWebBrowser : Interception clic , ou lecture d'un fichier local ?

Bonjour à tous

pour le Log de mon logiciel, j'utilise TWebBrowser sous Delphi 10

et j'aimerais, ajouter un lien, quand c'est un fichier local, qui ouvre l'application lié.

Ouvrir l'appli liée à une extension, je sais faire, ( avec ShellExecute ).

mais comment " intercepter " le clic sur l'URL du lien, et quelle serait cette URL ?

Exemple ici :
Pièce jointe 636005

Le nom du fichier serait en lien qui ouvrirais l'application liée à l'extension DXF avec le fichier E:\... \ Folio 02.dxf.

En résumé : le nom du fichier = 1 lien : On clique : ça ouvre le lecteur DXF avec le fichier.

Merci, Pascal 07300

Qui dit Web Browser dit HTML.
Une simple balise <a>Lien</a> et le clic se fera de manière naturelle.

OnNavigate doit chopper les navigations même sur un fichier (cela requiert effectivement un HTML qui founisse le lien de la forme "file://...")

Bonjour
oui, j'ai avancé sur la détection du clic, voir code plus bas.
Et ensuite, je lance l'appli lié, avec ShellExecute, et non pas dans le navigateur, comme le ferait une URL de type file://
Problème résolu donc :-)
Merci pour vos réponses.
Pascal 07300

code : interception du clic:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

procedure TForm1.FormCreate(Sender: TObject); begin Application.OnMessage := MyMessages; end;   procedure TForm1.MyMessages(var Msg: TMsg; var Handled: Boolean); var X, Y: Integer; document, E: OleVariant; begin if (Msg.message = WM_LBUTTONDOWN) and IsDialogMessage(WB.Handle, Msg) then begin X := LOWORD(Msg.lParam); Y := HIWORD(Msg.lParam); document := WB.Document; E := document.elementFromPoint(X, Y); Label1.Caption := 'You clicked on:' + E.outerHTML; end; Handled := False; end;

---

Le problème avec ton approche est que ça ne va pas interrompre la navigation et tu vas te retrouver avec une page d'erreur dans WebBrowser.

Si la page est locale, tu devrais passer par l'événement OnBeforeNavigate2 et annuler la navigation le cas échéant. Quelque chose comme :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

const Host = '\\server\web\';   procedure TForm1.FormShow(Sender: TObject); begin WebBrowser1.Navigate(Host +'index.php'); end;   procedure TForm1.WebBrowser1BeforeNavigate2(ASender: TObject; const pDisp: IDispatch; const URL, Flags, TargetFrameName, PostData, Headers: OleVariant; var Cancel: WordBool); begin if not (StartsText(Host, URL) or StartsText('http', URL)) then begin const URI :string = URL;   if TFile.Exists(URI) then ShellExecute(0, 'open', PChar(URI), nil, nil, SW_SHOWNORMAL);   Cancel := TRUE; end; end;

---

Il existait une vieille astuce pour passer un texte a partir de WB vers Delphi en utilisant un code js dans la page pour changer le texte du status du WB qui sera intercepter dans l'événement OnStatusTextChange, le texte à envoyer doit commencer par un préfixe unique de votre choix pour pouvoir le détecter car le texte du status change beaucoup: pendant le chargement le survole d'un lien.