Пишем на Delphi SEO- мониторинг. Урок 7. Листаем страницу поиска (TWebBrowser, HTML) |
Автор megabax | |||||
14.07.2010 г. | |||||
Урок 7. Листаем страницу поиска (TWebBrowser, HTML)Исходники у уроку можно скачать здесь. И так, давайте сравнив URL поискового запроса когда мы просто набрали поисковое слово и когда щелкнули на следующую страницу:
А теперь второй текст, разница выделена красным
Теперь нам осталось сформировать этот запрос программным путем. И так, открываем проект, который мы создали на прошлом уроке (Находим позицию сайта на странице поиска). Объект edURL переименовываем в edWord. Добавляем функцию GetQuery, которая будет формировать наш запрос:
Заметьте, в ней используется функция URLEncode, текст которой вы можете найти на уроке 2 (Преобразование кодировок). Возьмите там текст этой функции и засуньте в наш проект. Далее мы переписываем обработчик события нажатия на кнопочку "Показать":
И, последний штрих, добавляем поле edPage*: Все, запускаем программу и убеждаемся, что она работает: Исходники у уроку можно скачать здесь. Скриншоты, помеченные знаком *, являются цитатами и иллюстрациями в соответствии со ст. 1274 ГК РФ программного продукта "Delphi", авторское право на который принадлежит Borland Delphi.. |
|||||
Последнее обновление ( 07.11.2011 г. ) |