Урок 4. Изучаем компонент Delphi TWebBrowser. Часть 2 (OleObject, DOM).
Откроем проект, который мы сделали на предыдущем уроке (его исходники можно скачать здесь). Добавляем туда поле редактирования текста (TMemo), которое обзываем mmResults. Так же добавляем кнопочку (TButton). Создаем для нее обработчик события OnClick:
| procedure
TfrmTestWebBrowser.btnLinksClick(Sender: TObject); var cn,i:integer; begin mmResults.Lines.Clear; cn:=wbWebBrowser.OleObject.Document.Links.length; for i:=0 to cn-1 do mmResults.Lines.Add(wbWebBrowser.OleObject.Document.Links.Item(i)); end; |
Эта программа выдает список всех ссылок, встречающихся на загруженной странице. Для этого мы используем свойство компонента TWebBrowser - OleObject. Свойство OleObject является ссылкой на DOM-объект браузера. Через него мы можем обращается к встроенным объектам браузера и их методам, примерно так же, как и на JavaScript. В частности, в данном примере мы обращаемся к объекту Document, который имеет объект Links - ссылки.
И так, запускаем программу и видим результат, загружаем страницу и нажимаем на кнопочку "Ссылки":
Разумеется, данный объект имеет и другие хорошие методы, в частности, можно получить список объектов по имени тэга (что нам очень как раз и нужно), но это мы будем изучать на следующем уроке.