Discussion :

[Michel Devaud]

Bonjour,

Le TWebBrowser possède-t'il une fonction de recherche de texte ?

Merci d'avance,

Michel

[ElNan]

J'ai trouvé ca sur le Net après pas mal de recherche car j'essayais de lui envoyer un CTRL+F sans succès :

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
22
23
24
25
26
27
28
29
30
procedure OpenFindDialog(WB: TWebBrowser);
const
  CGID_WebBrowser: TGUID = '{ED016940-BD5B-11cf-BA4E-00C04FD70816}';
  HTMLID_FIND = 1;
var
  CmdTarget : IOleCommandTarget;
  vaIn, vaOut: OleVariant;
  PtrGUID: PGUID;
begin
  New(PtrGUID);
  PtrGUID^ := CGID_WebBrowser;
  if WB.Document <> nil then
    try
      WB.Document.QueryInterface(IOleCommandTarget, CmdTarget);
      if CmdTarget <> nil then
        try
          CmdTarget.Exec(PtrGUID, HTMLID_FIND, 0, vaIn, vaOut);
        finally
          CmdTarget._Release;
        end;
    except
    end;
  Dispose(PtrGUID);
end;
 
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  OpenFindDialog(WebBrowser1);
end;

Ca fonctionne en tout cas.

[Michel Devaud]

Bonjour,

C'est ce que j'ai trouvé aussi et effectivement ça fonctionne. C'est bizare que l'on n'ait pas songé à encapsuler ça dans le TWebBrowser. C'est pourtant une fonction primordiale.

En tous cas, merci.

Cordialement,

Michel