Delphi Athens服务子线程异常终止后如何停止服务？

1. 你的操作存在的错误 #

• FreeOnTerminate := True与WaitFor冲突：设置FreeOnTerminate为True意味着线程执行完毕后会自动释放自身内存，但你在ServiceStop中调用FMainThread.WaitFor时，线程可能已经被销毁，FMainThread变成悬空指针，调用WaitFor会导致无限等待等未定义行为。
• OnTerminate中直接调用DoStop的时机错误：OnTerminate事件在服务主线程触发时，子线程的清理流程可能尚未完成，此时进入ServiceStop访问已失效的FMainThread对象，必然引发问题。
• 异常处理后未主动终止线程：子线程捕获异常后没有设置终止标记或主动退出循环，虽然线程会自然结束，但服务主线程的ServiceExecute循环会持续空转，导致服务一直处于活跃状态。

2. 实现子线程出现错误时自动终止服务的正确方式 #

调整线程生命周期管理、异常处理逻辑及服务终止流程：

修改子线程的Execute方法 #

在异常处理中主动标记线程终止，并同步通知服务主线程停止：

procedure TMainThread.Execute;
begin
  try
    while not Terminated do
    begin
      // 业务代码
      // 模拟错误：raise Exception.Create('测试错误');
      TThread.Sleep(200);
    end;
  except
    on e: Exception do
    begin
      // 错误处理：记录日志等操作
      Terminate;
      // 同步通知服务停止
      TThread.Synchronize(nil, procedure
      begin
        MainSvc.DoStop;
      end);
    end;
  end;
end;

修改服务的ServiceStart方法 #

关闭FreeOnTerminate，手动管理线程内存：

procedure TMainSvc.ServiceStart(Sender: TService; var Started: Boolean);
begin
  FMainThread := TMainThread.Create(True);
  FMainThread.FreeOnTerminate := False; // 改为手动释放
  FMainThread.Start;
  Started := True;
end;

修改服务的ServiceStop方法 #

先终止子线程，等待其结束后再释放对象：

procedure TMainSvc.ServiceStop(Sender: TService; var Stopped: Boolean);
begin
  if Assigned(FMainThread) then
  begin
    FMainThread.Terminate;
    FMainThread.WaitFor;
    FMainThread.Free;
    FMainThread := nil;
  end;
  Stopped := True;
end;

移除OnTerminate事件绑定 #

已通过异常处理同步触发服务停止，无需依赖OnTerminate事件。

3. 为何子线程已进入OnTerminate，但ServiceStop中检查显示未终止？ #

• 线程生命周期时序问题：OnTerminate触发时，子线程刚执行完Execute方法，内部清理流程尚未完全完成，Finished属性可能还未被设置为True；而CheckTerminated返回的是线程的终止标志（Terminated属性），并非线程是否已经结束。
• FreeOnTerminate导致对象失效：由于设置了FreeOnTerminate := True，OnTerminate触发时子线程对象可能已被自动释放，此时FMainThread是悬空指针，访问它的属性得到的是随机内存值，并非真实的线程状态，所以会显示“未终止”。

内容的提问来源于stack exchange，提问作者lorife