чек строки

Приветствую всех.
Такая штука, мне надо по заданному интервалу времени чекать строку в html файле .Делаю по таймеру
if pos('строка',s) <>0 then showmessage('1')
else showmessage('2')
таймер включается по нажатию кнопки,но pos по таймеру не пашет,а только showmessage выдается,когда изменяешь строку в хтмл файле,и снова жмешь на кнопку,тогда выдает 1,а если снова поменять то ...ну вы поняли,чекает только по нажатию кнопки а не в таймере.Может по таймеру можно как то кнопку жать...

 

Мм, что?
Если это написано в обработчике таймера то это будет работать. А вообще ставим бряк прямо на первой строке в обработчике и смотрим что к чему.

 

GhostOnline постановка задачи:
чекать строку на изменение (например на сайте каком-нить) раз в 10 сек.например.

 

в событии OnTimer таймера
делай гет страницы и смотри поменялось или нет)))

 

я должен быть авторизован, делаю гет,возвращает не то значение.не пойму.

 

1.Авторизуешься
2.в событии OnTimer таймера
делай гет страницы и смотри поменялось или нет)))

 

Глянуть на код нужно...

 

rudi делал же так,не правильно.

что там глядеть
page:=idhttp1.get('http://site.com');
if pos('123',page)<>0 then showmessage('ok') else
showmessage('not ok');

 

А где, бл**ь, авторизация?

 

авторизация точно правильно,ибо я парсю одну единственную строку в коде.
но если так надо:

Code:

 
procedure TForm1.Button1Click(Sender: TObject);
var s:string;
t:tstringlist;
begin
Cookie := TidCookieManager.Create(nil);
form1.idhttp1.HandleRedirects := True;
form1.idhttp1.CookieManager := cookie;
form1.idhttp1.AllowCookies := True;
form1.idhttp1.Request.Referer:='http://site.com/index.php'
t:=tstringlist.Create;
t.Add('login_username=login');
t.Add('login_password=pass');
s:=idhttp1.Post('http://site.com/login.php',t);
if pos('Выход',s) <> 0 then
    ShowMessage('ok')
    else
    ShowMessage('isnt');
end;

 

Или прикрути куки к idhttp1, или каждый раз делай авторизацию в таймере, и проверяй налиие строки.

 

idhttp1.cookiemanager:=cookie;
не надо, точно?