Пишем на Delphi SEO-мониторинг. Урок 6. Находим позицию сайта на странице поиска (TWebBrowser, HTML)

Автор megabax

04.03.2010 г.

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

Урок 6. Находим позицию сайта на странице поиска (TWebBrowser, HTML)

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

Мы уже достаточно изучили компонент TWebBrowser, что бы начать писать программу разбора страницы, загруженной с Яндекса. Но, прежде чем приступить к программированию, проанализируем "ручками" страницу поиска, дабы сделать сначала грамотную постановку задачи. Нам же нужно определить, что именно доложена делать наша программа с загруженной страницей сайта, иными словами, где искать наш сайт.

И так, заходим на Яндекс и набираем в строке поиска какое нибудь слово, например, "программирование", после чего идем в "Вид" -> "просмотр HTML кода"*

Вот, собственно говоря HTML код, который мы будем искать*:

Вот как следуют ключевые тэги:

Тэг <b> с индексом сайта внтури.
Тэг <I>
Тэг <A>, котором заключена ссылка на наш сайт.

Вопрос - если мы найдем тэг <A> со ссылкой на наш сайт, как нам узнать его индекс? А очень просто. Все это хозяйство заключено в тэге <LI>, и теперь нам достаточно пробежать все тэги <LI>, а уже потом анализировать тот элемент, в котором нашли наш сайт.

А теперь берем наш пример, созданный на прошлом уроке, удаляем из него компонент TTreeView и на его место ставим TMemo (назовем его mmHTML) , а еще добавляем TEdit (назовем edRef)**:

так же мы меняем обработчик события OnClick кнопочки:

procedure TfrmTestWebBrowser.btnExecClick(Sender: TObject);
var cn,i:integer; vTags:OleVariant; s:string;
       finded:boolean;
begin
    vTags:=wbWebBrowser.OleObject.Document.getElementsByTagName('Li');
    cn:=vTags.length-1;
    finded:=false;
    for i:=0 to cn do
    begin
       s:=vTags.item(i).innerHTML;
       if Pos(edRef.Text,s)>0 then
       begin
         mmHTML.Text:=s;
         finded:=true;
         break;
      end;
   end;
if not(finded) then mmHTML.Text:='Не найдено';
end;

Теперь запускаем программу, в верхней строке набираем ссылку поискового запроса в Яндексе (точнее, копируем ее из браузера, устанете ручками набирать). В нижнем поле ввода вводим адрес сайта, чье местоположение мы хотим определить (пока наша программа ищет только среди отображенных на странице ссылках). В самом нижем поле у нас отобразиться текст тэга, где программа нашла введенный адрес сайта:

и так, мы уже научились находить позицию сайта среди отображаемых на странице поиска. На следующем уроке мы научимся листать и последовательно просматривать эти страницы.

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

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

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

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

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

Вернуться