Discussion :

[pascal07]

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 :


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

[popo]

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

[ShaiLeTroll]

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

[pascal07]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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;

[Andnotor]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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;

[wheel]

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.