Управление потоками событий в Delphi: поведение и обработка завершения потоков

Delphi , Компоненты и Классы , Потоки

Управление потоками событий в Delphi: поведение и обработка завершения потоков

Вопрос управления потоками в многозадачных приложениях на Delphi является важной темой для разработчиков. Особенно это касается ситуаций, когда приложение завершается, а фоновые потоки все еще активны. В статье мы рассмотрим, как ведут себя потоки в момент завершения основного потока приложения, и как можно контролировать этот процесс.

Описание проблемы

Представьте себе приложение на Delphi, где есть фоновый поток, выполняющий работу в цикле и периодически ожидающий события. Время ожидания может составлять несколько секунд. Пользователь может завершить работу приложения в тот момент, когда поток спит, ожидая сигнала от события. Вопрос заключается в том, что происходит с событием в такой ситуации: продолжает ли поток работу до истечения таймаута, тем самым задерживая полное завершение приложения, или же он возвращается немедленно с кодом возврата, отличным от таймаута?

Альтернативный ответ

Исходя из документации функции ExitProcess, можно предположить, что потоки, созданные и запущенные стандартным образом (через TThread.Create), завершаются сразу после завершения основного потока, без ожидания завершения цикла и без задержки завершения основного приложения.

Подтвержденный ответ

Для подтверждения этого факта можно создать приложение на Delphi с фоновым потоком, который записывает данные в файл, а затем засыпает на неопределенное время. После того как вы убедитесь, что поток спит, попробуйте принудительно завершить приложение. Вы обнаружите, что приложение завершается мгновенно, и поток также "убивается" в момент, когда он "спит".

Чтобы убедиться в этом, можно добавить раздел финализации в определение класса потока:

type
  TTThread = class(TThread)
  private
    msg: string;
    ctr: Integer;
  public
    procedure Execute; override;
    procedure Update;
  end;

procedure TTThread.Execute;
var
  F: TextFile;
begin
  ctr := 0;
  AssignFile(F, 'log.txt');
  Rewrite(F);
  CloseFile(F);
  while not Terminated do
  begin
    Inc(ctr);
    msg := 'Updating';
    Synchronize(Update);
    AssignFile(F, 'log.txt');
    Append(F);
    Writeln(F, IntToStr(ctr));
    CloseFile(F);
    msg := 'Sleeping';
    Synchronize(Update);
    Sleep(3000);
  end;
end;

procedure TTThread.Update;
begin
  Form1.Caption := '**********' + msg + IntToStr(ctr) + '*************';
end;

initialization
  // Инициализация
finalization
begin
  AssignFile(F, 'log.txt');
  Append(F);
  Writeln(F, 'Application out!');
  CloseFile(F);
end;

var
  T: TTThread;
procedure TForm1.Button1Click(Sender: TObject);
begin
  if not Assigned(T) then
    T := TTThread.Create(false);
end;

Этот код не является примером потокобезопасного кода, но подходит для экспериментов. Вы можете установить точку останова (breakpoint) на последнем CloseFile в разделе финализации и "задержать" его на сколько угодно, и поток не будет писать в файл снова. Это говорит нам о том, что к моменту, когда код финализации достигает этого места, владельческие потоки уже мертвы.

Это оставляет некоторые пробелы в нашем понимании, например, формально ли основная форма завершает каждый поток, но из этого вы можете понять, как проверить это. Вы можете также проверить в обработчике события OnClose формы, переопределить метод Close для вашей основной формы и т.д.

Рекомендации по управлению потоками

Для корректного завершения потоков в момент завершения основного приложения, рекомендуется добавить код в метод OnCloseQuery основной формы для аккуратного остановки всех потоков, а не дожидаться их естественного завершения. Это позволит выполнить необходимые действия в блоке "finally" каждого потока после проверки на Terminated, независимо от причины завершения потока.

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  // Код для корректного завершения потоков
  CanClose := True;
end;

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

Создано по материалам из источника по ссылке.

Управление потоками событий в Delphi требует особого внимания при завершении приложения, чтобы обеспечить корректное завершение фоновых потоков.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Потоки ::