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

[Lifeda92]

Всем здравствуйте, не могу понять, почему при нажатии на кнопку пауза (заморозка потоков) иногда виснет программа. Программа делает запросы на сервер, использую Indy и работает в 100 - 250 потоков. Потоки создаю динамически через класс TThread и держу их в массиве. Подскажите пожалуйста в чем может быть причина зависания и как это исправить.
Заранее спасибо.

вот код кнопки пауза:

var
  i: Integer;
begin
  if btn5.Caption='Пауза' then
    begin
      for i:=0 to Length(CtThreads) do
        begin
          try
          CtThreads[i].Suspend;
          except
          end;
        end;

    btn3.Enabled:=False;
    btn5.Caption:='Возобновить';
    end

  else
  begin
    for i:=0 to Length(CtThreads) do
      begin
        try
        CtThreads[i].Resume;
        except
        end;
      end;

  btn3.Enabled:=True;
  btn5.Caption:='Пауза';
  end;

end;

[Slym]

бить за такое

except
end;

ты в этом уверен?
for i:=0 to Length(CtThreads) ???-1???do

[Alex11223]

Наверно try except это следствие второй ошибки с длиной массива
Автор не понял ее, испугался, и стал глотать исключения.

[Lifeda92]

Спасибо за отклик, ну хорошо, а что тогда здесь не так.


Вот как я создаю потоки:

n:=0;
SetLength(CtThreads, edt2.Value);
          
        for Thread:=0 to edt2.Value-1 do
            begin
            CtThreads[Thread]:=Potok.Create(True);
            CtThreads[Thread].FreeOnTerminate:=True;
            CtThreads[Thread].Priority:=tpNormal;
            CtThreads[Thread].Resume;
            Inc(n);
            end;

m:=edt2.Value-1;

И вот код паузы.
Не могу понять... Иногда жму кнопку по 10 раз и все норм, ничего не виснет,
а иногда нажму и виснет вся программа... Подскажите что мне нужно сделать чтобы не было зависания. Спасибо.

  if btn5.Caption='Пауза' then
    begin
      for i:=0 to n-1 do
        begin
        CtThreads[i].Suspend;
        end;

    btn3.Enabled:=False;
    btn5.Caption:='Возобновить';
    end

  else
  begin
    for i:=0 to n-1 do
      begin
      CtThreads[i].Resume;
      end;

  btn3.Enabled:=True;
  btn5.Caption:='Пауза';
  end;

[Alex11223]

Я бы попробовал какой-то другой способ паузы.
Никогда не использовал нигде Suspend и в документации пишут, что

Сообщение от http://docwiki.embarcadero.com/Libraries/XE3/en/System.Classes.TThread.Suspend

Warning: Suspend method should only be used for debugging purposes. Suspending a thread using Suspend can lead to deadlocks and undefined behavior within your application.

Что собственно у вас и есть.

[Lifeda92]

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

Я бы попробовал какой-то другой способ паузы.
Никогда не использовал нигде Suspend и в документации пишут, что

Что собственно у вас и есть.

Я даже не знаю как еще можно остановить эти потоки
Можете пожалуйста подсказать способ) Если не трудно.
Или может ссылку на статью, там где рассказывают как правильно морозить потоки.
Спасибо.

[Alex11223]

Смотря что вы там делаете. Может лучше убивать и пересоздавать (остановить/запустить, паузу убрать).

[Lifeda92]

У меня есть кнопка стоп, но я не хотел бы убирать паузу(

[Lifeda92]

В потоках, я шлю запросы на сервер и обрабатываю ответы от сервера.

[Alex11223]

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

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

while IsPaused do
  Sleep(50);