Seiten durchsuchen

[Bummi]

Wenn Du nicht selbst parsen möchtest

Delphi-Quellcode:

implementation
uses  mshtml;
{$R *.dfm}
Procedure WebBrowserCreateStringListHREF(const AWebBrowser: TWebBrowser;sl:TStrings) ;
var
  nCount   : Integer;
  elements : IHTMLElementCollection;
  element  : IHTMLElement;
  sAnchor  : String;
begin

  if Assigned(AWebBrowser.Document) then begin
    elements:= (AWebBrowser.Document as IHTMLDocument2).all;
    for nCount := 0 To Pred(elements.Length) do begin
      element := elements.item(nCount, '') as IHTMLElement;
      if element.tagName = 'A' then begin
         sAnchor := (element as IHTMLAnchorElement).href;
         sl.Add(sAnchor);
      end;
    end;
  end;

end;
procedure TForm2.FormCreate(Sender: TObject);
begin
  WebBrowser1.Navigate('www.google.de');
end;

procedure TForm2.WebBrowser1NavigateComplete2(ASender: TObject; const pDisp: IDispatch; var URL: OleVariant);

begin
   WebBrowserCreateStringListHREF(Webbrowser1,Listbox1.Items);
end;