Spezielle Daten aus Webseite auslesen

[marabu]

Ein Beispiel:

Delphi-Quellcode:

procedure TWebForm.WebBrowserDocumentComplete(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
var
  wb2: IWebBrowser2;
  doc2: IHTMLDocument2;
  s: TStrings;
  i: Integer;
begin
  if Succeeded(pDisp.QueryInterface(IID_IWebBrowser2, wb2)) then
  begin
    doc2 := wb2.Document as IHTMLDocument2;
    s := TStringList.Create;
    for i := 0 to Pred(doc2.forms.length) do
    begin
      s.Clear;
      ExtractFields(doc2.forms.item(i, 0) as IHTMLFormElement, s);
      ShowMessage(s.Text);
    end;
    s.Free;
  end;
end;

marabu