Delphi 服务监听 TCP 或 UDP答案

【问题标题】：Delphi Service to Listen to TCP or UDPDelphi 服务监听 TCP 或 UDP
【发布时间】：2013-07-25 18:22:56
【问题描述】：

阅读这个问题： Delphi Windows Service Design，我看到大多数设计师在TService 的OnExecute 或TThread 方法中使用下面的代码，以保持服务活着。

while not Terminated do
begin
  // do something
end;

但是，如果我需要（并且我确实）创建一个服务来响应（使用 Indy）主应用程序发送的消息以发回一些身份验证数据，我该怎么处理这段代码，忽略它或在里面放一些Sleep()？

【问题讨论】：

你不需要实现TService类的OnExecute事件方法。这是可选的。
TLama 是对的。最好不要使用OnExecute 事件。您应该将该逻辑移至在OnStart 事件中启动并在OnStop 事件中终止的单独工作线程。如果根本没有分配OnExecute，TService 将为您响应 SCM 请求。但是如果分配了OnExecute，则需要手动调用ServiceThread.ProcessRequests()，当OnExecute退出时服务会自行停止。

标签： delphi windows-services udp delphi-xe3

【解决方案1】：

Indy 的TIdTCPServer 和TIdUDPServer 组件是多线程的，因此您根本不需要使用TService.OnExecute 事件。您可以在TService.OnStart 事件中激活它们并在TService.OnStop 事件中停用它们，然后根据需要将处理程序分配给TIdTCPServer.OnExecute 和TIdUDPServer.OnUDPRead 事件。这两个事件都已为您循环播放，因此您不需要在其中添加 while not Terminated 循环。只需根据需要读取/处理一个请求，然后退出，并等待下一个事件重复。让服务器处理引发的任何异常。请记住，TIdUDPServer 的 ThreadedEvent 属性默认为 False，因此您应该在服务中将其设置为 True。

【讨论】：

我应该使用 UDPRead 上的AThread: TIdUDPListenerThread; 来指向另一个要启动的函数，而不是在 UDPRead 中进行编码吗？有什么区别？
我不明白你在问什么。 AThread 参数仅指定哪个内部线程正在接收数据。它主要仅用于访问TIdUDPListenerThread.Server 和TIdUDPListenerThread.Data 属性。 ABinding 参数指定接收数据的TIdUDPServer.Binding 套接字，因此您可以从中获取 Peer 信息，并在同一个套接字上发送回复。您是决定直接在 OnUDPRead 事件处理程序中编写逻辑还是委托给另一个函数，这取决于您。