1

Имеется главная форма с кнопкой, которая запускает и останавливает дополнительный поток:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if Assigned(MyThread) then
    begin
      Button1.Enabled := False;
      MyThread.Terminate;
    end
  else
    begin
      Button1.Caption := 'STOP';
      MyThread := TMyThread.Create(True);
      MyThread.Priority := tpLower;
      MyThread.OnTerminate := OnTerm;
      MyThread.FreeOnTerminate := True;
      MyThread.Start;
    end;
end;

procedure TForm1.OnTerm(Sender: TObject);
begin
  MyThread := nil;
  Button1.Enabled := True;
  Button1.Caption := 'START'
end;

Сам дополнительный поток упрощенно выглядит так:

procedure TMyThread.Execute;
var
  i: Byte;
begin
  repeat
    for i := 1 to 4 do
      begin
        Sleep(1000);
        Synchronize(
          procedure
            begin
               Form1.Memo1.Lines.Add('Updated '+IntToStr(i));
            end
           );
      end;
  until Terminated;
end;

Как при закрытии главной формы TForm1.FormClose проверить состояние потока и если он запущен дать ему завершить свой цикл?

1

1 ответ 1

1

Если готовы ждать бесконечно, то вот так:

if Assigned(MyThread) then begin
    MyThread.Terminate;
    MyThread.WaitFor;    
end;

Если нужно встроить лимит на ожидание, то вот так:

  var
    VHandle: THandle;
  ...
  if Assigned(MyThread) then begin
    VHandle := MyThread.Handle;  
    MyThread.Terminate;
    while WaitForSingleObject(VHandle, 100) = WAIT_TIMEOUT do begin
      Application.ProcessMessages;
      // тут можно выйти из цикла, по какому-либо условию
      // например, если прошло 5 сек. с начала цикла
    end;
  end;
5
  • MyThread.WaitFor при MyThread.FreeOnTerminate := True вываливает ошибку. Если же создавать поток с MyThread.FreeOnTerminate := False то при остановке потока кнопкой, в нашем случае возникает протечка памяти.
    – HeathRow
    16 авг 2017 в 16:52
  • WaitForSingleObject(VHandle, 100) так же не выход, так как пример реализации Execute потока у меня условный, и лимит на ожидание предусмотреть невозможно
    – HeathRow
    16 авг 2017 в 16:58
  • @HeathRow не понял, чем не подходит WaitForSingleObject? Там ничего принудительно предусматривать не нужно - цикл завершится в любом случае, при уничтожении потока. Но вот если он у вас будет что-то очень долго делать, пользователю просто надоест ждать закрытия программы, вот на этот случай и есть возможность экстренного прерывания цикла.
    – zed
    16 авг 2017 в 17:03
  • @ zed пардон, это действительно работает. Единственное у меня вопрос, в не возникнет ли AV при условии если в течении 100мс, указанных в параметре WaitForSingleObject, доп. поток будет уничтожен и VHandle будет указывать на уже несуществующий объект?
    – HeathRow
    16 авг 2017 в 17:14
  • 1
    @HeathRow Если поток будет уничтожен в те 100 мс, то функция вернёт WAIT_OBJECT_0, если же он будет уничтожен до входа в эту функцию, то она вернёт WAIT_FAILED. Т.е. когда бы поток ни был уничтожен, цикл прервётся и никаких AV не будет.
    – zed
    16 авг 2017 в 17:28

Ваш ответ

By clicking “Отправить ответ”, you agree to our terms of service and acknowledge you have read our privacy policy.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.