Зависание потока

[bilibian]

Привет.

Запускаю прогу, работает всего несколько минут, далее поток повисает.

В чем может быть дело?

type
  CHECK = class(TThread)
    IdHTTP2: TIdHTTP;
    NameFile,SourceFile,DestFile:string;
  private
    { Private declarations }
  protected
    procedure Execute; override;
    procedure Update;
    function DownloadFile(SourceFile, DestFile: string): Boolean;
  end;

var
  Form1: TForm1;
  CHE:CHECK;


function CHECK.DownloadFile(SourceFile, DestFile: string): Boolean;
begin
  try
    Result := UrlDownloadToFile(nil, PChar(SourceFile), PChar(DestFile), 0, nil) = 0;
  except
    Result := False;
  end;
end;

procedure CHECK.Update;
begin
  DestFile := ExtractFilePath(Application.Exename)+'123.jpg';
  if DownloadFile(SourceFile, DestFile) then
    begin
      Form1.Image1.Picture.LoadFromFile(DestFile);
      MessageBox(Handle,'текст','заголовок',MB_ICONINFORMATION+MB_OK);
    end
end;

procedure CHECK.Execute;
  var
    html,img,search:string;
begin
  IdHTTP2:=TIdHTTP.Create(nil);
  IdHTTP2.HandleRedirects:=True;
  IdHTTP2.Request.UserAgent:='Mozilla/5.0 (Windows; U; Windows NT 6.1; rv:2.2) Gecko/20110201';
  IdHTTP2.ReadTimeout:=20000;

  while not Terminated do
    begin
      html:=IdHTTP2.Get('ссылка'); // в html получаем ссылку на картинку
      Sleep(500);

      if Pos('ERROR',html) = 0 then
        begin

          SourceFile := Trim(html);
          Synchronize(Update);

        end;
    end;

  IdHTTP2.Free;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  if Button2.Tag = 0 then
    begin
      Button2.Tag:=1;
      Button2.Caption:='Остановить';
      CHE:=CHECK.Create();
      CHE.FreeOnTerminate:=True;
      CHE.Resume;
      CHE.Priority:=tpNormal;
      CHE.OnTerminate := ENDTerminated;
    end
    else
    begin
      Button2.Tag:=0;
      Button2.Enabled:=False;
      Button2.Caption:='Останавливаем';
      CHE.Terminate;
    end;
end;

procedure TForm1.ENDTerminated(Sender: TObject);
begin
  Button2.Enabled:=True;
  Button2.Caption:='Начать';
end;

[bilibian]

Неужели никто не знает причину?

[XE5]

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

Неужели никто не знает причину?

Где обработка исключений IdHTTP2.Get?
К примеру сервер ответил ошибкой. Поток рухнул. Дальше что?

[bilibian]

Записал так:

procedure CHECK.Execute;
  var
    html,img,search:string;
begin
  IdHTTP2:=TIdHTTP.Create(nil);
  IdHTTP2.HandleRedirects:=True;
  IdHTTP2.Request.UserAgent:='Mozilla/5.0 (Windows; U; Windows NT 6.1; rv:2.2) Gecko/20110201';
  IdHTTP2.ReadTimeout:=20000;

  while not Terminated do
    begin
       try
         html:=IdHTTP2.Get('ссылка'); // в html получаем ссылку на картинку
         Sleep(500);

         if Pos('ERROR',html) = 0 then
         begin

           SourceFile := Trim(html);
           Synchronize(Update);

         end;
       except end;
    end;

  IdHTTP2.Free;
end;

[eval]

а зачем тут слип?

[XE5]

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

Записал так

Очень интересно. Жаль никакой информации о результате. Видимо оно Нам нужно, а не Вам.
P.S. Вопрос на засыпку. Будет ли выполнена синхронизация при исключении HTTP?

[bilibian]

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

Очень интересно. Жаль никакой информации о результате. Видимо оно Нам нужно, а не Вам.

Цикл крутится, пока не висло, но до этого я писал другой код и там на каждом запросе было исключение. Все работало тип-топ. А когда проходит очень большое кол-во времени (примерно сутки), то все потоки идут в отказ. То есть с виду программа работает, а инфу не обрабатывает. Когда пытаешься исполнить Терминайт запущенным потокам, то программа сама повисает намертво и ошибок не выдает.

Хотелось бы это тоже прояснить.

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

Будет ли выполнена синхронизация при исключении HTTP?

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

[XE5]

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

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

А если будет сбой соединения, и сервер вообще ничего не вернёт, что тогда произойдёт?

procedure CHECK.Execute;
  var
    html,img,search:string;
    b: boolean; //ошибка
begin
  IdHTTP2:=TIdHTTP.Create(nil);
  IdHTTP2.HandleRedirects:=True;
  IdHTTP2.Request.UserAgent:='Mozilla/5.0 (Windows; U; Windows NT 6.1; rv:2.2) Gecko/20110201';
  IdHTTP2.ReadTimeout:=20000;

  while not Terminated do
    begin
       b := false; // инициализация датчика ошибок
       try
         html:=IdHTTP2.Get('ссылка'); // в html получаем ссылку на картинку
         Sleep(500);
       except 
         b := true; // отловили ошибку 
      end;

      if (Pos('ERROR',html) = 0) and (b = false) then // если сервер не ответил ERROR и не было сбоя соединения то...
         begin
           SourceFile := Trim(html);
           Synchronize(Update);
         end;
    end;
  IdHTTP2.Free;
end;

[bilibian]

XE5, смысл в этом датчике?

Если будет ошибка соединения и пр., то уходим в исключение. До этого кода просто дело не дойдет:

if Pos('ERROR',html) = 0 then
begin

   SourceFile := Trim(html);
   Synchronize(Update);

end;

[XE5]

bilibian Смысл очень прост. Всё что Вы заключили в секцию try ни как не обрабатывается на предмет ошибок. В том числе и

Synchronize(Update);

Уверены, что не хотите видеть ошибки синхронизации? Сомневаюсь.