Delphi服务无法启动

Question

我在Delphi中编码的服务有问题。 它还没有开始，我似乎找不到它的问题。 2周前，它运行良好，并且没有对服务进行任何更改，但突然停止了工作。 该服务负责更新大型系统，但与if是否无关。 我的服务获取修补程序的URL，然后下载并执行。 仅此而已。 应该更新的系统在后台运行其他一些服务和内容，因此它有一个小工具可以一次重新启动所有后台内容（包括我的服务）。 在我的办公室里，每天有70台左右的计算机运行孔系统（包括我的服务），并且运行良好。 我们几乎拥有所有版本的Windows（XP，Windows 7，Windows 8，Windows Server 2003甚至Windows 10）。 突然有一天，它停止使用我告诉您的这个小工具重新启动。 我想到的第一件事是尝试手动启动它，但是也没有运气。 我最大的问题是，我不知道会发生什么。 我可以看到某种日志的唯一地方是Windows事件管理器，它根本没有帮助。 错误提示：

The XXX service failed to start due to the following error: The service did not respond to the start or control request in a timely fashion.

我已经在网上搜索了，找不到任何有用的信息。 与该错误相关的所有页面均表示此错误与Windows服务超时有关，或者与NetFramework 1.1和Windows 2003 Server有关。 事实并非如此，我们在某些崩溃的计算机中安装了NetFramework 4，并对其进行了最后更新，正如我告诉您的那样，它可能在不同版本的Windows中崩溃。 关于超时，我在服务管理器中单击启动后立即显示错误，它不会等待30秒超时。

我在服务中有一个日志机，但没有用，该错误发生在“ ServiceStart”方法之前的某个位置。 我有以下代码：

procedure TMyService.ServiceStart(Sender: TService; var Started: Boolean);
begin
    try
    LogFile.Write('TTMyService.ServiceStart'); //This is my logging machine
    Started := True;
    InitializeService; //Sets some variables
    InitializeTimer; //Start a timer where all the magic happens
  except
     on e:Exception Do
      LogFile.Write('TTMyService.ServiceStart - ' + e.Message);
   end;
end;

这不记录任何内容，甚至不记录“ TMyService.ServiceStart”。 我有一个想法，但它也不起作用，就是替换TApplication VCL类。 我将“ Vcl.SvcMgr”文件的所有内容复制到一个新文件中，并按如下方式对其进行了修改（我只添加了LogFile.Write Stuff）：

procedure TServiceApplication.Run;
var
  ServiceStartTable: TServiceTableEntryArray;
  ServiceCount, i, J: Integer;
  StartThread: TServiceStartThread;
begin
{$IF NOT DEFINED(CLR)}
  AddExitProc(DoneServiceApplication);
{$ENDIF}
  if FindSwitch('INSTALL') then
    RegisterServices(True, FindSwitch('SILENT'))
  else if FindSwitch('UNINSTALL') then
    RegisterServices(False, FindSwitch('SILENT'))
  else
  begin
    Vcl.Forms.Application.OnException := OnExceptionHandler;
    ServiceCount := 0;
    for i := 0 to ComponentCount - 1 do
      if Components[i] is TService then Inc(ServiceCount);
    SetLength(ServiceStartTable, ServiceCount + 1);
{$IF NOT DEFINED(CLR)}
    FillChar(ServiceStartTable[0], SizeOf(TServiceTableEntry) * (ServiceCount + 1), 0);
{$ENDIF}
    J := 0;
    for i := 0 to ComponentCount - 1 do
      if Components[i] is TService then
      begin
{$IF DEFINED(CLR)}
        ServiceStartTable[J].lpServiceName := Components[i].Name;
        ServiceStartTable[J].lpServiceProc := ServiceMainDelegate;
{$ELSE}
        ServiceStartTable[J].lpServiceName := PChar(Components[i].Name);
        ServiceStartTable[J].lpServiceProc := @ServiceMain;
{$ENDIF}
        Inc(J);
      end;
    StartThread := TServiceStartThread.Create(ServiceStartTable);
    try
      while not Vcl.Forms.Application.Terminated do
      try
        Vcl.Forms.Application.HandleMessage;
      except
        on E: Exception do
        begin
          LogFile.Write('TServiceApplication.Run - ' + e.Message);
          DoHandleException(E);
        end;
      end;
      Vcl.Forms.Application.Terminate;
{$IF DEFINED(CLR)}
      DoneServiceApplication;
{$ENDIF}
      if StartThread.ReturnValue <> 0 then
      begin
        LogFile.Write('TServiceApplication.Run - ' + SysErrorMessage(StartThread.ReturnValue));
        FEventLogger.LogMessage(SysErrorMessage(StartThread.ReturnValue));
      end;
    finally
      StartThread.Free;
    end;
  end;
end;

Sorry, I don't know how to mark my changes in bold or in red to make it easier for you to see them

这是可行的，现在我可以获得一些“有用的”日志，但它也无济于事。 我得到：

TServiceApplication.Run - The parameter is incorrect

而且该服务将不再存在于我的计算机中（仍在运行）。 到目前为止，我确定有15台计算机无法正常工作，并且我无法尝试其他65台计算机。不知何故，在我正在开发服务的计算机上，如果我评论“ Tapplication “ 变化。

我遇到的另一个问题是，我无法在损坏的机器上进行尽可能多的测试，因为它们正在被其他人使用，而我要求他们进行的每项测试都停止了工作……

在忘记之前，不知道它是否相关，但是要获取此修补程序的URL，该服务（在我的机器中）连接到IIS上托管的本地Web服务。

有任何想法吗？ 这足够清楚吗？ 您有任何疑问，请问他们！ ：D我真的迷路了，这个优先级很高：'（

提前致谢！ 尼古拉斯·洛佩斯（NicolásLópez）

新数据1：

在“新测试”中，在其中一台计算机中重新安装服务，以解决此问题。 但是，如果不知道问题的原因，那是没有用的。

Answer 1

您的日志消息TServiceApplication.Run - The parameter is incorrect意味着StartThread.ReturnValue为87（ ERROR_INVALID_PARAMETER ）。 唯一可能发生的方法是，如果由TServiceStartThread.Execute()调用StartServiceCtrlDispatcher()失败。 StartServiceCtrlDispatcher()仅采用1个参数TServiceApplication.Run()设置的ServiceStartTable数组。 该数组包含用于接收SCM消息的服务名称和Main()回调。 因此，该数组出了点问题，您需要找出它是什么。 在调用StartServiceCtrlDispatcher()之前，它可能未正确填充或已损坏。

要诊断您的问题，您将必须使用IDE调试器逐步执行TService启动代码。 这意味着使用调试器的“ 附加到进程”功能，因为IDE无法自动启动用于调试的服务。 您必须先向SCM发出启动命令，然后将调试器附加到生成的进程（单击附加对话框中的“显示系统进程”复选框）。 这还意味着调整项目代码以使启动延迟直到连接调试器为止。 我通常通过在循环中调用IsDebuggerPresent()在OnStart事件中进行处理，但是由于您的OnStart没有触发，因此您将不得不在启动逻辑中进行更早的延迟，例如在TApplication开始初始化之前，在主DPR中进行延迟。 TService对象。

到目前为止，在此讨论中没有足够的信息来这里的任何人为您诊断问题。

Answer 2

我遇到了类似的问题：

• XXX服务由于以下错误而无法启动：该服务未及时响应启动或控制请求。

• 从未触发过的TService.OnStart或TService.OnExecute事件。
• 服务的可执行文件路径（services.msc->右键单击服务->属性）设置如下： C:\\test\\TrucServer.exe /startedbyscm:A357F915-40E33CD5-trucServer

=>解决方案是重新安装服务（卸载sc.exe delete "Truc Server" ，然后安装C:\\test\\TrucServer.exe -install ）。 现在，服务的可执行文件路径设置如下： C:\\test\\TrucServer.exe ，服务正常启动。

我没有尝试在TServiceApplication类中插入日志，但是您的错误消息： TServiceApplication.Run - The parameter is incorrect似乎确认我的解决方案可能与您的问题相对应，因为在我的情况下， /startedbyscm:A357F915-40E33CD5-trucServer参数似乎可以成为罪魁祸首。

我也没有尝试在Vcl.SvcMgr中跟踪错误消息。

Answer 3

就我而言，问题是TServiceDesc.displayName 。 我试图进行/install和/uninstall ，但在卸载时找不到该名称。 因为在/uninstall找不到它，所以服务器管理器也找不到它已经启动了。 因此，“服务”中的状态始终为“正在启动”。 为什么有些名字还可以，而有些名字我不能告诉。 没有什么特别的。

DisplayName := "Name DB Service";

这没用。 因此，我使exe和displayName完全相同。 不确定如何发生，但错误的原因是服务形式的名称，可执行文件的名称和DisplayName。 所有这三个一起以某种方式混合在一起。