Das Ereignis OnDocumentComplete wird oft mehrmals ausgelöst. Daher musst du prüfen, ob die tatsächliche Seite fertig geladen ist.
Delphi-Quellcode:
procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
const pDisp: IDispatch;
var URL: OleVariant);
var
Document: IHTMLDocument2;
begin
TWebBrowser(Sender).ControlInterface.Document.QueryInterface(IID_IHTMLDocument, Document);
if Assigned(Document)
then
if SucheText(TWebBrowser(Sender), '
text')
then
ListBox1.Items.Add('
Treffer!');
end;
Aber wenn du viele Seiten laden willst, dann würde ich auch eher zu TIdHTTP greifen.