idhttp und links filtern

[o0o]

hi leutz kann man diese procedure von marabu mit idhttp benutzen?
wenn ja wie? oder habt ihr ne alternative?^^

Delphi-Quellcode:

procedure ExtractLinks(doc: IHTMLDocument2; s: TStrings);
var
  ec: IHTMLElementCollection;
  e: IHTMLElement;
  i: integer;
  url: Variant;
begin
  ec := doc.links;
  for i := 0 to Pred(ec.length) do
  begin
    e := ec.item(i, 0) as IHTMLElement;
    url := VarToStr(e.getAttribute('href', 0));
    if url <> '' then
      s.Add(url);
  end;
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
ExtractLinks(idhttp1, memo2)
end;

errormessage:

Zitat:

[DCC Fehler] Unit1.pas(94): E2010 Inkompatible Typen: 'IHTMLDocument2' und 'TIdHTTP'

hab zwar in der suche gekuckt aber iwi nix passendes fuer indy gefunden waere nice wenn jemand dafuer was haette^^