[poli-smen]

Сообщение от bddelphi

Да, так тоже пробовала. Вывела всю страницу в TWebBrowser, а как оттуда получить гиперссылки?

Пример:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  col: IHTMLElementCollection;
  i: Integer;
begin
  col:=(WebBrowser1.Document as IHTMLDocument2).all.tags('A') as IHTMLElementCollection;
  for i := 0 to col.length-1 do
  begin
    Memo1.Lines.Add((col.item(i, EmptyParam) as IHTMLAnchorElement).href);
  end;
end;