Delphi中带有数据库连接的Windows服务

我只想要一个关于情况的小费。

我创build了一个Windows服务来完成我的应用程序的任务pipe理。

该服务连接到数据库（Firebird）并调用执行任务pipe理的组件。

该过程工作正常，但是，在Windows 10中，服务不会在重新启动计算机后自动启动。 在其他版本的Windows中，一切正常。 在testing中，我发现如果我对调用任务执行的方法发表评论，服务通常从Windows 10开始。

• 我怎样才能用Perl来操作本地数据库？
• 数据库或文件处理
• 数据库接口
• 我应该使用什么数据库来部署WPF应用程序？
• 为什么Win32 :: ODBC在Perl 5.10和Cygwin下找不到ODBC.dll？

Procedure TDmTaskService.ServiceExecute(Sender: TService); Begin Inherited; While Not Terminated Do Begin //Process; Sleep(3000); ServiceThread.ProcessRequests(False); End; End; 

问题是组件或服务中没有任何exception。

通过分析Windows事件监视器，我发现与我的服务发生的错误是超时，在这种情况下服务无法连接到服务pipe理器的时间限制。 没有更多的例外生成。

有没有人有任何关于在Delphi中连接到数据库的Windows服务？

我的源代码示例：

 **Base class:** unit UnTaskServiceDmBase; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, SvcMgr, Dialogs; type TDmTaskServicosBase = class(TService) private { Private declarations } public function GetServiceController: TServiceController; override; { Public declarations } end; var DmTaskServiceBase: TDmTaskServicosBase; implementation {$R *.DFM} procedure ServiceController(CtrlCode: DWord); stdcall; begin DmJBServicosBase.Controller(CtrlCode); end; function TDmTaskServicosBase.GetServiceController: TServiceController; begin Result := ServiceController; end; end. **Service Class:** Unit UnTaskServiceDm; Interface Uses Windows, Messages, SysUtils, Classes, Graphics, Controls, SvcMgr, Dialogs, UnJBTask, UnJBReturnTypes, UnJBUtilsFilesLog, UnTaskServiceDmConfig, UnTaskServiceDmConnection, ExtCtrls, IniFiles; Type TDmTaskService = Class(TDmTaskServicosBase) Procedure ServiceExecute(Sender: TService); Procedure ServiceCreate(Sender: TObject); Procedure ServiceStop(Sender: TService; Var Stopped: Boolean); Private FTaskServiceConfig: TDmTaskServiceConfig; FStatus: TResultStatus; FDmConnection: TDmTaskServiceConnection; FJBTask: TJBTask; FLog: TJBUtilsFilesLog; Procedure ExecuteTasksSchedule; Procedure UpdateServiceInformation; Procedure Process; Procedure UpdateConnection; Public Function GetServiceController: TServiceController; Override; End; Implementation {$R *.DFM} Procedure ServiceController(CtrlCode: DWord); Stdcall; Begin DmTaskService.Controller(CtrlCode); End; Procedure TDmTaskService.UpdateConnection; Begin Try FDmConnection.SqcCon.Connected := False; FDmConnection.SqcCon.Connected := True; FLog.Adicionar('Conexão com banco restabelecida.'); FLog.FinalizarLog; Except On E: Exception Do Begin FLog.Adicionar('Erro ao restabelecer conexão com o banco de dados.' + sLineBreak + sLineBreak + E.Message); FLog.FinalizarLog; End; End; End; Procedure TDmTaskService.UpdateServiceInformation; Begin Inherited; Try Try FTaskServiceConfig.Load; FLog.Adicionar('Dados registro serviço.'); FLog.Adicionar('Nome: ' + FTaskServiceConfig.ServiceName); FLog.Adicionar('Descrição: ' + FTaskServiceConfig.ServiceDescription); If (FTaskServiceConfig.ServiceName <> EmptyStr) And (FTaskServiceConfig.ServiceDescription <> EmptyStr) Then Begin Name := FTaskServiceConfig.ServiceName ; DisplayName := FTaskServiceConfig.ServiceDescription; End; FTaskServiceConfig.Close; Except On E: Exception Do Begin FLog.Adicionar('Erro adicionar dados registro serviço.'); FLog.Adicionar('Erro ocorrido: ' + sLineBreak + sLineBreak + E.Message); End; End; Finally FLog.Adicionar('Name: ' + Name); FLog.Adicionar('DisplayName: ' + DisplayName); FLog.FinalizarLog; End; End; Procedure TDmTaskService.Process; Begin Try If FDmConnection.SqcCon.Connected Then Begin ExecuteTasksSchedule; End Else UpdateConnection; Except On E: Exception Do Begin FLog.Adicionar('Ocorreu um erro ao checar as tarefas.' + sLineBreak + 'Erro ocorrido: ' + sLineBreak + E.Message); FLog.FinalizarLog; UpdateConnection; End; End; End; Procedure TDmTaskService.ExecutarTarefasAgendadas; Begin If FJBTask.ExistTaskDelayed Then Begin Try FJBTask.ExecuteTasks; Except On E: Exception Do Begin FLog.Adicionar('Ocorreu um erro ao executar as tarefas agendadas.' + sLineBreak + 'Erro ocorrido: ' + sLineBreak + E.Message); FLog.FinalizarLog; UpdateConnection; End; End; End; End; Function TDmTaskService.GetServiceController: TServiceController; Begin Result := ServiceController; End; Procedure TDmTaskService.ServiceCreate(Sender: TObject); Begin Inherited; Try FLog := TJBUtilsFilesLog.Create; FLog.ArquivoLog := IncludeTrailingPathDelimiter(FLog.LogFolder) + 'TaksService.log'; FDmConnection := TDmTaskServiceConexao.Create(Self); FDmConnection.Log := FLog; FJBTask := TJBTarefa.Create(Self); FJBTask.SQLConnection := FDmConnection.SqcConexao; FTaskServiceConfig := TDmTaskServiceConfig.Create(Self); FTaskServiceConfig.SQLConnection := FDmConnection.SqcConexao; FStatus := FDmConnection.ConfigurouConexao; If FStatus.ResultValue Then Begin UpdateServiceInformation; End Else Begin FLog.Adicionar(FStatus.MessageOut); FLog.FinalizarLog; End; Except On E: Exception Do Begin FLog.Adicionar('Não foi possível iniciar o serviço.' + sLineBreak + 'Erro ocorrido: ' + sLineBreak + sLineBreak + E.Message); FLog.FinalizarLog; Abort; End; End; End; Procedure TDmTaskService.ServiceExecute(Sender: TService); Begin Inherited; While Not Terminated Do Begin Process; Sleep(3000); ServiceThread.ProcessRequests(False); End; End; Procedure TDmTaskService.ServiceStop(Sender: TService; Var Stopped: Boolean); Begin Inherited; If Assigned(FDmConnection) Then Begin FLog.Adicionar('Finalizando serviço.'); FLog.Adicionar('Fechando conexão.'); Try FDmConnection.SqcConexao.Close; Finally FLog.FinalizarLog; End; End; End; End. 

 ** Note **: If the ServicesPipeTimeout entry does not exist, you must create it. To do this, follow these steps: 

 Procedure TForm3.JBButton3Click(Sender: TObject); Const CKeyConfigTimeout = 'SYSTEM\CurrentControlSet\Control'; CValueConfigTimeout = 'ServicesPipeTimeout'; Var LReg: TRegistry; Begin LReg := TRegistry.Create; Try LReg.RootKey := HKEY_LOCAL_MACHINE; LReg.OpenKey(CKeyConfigTimeout, False); LReg.WriteInteger(CValueConfigTimeout, 120000); Finally LReg.CloseKey; FreeAndNil(LReg); End; End;