|
下面跟踪TServiceApplication.Run的代码，可以发现TServiceApplication首先解析运行参数，实现了服务的Install和Uninstall。然后，初始化一个ServiceStartTable数组，该数组包含了各个service对象的服务名称和运行入口；最后创建一个TServiceStartThread 对象，该对象是一个线程对象，从线程调用API：StartServiceCtrlDispatcher来启动ServiceStartTable中指定的若干个服务；而ServiceApplication主线程就不断循环，处理消息，比如接收请求来停止/暂停某个服务。 三、TService TService类继承自类 TDataModule，这意味着我们可以加入大量的VCL控件，实现丰富的功能。此外，我们还可以处理OnStart，OnPause，OnStop，OnContinue，OnCreate，OnShutDown等事件。其中需要说明的是：OnStop表示该服务被停止；而OnShutDown表示该ServiceApplication停止运行，这意味着其他服务也被终止了；两者含义是不一样的。 前面讲过，ServiceApplication通过调用StartServiceCtrlDispatcher来启动各个服务。StartServiceCtrlDispatcher启动TService的入口，该入库就是TService.Main。TService.Main首先注册该服务，然后调用TService.DoStart。TService.DoStart创建一个内部TServiceThread成员对象，这是一个线程对象；考察TServiceThread.Execute可以得知，当我们处理的TService1. OnExecute，那么TService会把所有的请求委托给该TServiceThread成员对象处理，该对象以默认的方式处理所有的请求。 TService. ServiceExecute是TService的主体内容。一个服务要正常运行，除了需要处理它要关注的目标（比如监听某个端口、执行某个任务等）外，还要响应外部命令/请求：比如终止、暂停、恢复该服务。因此可以考虑创建一个专门的线程来完成该任务，而在ServiceExecute中处理外面命令/请求。因此代码如下： while not Terminated do begin ServiceThread.ProcessRequests(False); end; 当然，也可以在OnExecute中处理某些任务，如监听某个端口，但是这常常会导致该Service不能及时响应Stop/Pause等请求。当OnExecute执行完了，该服务实际上就完成了任务要结束了（terminate）。 |
正在阅读：用Delphi编写Win2000服务程序用Delphi编写Win2000服务程序
2004-04-09 15:18
出处：CSDN
责任编辑：sdq
键盘也能翻页，试试“← →”键
