如何让Windows SCM在失败时重启我的服务
我有一些我用delphi编写的
Windows服务,它们通常工作得很好,但有时我会得到一个可以被视为致命的异常抛出.发生这种情况时,该服务旨在停止.
我的问题是如何以这样的方式退出服务,即SCM将自动尝试重新启动服务. (我已经在服务管理器中设置了服务的恢复选项) MSDN州
我已经阅读了这篇文章Using the Automatic Recovery Features of Windows Services,但我不知道如何在delphi中实现这一点. 我已经尝试了以下几点 >将TService的ErrCode属性设置为非零值. 编辑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;
如果SCM失败,SCM将重新启动您的服务.但是,Delphi服务中的所有正常终止模式都不算失败.如果您可以从未处理的主服务线程引发异常,那么这将被视为失败.
但是,我认为强制进程终止被视为失败的最简单方法是调用ExitProcess.您可以同样调用Delphi RTL函数Halt,它最终将调用ExitProcess.但是,由于您的进程可能处于不良状态,我倾向于直接使用ExitProcess. 正如已经评论过的那样,首先避免例外将是理想的解决方案. (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |