Пишем на Delphi SEO- мониторинг. Урок 7. Листаем страницу поиска (TWebBrowser, HTML)

Автор megabax

14.07.2010 г.

В этой статье будет пошагово описано создание на Delphi приложение

Урок 7. Листаем страницу поиска (TWebBrowser, HTML)

Исходники у уроку можно скачать здесь.

И так, давайте сравнив URL поискового запроса когда мы просто набрали поисковое слово и когда щелкнули на следующую страницу:

http://yandex.ru/yandsearch?text=%D0%BF%D1%80%D0%BE%D0%B3%D1%80%D0%B0%D0%BC%D0%BC%D0%B8%

D1%80%D0%BE%D0%B2%D0%B0%D0%BD%D0%B8%D0%B5&lr=44

А теперь второй текст, разница выделена красным

http://yandex.ru/yandsearch?p=1&text=%D0%BF%D1%80%D0%BE%D0%B3%D1%80%D0%B0%D0%BC%D0%BC%D0%B8

%D1%80%D0%BE%D0%B2%D0%B0%D0%BD%D0%B8%D0%B5&lr=44

Теперь нам осталось сформировать этот запрос программным путем. И так, открываем проект, который мы создали на прошлом уроке (Находим позицию сайта на странице поиска). Объект edURL переименовываем в edWord. Добавляем функцию GetQuery, которая будет формировать наш запрос:

function GetQuery(Page:integer; word:string):string;
var s:string;
begin
   s:='http://yandex.ru/yandsearch?';
   if Page<>0 then s:=s+'p='+IntToStr(Page)+'&';
   s:=s+'text=';
   s:=s+URLEncode(word);
   result:=s;
end;

Заметьте, в ней используется функция URLEncode, текст которой вы можете найти на уроке 2 (Преобразование кодировок). Возьмите там текст этой функции и засуньте в наш проект.

Далее мы переписываем обработчик события нажатия на кнопочку "Показать":

procedure TfrmTestWebBrowser.btnShowClick(Sender: TObject);
begin
wbWebBrowser.Navigate(GetQuery(StrToInt(edPage.Text),edWord.Text));
end;

И, последний штрих, добавляем поле edPage*:

Все, запускаем программу и убеждаемся, что она работает:

Исходники у уроку можно скачать здесь.

Скриншоты, помеченные знаком *, являются цитатами и иллюстрациями в соответствии со ст. 1274 ГК РФ программного продукта "Delphi", авторское право на который принадлежит Borland Delphi..

Последнее обновление ( 07.11.2011 г. )

« След.		Пред. »

Вернуться