Программирование - это просто
Advertisement
Главная arrow Уроки Delphi arrow Пишем на Delphi 7 мониторинг поисковых запросов arrow Пишем на Delphi SEO-мониторинг: Урок 10. История мониторинга
18.04.2024 г.
Главное меню
Главная
Интернет магазин
Программные продукты
Биржевые роботы
Искусственный интеллект
Математика и информатика
1С:Предприятие
Уроки C#
Уроки Delphi
Уроки программирования
Web-программирование
Дизайн и графика
Компьютер для блондинок
Исходники
Статьи
Платный раздел
Рассказы про компьютеры
Хитрости и секреты
Системный подход
Размышления
Наука для чайников
Друзья сайта
Excel-это не сложно
Все о финансах
.
Пишем на Delphi SEO-мониторинг: Урок 10. История мониторинга Печать E-mail
Автор megabax   
17.05.2011 г.
В этой статье будет пошагово описано создание на Delphi приложение

Пишем на Delphi SEO-мониторинг: Урок 10. История мониторинга

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

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

Пишем на Delphi SEO-мониторинг: Урок 10. История мониторинга

Так же придется добавить новый компонент TTable, назовем его TableJur, новый TDataSource (имя DataSourceJur) и на закладку "Журнал мониторинга" добавим TDbGrid (имя DBGridJur)*:

Пишем на Delphi SEO-мониторинг: Урок 10. История мониторинга

свяжем между собой эти компоненты. Если не знаете как, загляните сюда. Базу данных ля журнала создадим и в TableJur укажем ссылку на нее (см. так же прошлый урок). 

Теперь перейдем к изменению программного кода.  В принципе, нам надо только переписать процедуру TfrmTestWebBrowser.TimerTimer - обработчик события от таймера:

procedure TfrmTestWebBrowser.TimerTimer(Sender: TObject);

var res,i:integer;

begin

   if currWord<>'' then

   begin

      res:=PositionOfQuery(currWord);

      if (res<>-1) or (CurrPage>99) then

      begin

         if CurrPage>99 then res:=-1;

         Table.Edit;

         Table.FieldValues['Position']:=res;

         Table.Post;

         ProgressBarTop.Position:=currNum;

         currNum:=currNum+1;

         currWord:='';

         Table.Next;

         if Table.Eof then

         begin

            isExec:=false;

            Table.First;

            while not Table.eof do

            begin

              TableJur.Append;

              TableJur.Edit;

              TableJur.FieldValues['Position']:=Table.FieldValues['Position'];

              TableJur.FieldValues['Query']:=Table.FieldValues['Query'];

              TableJur.FieldValues['Date']:=Date;

              TableJur.Post;

              Table.Next;

            end;

         end;

         CurrPage:=0;

      end;

  end else begin

     currWord:=Table.FieldByName('Query').AsString;

  end;

end;

Все, программа готова. Теперь, для получения истории позиций сайта в яндексе надо просто периодический запускать ее:

Пишем на Delphi SEO-мониторинг: Урок 10. История мониторинга

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


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


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