[bulldog]

Решил sleep заменить на timer, что бы форма при попадание на время задержки не висла, но всё равно тот же результат

Код:

FHttp.get(('Сайт');
      {  Timer := TTimer.Create(self);
        Timer.Enabled := true;
        Timer.OnTimer := OnTimer;
        Timer1.Interval := h;
при обоих случаях из потока форма зависает
    Sleep(h);}
      FHttp.get('Сайт2');

h это время в милисекундах полученное при парсенге.
Как правельней сделать что бы форма не висла?

[bulldog]

попробывал так

Код:

FHttp.get('сайт');
      begin
 while not Terminated do for I := 1 to h do//подвисает здесь
  begin
   Sleep(1000);
   Synchronize(DoAnything);
FHttp.get('сайт'+ g1);

procedure BOT.DoAnything;
begin
Form1.Caption := IntToStr(i);
end;

[Bargest]

можно так:

Код:

//вместо
while not Terminated do
//сделать
while true do

потому что если Terminated, то твой поток уже вырубится.

[bulldog]

Но это всё равно не уберёт зависание формы

[Bargest]

Чего-то не понимаю. Sleep вызывается в потоке. В таком случае должен спать только поток. Я уже сто раз так делал - и все нормально.
Скинь сюда пожалуйста весь код, связанный с потоком.

[bulldog]

Код:

function SetTimeOutJS(Str: String): Integer;//ищет время на странице
var
  I: Integer;
  S: String;
begin
  S := '")'',';
  I := Pos(S, Str);
  if I > 0 then
  begin
    S := Copy(Str, I + Length(S), Length(Str));
    I := Pos(')', S);
    if I > 0 then
    begin
      S := Trim(Copy(S, 1, I - 1));
      I := StrToIntDef(S, -1);
      if I > 0 then
        Result := I
      else
        Result := 0;
    end;
  end;
end;


procedure BOT.Execute;
var
  N: String;
  h: Integer;
  D: Integer;
  Otvet: String;
  Otvet1: String;
  g1: String;
begin
      Otvet := HTTP_BOT.get('http://' + Сайт + N);
      Ur := парсит(Otvet);
      Otvet1 := HTTP_BOT.get('http://' + Сайт + Ur);
      h := SetTimeOutJS(Otvet1);
///
      HTTP_BOT.get('Сайт');
      Sleep(h);// h может быть от 10 секунд до ... 
      HTTP_BOT.get('http://' + Сайт + g1);
end;