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

Question

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

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

MSDN声明

如果服务终止而未向服务控制器报告SERVICE_STOPPED状态,则认为该服务失败.

我已阅读此博客文章使用Windows服务的自动恢复功能,但我不知道如何在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服务的所有正常终止模式都不算失败.如果您可以从未处理的主服务线程引发异常,那么这将被视为失败.

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

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