Как Получить Список Ссылок Из Html На Delphi

[Lomanu4]

uses Classes, MSHTML, variants, activex;
procedure GetLinksFromHTML(Text: string; List: TStringList);
  var s,link: string;
      i: integer;
      Document: IHTMLDocument2;
      varr: OleVariant;
      Collection: IHTMLElementCollection;
      Element: IHtmlElement;
begin
  List.Clear;
  Document := coHTMLDocument.Create as IHTMLDocument2;
  varr := VarArrayCreate([0,0], VarVariant);
  varr[0] := Text;
  Document.Write(PSafeArray(TVarData(varr).VArray));
  Collection  := Document.All.Tags('A') as IHTMLElementCollection;
  For i:=0 to Collection.length-1 do
  begin
    Element := Collection.Item(i,0) as IHtmlElement;
    link:=Element.getAttribute('href',0);
    if (Pos('http:',link)>0) or (Pos('https:',link)>0) then List.Add(link);
  end;
end;