Альтернатива sleep для треда

[bulldog5293]

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;
  Url_Pay: String;
  h: Integer;
  D: Integer;
  Otvet: String;
  Otvet1: String;
  g1: String;
begin
      Otvet := HTTP_BOT.get('http://' + Url_Pay + N);
      Ur := парсит(Otvet);
      Otvet1 := HTTP_BOT.get('http://' + Url_Pay + Ur);
      h := SetTimeOutJS(Otvet1);
///
      HTTP_BOT.get('');
      Sleep(h);
      HTTP_BOT.get('http://' + Url_Pay + g1);
end;

Извеняюсь за тот код, сглупил и не то дал, из потока это единственное с чем связан слип

[_Engine_]

1. В выше приведенном коде не увидел ни одного Sleep'a.
2. Крайне рекомендую почитать про метод Synchronize, как он работает.
3. Также рекомендую почитать про критические секции, на мой взгляд один из лучших методов синхронизации потоков.

P.S. В 4-х, не обижайтесь, но это просто жуть какая-то

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

3. Также рекомендую почитать про критические секции, на мой взгляд один из лучших методов синхронизации потоков.

метод синхрониз через них работает.

ТС, покажите как создаете поток, похоже ошибка там.

[bulldog5293]

constructor BUX.Create(CreateSuspended: Boolean; aUrl, aLog, aPass: String);
begin
  inherited Create(CreateSuspended);
  FreeOnTerminate := True;
  Priority := tpLower;
  Url_Pay := aUrl;
  Login := aLog;
  Password := aPass;
end;

procedure TForm1.Bot_Button2Click(Sender: TObject);
  begin
  Pay:=BUX.Create(True);
  Pay.Resume;
  end;

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

и где вы используете ваш новый конструктор?
idHTTP у вас общий чтоли? нельзя общий!
кстати зачем вы разные idhttp завели для разных запросов?

[bulldog5293]

idhttp у меня общий, просто когда на форуме код оставляю, меняю названия на другие и забываю все поменять , а почему idhttp общим нельзя делать? это ты про его название HTTP_BOT или HTTP_BOT.nil?

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

а почему idhttp общим нельзя делать?

потому что тогда поток полностью не независим.
ибо если два потока будут использовать один компонент одновременно, они могут испортить его(тоже относится и переменным(особенно сложных))
вы пытались одновременно с кем то съесть яблоко?
поэтому лучше в поля потока вписать idhttp и в конструкторе создавать, а в деструкторе уничтожать.

а зачем названия то менять?
выложили как есть и не парьтесь исправлениями названий)
у вас в парсинге используются компоненты?
код потока у вас именно такой? ничего не удалено важного?(можно заголовок класса потока, БЕЗ исправлений(только заголовок без кода реализаций метода))
просто я писал на эту темку программку(у меня там и потоки были и синхронизация отменная, но исходники потерял вместе с диском С) поэтому опыт есть

[bulldog5293]

Парсинг cтандартный, да вроде не чего важного не удалял

[_Engine_]

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

метод синхрониз через них работает.

И что с того?
Возьмите для примера:
procedure TThread.DoAnything;
var i : Integer;
begin
for I := 1 to 1000 do
begin
Sleep(1000);
Form1.Caption := IntToStr(i);
end;
end;

procedure TThread.Execute;
begin
while not Terminated do
Synchronize(DoAnything);
end;


или

procedure TThread.DoAnything;
var i : Integer;
begin
for I := 1 to 1000 do
begin
Sleep(1000);
EnterCriticalSection(CS);
Form1.Caption := IntToStr(i);
LeaveCriticalSection(CS);
end;
end;

procedure TThread.Execute;
begin
while not Terminated do
DoAnything;
end;

Попробуйте подвигать формой в первом случае и во втором.

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

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

procedure TThread.DoAnything;
var i : Integer;
begin
for I := 1 to 1000 do
begin
Sleep(1000);
EnterCriticalSection(CS);
Form1.Caption := IntToStr(i);
LeaveCriticalSection(CS);
end; 
end;

нарушено правило VCL, ибо основной поток может в это время считывать данные этого самого Caption.
грозит глюками программы.

вообще пример неверен в корне.

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

procedure TThread.Execute;
//var i : Integer; в данном случае это поле класса TThread
begin
 while not Terminated do for I := 1 to 1000 do 
  begin
   Sleep(1000);
   Synchronize(DoAnything);
  end;
end;

вот так правильно.

а то через синхрониз вклинили код в основной поток и в итоге там и ждете, и цикл гоняете, он не для этого предназначен.