Проблема с заморзкой потоков [Delphi 7]

[Lifeda92]

Вот тело потока:

while work do
              begin
              TCS.Enter;
              Inc(Prx);
              if Prx<=Proxy.Count-1 then CrPrx:=Prx else
              work:=False;
              TCS.Leave;

              if work then
                begin
                adr:=Copy(Proxy[CrPrx], 0, Pos(':', Proxy[CrPrx])-1);
                port:=Copy(Proxy[CrPrx], Pos(':', Proxy[CrPrx])+1, Length(Proxy[CrPrx]));

                  try
                  HTTP:=TIdHTTP.Create(nil);
                  html:='';

                    with HTTP do
                      begin
                      ReadTimeout:=Form9.edt3.Value*1000;
                      ConnectTimeout:=Form9.edt3.Value*1000;
                      ProxyParams.ProxyServer:=adr;
                      end;

                      HTTP.ProxyParams.ProxyPort:=StrToInt(port);

                      try
                      html:=HTTP.Get('http://checkip.dyndns.com/');
                      except
                      end;

                    if Pos(adr, html)<>0 then
                      begin
                      inc(good);
                      inc(prg);
                      Synchronize(sync2);
                      end

                    else
                    begin
                    inc(bad);
                    inc(prg);
                    Synchronize(sync1);
                    end;

                  finally
                  FreeAndNil(HTTP);
                  end;

                end;

              end;
Dec(m);
if m=-1 then
  begin
  Synchronize(sync4);
  end;
Dec(n);

[Slym]

код Execute давай...
мне кажется ты там в гуй лезешь

[Lifeda92]

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

В потоке что именно делаете? Код бы посмотреть.

Можно добавить свойство типа IsPaused: boolean (и наверно стоит сделать работу с ним TCriticalSection), при паузе ставить его в True и в потоках переодически проверять и делать что-то типа

while IsPaused do
  Sleep(50);

Спасибо тебе добрый человек. Поставил перед синхронизацией с VCL потоком и все супер.

[Alex11223]

Form9.edt3.Value*1000;

По-моему не стоит так к этому обращаться из потока. Оно изменяется во время работы или что? Если нет, то тем более стоит передавать это значение в поток при старте, а не напрямую в форму стучаться из него (и если да, то тоже).

work это что? Если это для завершения потока (по кнопке в UI), то там вроде есть Terminated/Terminate.

[Lifeda92]

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

По-моему не стоит так к этому обращаться из потока. Оно изменяется во время работы или что? Если нет, то тем более стоит передавать это значение в поток при старте, а не напрямую в форму стучаться из него (и если да, то тоже).

work это что? Если это для завершения потока (по кнопке в UI), то там вроде есть Terminated/Terminate.

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

[Lifeda92]

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

По-моему не стоит так к этому обращаться из потока. Оно изменяется во время работы или что? Если нет, то тем более стоит передавать это значение в поток при старте, а не напрямую в форму стучаться из него (и если да, то тоже).

work это что? Если это для завершения потока (по кнопке в UI), то там вроде есть Terminated/Terminate.

work это у меня переменная логического типа.

При нажатии на кнопку старт становится work:=true;
Когда обработает все строки в TStringList становится в work=false; чтобы дать команду на выход из цикла и в последствии уничтожения и освобождения памяти от всех потоков.
Но также, я использую work и для кнопки стоп как work:=false;

[Alex11223]

Я понял, что логического, я про цель использования спрашивал и где она находится

Ну вот я и говорю, что у TThread есть свойство Terminated и метод Terminate для сигнала завершения из UI.

А после проверки списка можно и просто выйти любым другим способом, это ж все равно во всех потоках проверяете.

[Lifeda92]

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

Я понял, что логического, я про цель использования спрашивал и где она находится

Ну вот я и говорю, что у TThread есть свойство Terminated и метод Terminate для сигнала завершения из UI.

А после проверки списка можно и просто выйти любым другим способом, это ж все равно во всех потоках проверяете.

Хорошо, спасибо за советы, это тоже сделаю.