Программирование - это просто
Advertisement
Главная arrow Уроки Delphi arrow Пишем на Delphi 7 мониторинг поисковых запросов arrow Пишем на Delphi SEO- мониторинг. Урок 7. Листаем страницу поиска (TWebBrowser, HTML)
17.04.2024 г.
Главное меню
Главная
Интернет магазин
Программные продукты
Биржевые роботы
Искусственный интеллект
Математика и информатика
1С:Предприятие
Уроки C#
Уроки Delphi
Уроки программирования
Web-программирование
Дизайн и графика
Компьютер для блондинок
Исходники
Статьи
Платный раздел
Рассказы про компьютеры
Хитрости и секреты
Системный подход
Размышления
Наука для чайников
Друзья сайта
Excel-это не сложно
Все о финансах
.
Пишем на Delphi SEO- мониторинг. Урок 7. Листаем страницу поиска (TWebBrowser, HTML) Печать E-mail
Автор 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*:

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

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

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

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


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


Последнее обновление ( 07.11.2011 г. )
 
« След.   Пред. »
 
© 2024 Программирование - это просто
Joomla! - свободное программное обеспечение, распространяемое по лицензии GNU/GPL.
Русская локализация © 2005-2008 Joom.Ru - Русский Дом Joomla!
Design by Mamboteam.com | Powered by Mambobanner.de
Я принимаю Яндекс.Деньги