附录B创建NT服务程序.doc

附录B 创建NT服务程序
服务程序通常运行在后台,它可以使计算机更加有用。有用是相对于特定的个人或组织而言的。服务程序最好的例子是IIS服务器。当在一台高性能的服务器或PC上安装了IIS后,IIS就作为后台服务运行并向浏览您的Web站点的人们提供Web页面。同一领域的其他服务还包括FTP、服务器。事件日志和Windows Installer也都作为服务运行。
实际的程序中服务的候选者可能具有如下特征:运行时没有活动的用户输入,无论是否有人登录都需要运行。IIS是一个很好的例子。在实际开发环境中,我曾经将不断的传输并验证事务的程序作为服务来开发。
注意:Visual Basic .NET支持建立NT服务程序。
Delphi直接地支持建立Windows NT(包括Windows 2000或Windows NT )服务程序。建立NT服务的功能并非对所有工具都是固有的。例如,Microsoft Visual Basic 。附录B通过示范一个自动发送IIS日志文件的程序,讨论了建立Windows NT服务程序的基本概念。
创建服务程序
建立服务程序最容易的方法是从New Items对话框中启动Service Application。可以注意到还有一个Service项。Service可以向已有的程序添加一个TService模块,但定义新的服务时,需要选择Service Application。
当单击Service Application后,Delphi将创建一个新的工程。,首先引用了SvcMgr。另外,工程中还添加了一个包含TService类的单元。TService类继承了TDataModule,可以在其中添加非可视化控件和服务程序代码。不要在工程源文件中包括Forms和HttpApp单元。SvcMgr、Forms和HttpApp都定义了一个全局的Application对象,这会导致服务程序中出现冲突。
注意:在Forms和SvcMgr单元中确实存在全局对象Application,。关于联合使用这三个单元的警告摘自Delphi的帮助文件。当然,试验总是可以的,但应该事先预见到Application对象可能造成的冲突。
服务程序是很直观的。。该程序会等待一个预定义的时间量。然后将IIS的日志文件发送到指定的邮件接收者。该示例程序对大部分变量进行了硬编码,但从整本书中都可以看到,在外部对应用程序数据进行配置是一个相当直接的过程。例如,邮件接收者、发送的信息、以及定时器间隔都可以存储在注册表中,无需重新编译程序即可进行修改(第15章涵盖了将应用程序数据持久存储到注册表的内容,第16章则涉及了INI文件的使用,因此在这里我们不再重复该信息)。
服务程序的基本框架是由Delphi生成的,您只需编写定义服务的代码。
定义邮件发送器服务
当在服务控制管理器(即Service Control Manager或SCM,细节请参考“服务控制管理器”一节)中启动服务时,Delphi调用TService模块中的OnExecute事件