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

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

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

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

свяжем между собой эти компоненты. Если не знаете как, загляните сюда. Базу данных ля журнала создадим и в 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;

CurrPage:=0;

end;

end else begin

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

end;

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

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

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

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

« След.

Вернуться