Как сделать проверку ?

[HmTH]

Добрый день, подскажите пожалуйста.

У меня есть программа - парсер. Собирает определенные ссылки, переходя со страницы вида сайт.ру/2 на сайт.ру/3 , потом на сайт.ру/4
и так ещё очень долго.

Проблема в том, что среди скажем сотни ссылок, на которую заходит программа, на одной из них она умирает, и перестаёт что либо делать.

Я хочу решить проблему следующим способом - поставить проверку, по таймеру, как давно программа заходила на ту или инную ссылку, и если она в течении 10-и секунд никуда не заходила, то перелистывает список с текущего на +1.

Программа вот так берет список ссылок

for num:=350 to 350000 do

То есть начинает с 350 , допустим так сайт.ру/350 , и каждый раз прибавляет к окончательнуму числу +1 , то есть 351, 352 и т.д.

Как сделать что бы она прибавила, если простой больше 10-и секунд не +1, а +2 и заного начала свою работу ?


Я не знаю как внятно объяснить, что бы было понятно, извините =)

[psycho-coder]

С помощью таймера.
По истечению 10 секунд, прибавляешь +2. Если нет, то перезапускаешь таймер.

[HmTH]

Сообщение от psycho-coder

С помощью таймера.
По истечению 10 секунд, прибавляешь +2. Если нет, то перезапускаешь таймер.

Ну я как бы это знаю, и я написал что так и хочу сделать =))))
Просто я не пойму как это сделать, можешь какой-то пример дать ?)

[psycho-coder]

На работе нет дельфей, а из головы что то не могу придумать.

[HmTH]

Сообщение от psycho-coder

На работе нет дельфей, а из головы что то не могу придумать.

Печально (

[Пепел Феникса]

таймаут у ИнДи стоит?

[HmTH]

Сообщение от Пепел Феникса

таймаут у ИнДи стоит?

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

Сейчас код кнопки выглядит так, как сделать проверку, даже понятия не имею (

procedure TThreadParser.Execute;
var
  HTTP : TIDHTTP;
  Tmp, Data : TStringList;
  i, num : Integer;
  Url, Mail, Pass, BuildID : String;
begin
  Mail  := MainForm.EditMail.Text;
  Pass := MainForm.EditPass.Text;
  Tmp := TStringList.Create;
  Data := TStringList.Create;
  HTTP := TIdHTTP.Create(nil);
  Http.AllowCookies := True;
  Http.HandleRedirects := True;
  Http.Request.Host:='jd.mail.ru';
  Http.Request.UserAgent:='Mozilla/5.0 (Windows; U; Windows NT 5.1; ru; rv:1.9.0.10) Gecko/2009042316 Firefox/3.0.10';
  Http.Request.Accept:='text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8';
  Http.Request.AcceptLanguage:='ru,en-us;q=0.7,en;q=0.3';
  Http.Request.AcceptCharSet:='windows-1251,utf-8;q=0.7,*;q=0.7';
  Http.Request.Referer:='http://jd.mail.ru/';
  try
  // Заходим на сайт, ищем form_build_id
  Tmp.Text := HTTP.Get('http://jd.mail.ru/');
  for I:=0 to Tmp.Count-1 do
    begin
      if Pos('name="form_build_id', Tmp[i])<>0 then
        begin
          BuildID := Copy(Tmp[i], Pos('id="', Tmp[i])+4, Length(Tmp[i]));
          BuildID := Copy(BuildID, 0, Pos('"',BuildID)-1);
          MainForm.StatusBar.Panels[0].Text := 'Form Build Id найден';
        end;
    end;
  // Заходим на сайт, ищем form_build_id
  // Код захода на сайт
  Data.Add('name='+Mail);
  Data.Add('pass='+Pass);
  Data.Add('op=');
  Data.Add('form_build_id='+BuildID);
  Data.Add('form_id=user_login_block');
  HTTP.Post('http://jd.mail.ru/node?destination=user', Data);
  // Код захода на сайт
  // Теперь собираем ссылки
  i := 0; // на всякий случай =)
  Tmp.Clear; // так же очищаем
  for num:=350 to 350000 do
    begin
      TMP.Text := HTTP.Get('http://jd.mail.ru/user/'+ IntToStr(num));
      for I:=0 to Tmp.Count-1 do
        begin
          if Pos('my.mail.ru', Tmp[i])<>0 then
            begin
              Url := Copy(Tmp[i], Pos('href='#39, Tmp[i])+6, Length(Tmp[i]));
              Url := Copy(Url, 0, Pos(#39'>', Url)-2);
              MainForm.ListBoxUrl.Items.Append(Url);
            end
            else
            begin
              MainForm.StatusBar.Panels[0].Text := 'Ссылку не нашёл, продолжаю дальше';
              continue; // продолжение
            end;
          if (HTTP.ResponseCode = 404) or (HTTP.ResponseCode = 403) then
            begin
              continue;  // продолжение
            end;
        end;
    end;
  // Теперь собираем ссылки
  finally
    Tmp.Free; // освобождаем
    Data.Free;
  end;
end;

[grafgrial]

Что то вроде этого (пишу из головы)

 if Http.ReadTimeout := 10000 then
begin    
Http.ConnectTimeout := 10000;
inc(num);
 TMP.Text := HTTP.Get('http://jd.mail.ru/user/'+ IntToStr(num));
end;

P.S. не обесудь голова болит, так что код может быть не правильный

[Пепел Феникса]

посмотрите в свойствах ИнДи TimeOut
и вообще по хорошему недо б try использовать.

[HmTH]

Сообщение от grafgrial

Что то вроде этого (пишу из головы)

 if ReadTimeout := 10000 then
begin    
ConnectTimeout := 10000;
inc(num);
TMP.Text := HTTP.Get('http://jd.mail.ru/user/'+ Inttostr(num));
end;

P.S. не обесудь голова болит, так что код может быть не правильный

Извини, глупый вопрос наверное, но у меня RAD не воспринимает ConnectTimeout и ReadTimeout , на форму надо что-то добовлять ?)