Question

我有一些我用delphi编写的Windows服务，它们通常工作得很好，但有时候我会得到一个可以被视为致命的异常抛出。当发生这种情况时，该服务旨在停止。

我的问题是如何以这样的方式退出服务，即SCM将自动尝试重新启动服务。（我已经在服务管理器中设置了服务的恢复选项）

MSDN州

服务在终止时被视为失败，但未向服务控制器报告SERVICE_STOPPED状态。

我已阅读此博文Using the Automatic Recovery Features of Windows Services，但我不知道如何在delphi中实现这一点。

我已经尝试了以下

将TService的ErrCode属性设置为非零值。
将ServiceStop事件的已停止参数设置为false。
在servicestop事件处理程序中引发异常。

编辑2013-08-06新增代码示例

现在代码更新以显示工作示例

这是我正在使用的代码，

procedure TTestService.ServiceExecute(Sender: TService);
begin

  while not (Terminated or FFatalError) do
  begin
    ServiceThread.ProcessRequests(False);
    ReportStatus;
    Sleep(100);
  end;

  if FFatalError then
   Halt(1);

end;

FFatalError是TTestService类上的私有布尔字段，在启动时初始化为false，如果工作线程（在TTestService.ServiceStart事件中启动）以致命异常终止，则它仅设置为true。

这是工作线程的OnTerminate事件处理程序。

procedure TTestService.ThdTerm(Sender: Tobject);
var
  E : Exception;
  Thread : TThread;
begin
  Thread := TThread(Sender);

  if (Thread.FatalException <> nil) then
  begin
    E := Exception(Thread.FatalException);
    GetExcCallStack(E);

    EventLog.LogError(Thread.ClassName + ': ID:'+ IntToStr(Thread.ThreadID) +
      ' Stopped Unexpectedly!, '+ NEWLINE + E.ClassName +': ' + E.Message);
    FFatalError := True;
  end;

end;

Answer 1

如果SCM失败，SCM将重新启动您的服务。但是，Delphi服务中的所有正常终止模式都不算作 failure 。如果您可以从未处理的主服务线程引发异常，那么这将被视为失败。

但是，我认为强制进程终止被视为失败的最简单方法是调用ExitProcess。您也可以调用最终调用Halt的Delphi RTL函数ExitProcess。但是，由于你的过程可能处于不良状态，我倾向于直接进入ExitProcess。

正如已经评论过的那样，首先避免例外将是理想的解决方案。

如何让Windows SCM在失败时重启我的服务

1 个答案: