idhttp und links filtern

[o0o]

oh thx^^
aber irgendwas mach ich wieder falsch 0_o

Delphi-Quellcode:

procedure ExtractLinks(doc: IHTMLDocument2; s: TStrings; SearchString: String);
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(SearchString, 0));
    if url <> '' then
      s.Add(url);
  end;
end;

 function GetDocument(const markup: WideString): IDispatch;
var
  doc: OleVariant;
begin
  Result := CoHtmlDocument.Create;
  doc := Result;
  doc.Open;
  doc.Write(markup);
  doc.Close;
end;

procedure TForm1.Button5Click(Sender: TObject);
var
  docd: IDispatch;
  doc: IHTMLDOCUMENT2;
  url: String;
begin
  url := 'http://www.meineurl.de';
  docd := GetDocument(IdHttp1.Get(url));
end;

btw doc: IHTMLDOCUMENT2; wird nicht verwendet...hat jemand ne ahnung wie ich das hinbiege?

thx fuer die hilfe leutz

da o0o