webseiten durchsuchen + neu laden

[Sprint]

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.