DelphiCode - WEBBROWSER - ВЫВОДИМ ВСЕ ССЫЛКИ В MEMO

WEBBROWSER - ВЫВОДИМ ВСЕ ССЫЛКИ В MEMO

В раздел Uses добавляем: OleCtrls, SHDocVw

Помещаем на форму компонент TWebBrowser (вкладка

Internet), TMemo, две кнопки TButton и TEdit. В

обработчике событий OnClick кнопок запишем следующее:

procedure TForm1.Button1Click(Sender: TObject);
var i: Integer;
begin
Memo1.clear;
for i := 0 to Webbrowser1.OleObject.Document.links.Length - 1 do
Memo1.Lines.Add(Webbrowser1.OleObject.Document.Links.Item(i));
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Webbrowser1.Navigate('http://'+edit1.text);
end;

Запускаем программу, вводим адрес и нажимаем "Open URL",

когда страница загрузится нажатием на "Links to memo"

выводим список всех ссылок на странице.

Delphicode.org

20.04.2009