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

[_Engine_]

Почему неверен, у автора топика так и сделано
CS - критическая секция, создаваемая в основном потоке, все обращения к Caption защищены этой секцией - ничего не нарушено

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

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

у автора топика так и сделано

у него нет синхрониз вообще, и привязки к форме тоже(за инсключением http, но он не визуален, и то я уже сказал об этом)

CS - критическая секция, создаваемая в основном потоке, все обращения к Caption защищены этой секцией - ничего не нарушено

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

[_Engine_]

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;

begin
Otvet1 := HTTP_BOT.get('http://' + Сайт);
h := SetTimeOutJS(Otvet1);
Sleep(h);//в этот момент вешается форма на h секунд
HTTP_BOT.get('http://' + Сайт + Ur);
end;

Почему-то уверен, что эта часть обернута методом Synchronize

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

http://programmersforum.ru/showpost....0&postcount=11
выложен же был код иной.

[_Engine_]

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

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

В данном случае, да, иначе, как сам говоришь - Access Violation

03:48

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

http://programmersforum.ru/showpost....0&postcount=11
выложен же был код иной.

Вначале был такой код, дальше я не смотрел, т.к. не интересно.

[Johnson]

Если idHTTP у Вас общий - то, возможно, что форма у Вас вешается не на h секунд, а на время загрузки страницы компонентом...

[GunSmoker]

Несколько ссылочек на почитать:
http://www.transl-gunsmoker.ru/2010/...g-post_20.html
http://www.transl-gunsmoker.ru/2010/05/blog-post.html
http://www.delphikingdom.ru/asp/view...catalogid=1355

[bulldog5293]

И всё же чем лучше заменить SLLEP что бы избежать подвешивания на время паузы?
или в место SLLEP(h) выстовить ReadTimeout, я читал что он делает паузу перед отсылкой сообщений, но как сделать тогда что-то на подобе

ReadTimeout(h);//в этот момент вешается форма на h секунд
HTTP_BOT.get('http://' + Сайт + Ur);

Я так правда пытался, но не чего не вышло

[bulldog5293]

И всё же попробывал как предлагал пепел феникса, но

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

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