Часто перед начинающими программистами встает вопрос об автоматизации парсинга через webbrowser (поскольку он изначально отрабатывает java скрипты) и одна из основных проблем это узнать все ссылки которые есть на странице (задача из автосерфинга)
Сегодня я и расскажу вам как можно узнать линки на страничке.
Это делается достаточно просто. Для начала создадим пустой проект и кинем на него сам собственно webbrowser1 и button1 c Memo1
Создадим обработчик кнопки и пропишем в него перменные:
procedure TForm1.Button1Click(Sender: TObject); var i: Integer;
Получится что-то вроде этого. Теперь перейдем с главному:
begin Webbrowser1.Navigate('URL'); Memo1.clear; for i := 0 to Webbrowser1.OleObject.Document.links.Length - 2 do Memo1.Lines.Add(Webbrowser1.OleObject.Document.Links.Item(i)); end;
Вот собственно и все. Грузится страница с адресом URL, на ней программа находит все ссылки и заносит их в Memo1. Для простоты картины можно свойство Visible поставить в False, таким образом отображение самого сайта не будет происходить а останется лишь граббер ссылок.