Discussion :

[tonny_75]

J'ai utilisé ce code pour chercher un mot dans le WebBrowser :

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
 
procedure TForm1.SearchAndHighlightText(aText: string);
var
  tr: IHTMLTxtRange; //TextRange Object
begin
  if not WebBrowser1.Busy then
  begin
    tr := ((WebBrowser1.Document as IHTMLDocument2).body as IHTMLBodyElement).createTextRange;
    //Get a body with IHTMLDocument2 Interface and then a TextRang obj. with IHTMLBodyElement Intf.
 
    while tr.findText(aText, 1, 0) do //while we have result
    begin
      tr.pasteHTML('<span style="background-color: Lime; font-weight: bolder;">' +
        tr.htmlText + '</span>');
      //Set the highlight, now background color will be Lime
      tr.scrollIntoView(True);
      //When IE find a match, we ask to scroll the window... you dont need this...
    end;
  end;
end;

Mais :
j'ai un ListBox contenant les pages à naviguer :
Exemple :
c:\pages\page1.htm
c:\pages\page2.htm
c:\pages\page3.html
...

Donc ce que je veux que le WebBrowser puisse naviguer toutes ces pages ( trouvant dans le ListBox ) une par une et faire la recherche ( Find ) du Mot , s'il le trouve il affiche le nom de page contenant le mot .

Ce que j'ai fait :

procedure TForm1.timer1Timer(Sender: TObject);
var
i:integer;
begin
For i:=0 to listbox1.items.cout-1 do
begin
WebBrowser1.Navigate(ListBox1.Items.Strings[i]);
SearchAndHighlightText(Edit1.text);
end;
end;

mais à l'execution le Webbrowser1 navigue seulement la 1ere et dernière page , et il ignore les autres pages.

Merçi

[Ludo_360]

Je suis pas sur d'avoir saisi:

Code :

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

1
2
 
ListBox1.Items.Strings[i]

ceci te sert à definir le pointeur sur le ième caractère de ton item, non?
Donc tu ne parcour pas ton listbox mais un item de celui ci ... mais peut être que je suis trop fatigué lol...

ludo