multithreading - 如果主线程完成，我是否必须向匿名线程发出退出信号？

Question

这个问题已经有答案了:

Is it necessary to explicitly stop all threads prior to exiting a Win32 application? (5 个回答)

已关闭 8 年前。

假设我有一个匿名线程进行一些后台处理:

procedure TForm1.FormCreate(Sender: TObject);
begin
  TThread.CreateAnonymousThread(procedure begin
    while True do begin
      Sleep(500);
      OutputDebugString('I am alive');
    end;
  end).Start;
end;

该线程不与主线程共享任何资源，它只是坐在那里并“永远”运行。

因为没有像 Terminate 这样的内置机制for anonymous threads ，这是否意味着当进程的主线程退出时我不必通知线程？

如果您刚刚启动一个新的 VCL 应用程序并将上面的代码粘贴到 FormCreate 事件中，它将写入 I am alive每半秒显示一次调试消息。当应用程序退出时(即通过关闭表单)，线程似乎也退出了，尽管它不检查任何信号。

可以吗，或者我必须使用 TEvent 来实现一些信号吗？或者类似的通知线程？

还是写一个自定义的TThread更好后代并保留对线程的引用 Thread.Free稍后再做吗？

Answer 1

您需要终止您创建的任何线程，甚至是匿名线程，例如:

procedure TForm1.FormCreate(Sender: TObject);
begin
  TThread.CreateAnonymousThread(procedure begin
    while not Application.Terminated do begin // <--
      Sleep(500);
      OutputDebugString('I am alive');
    end;
  end).Start;
end;