delphi - 在delphi中创建Windows服务

Question

我在delphi中创建了一个Windows服务。我的代码在 ServiceExecute 中运行

procedure TMyService.ServiceExecute(Sender: TService);
 while not Terminated do
 begin
      CallSomeProcedure;  
      Sleep(1000);
      ServiceThread.ProcessRequests(false);
 end;
end;

不幸的是，我无法运行这段代码。即使在调试时我似乎也没有调用该过程。Myservice.exe 中的代码如下所示。

begin 
    if not Application.DelayInitialize or Application.Installing then
       Application.Initialize;
    Application.CreateForm(TMyService, MyService);
    Application.Run;
end.

如果我添加，我可以让 serviceExecute 运行

MyService.ServiceExecute(nil);

进入 MyService.exe，但是如果我将其安装为服务，它似乎不会运行，因为 Application.Run 不执行任何操作

不确定我做错了什么，但我们将不胜感激。

谢谢

Answer 1

您不能只从 IDE 运行服务来调试它；在这种情况下它就会退出。该服务必须由服务控制管理器启动。另外，您不应该直接调用 ServiceExecute。

这是documentation如何调试服务。