创建一个Windows Service应用程序

<script type="text/javascript"> </script> <script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>

<script type="text/javascript"> </script><script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>

创建一个 Windows Service应用 程序
--------------------------------------------------------------------------------


下载本文代码
见资源

正是由于.NET Framework的出现，才使你能够构建出在系统重新启动时自动运行的、无人参与的（unattended）应用 程序。
by Stan Schultes
技术工具箱：VB.NET, XML, ASP
Windows Service应用 程序曾经是C++ 程序员专用的领域，除非你在VB中使用了第三方工具。现在它们则成为System. ServiceProcess 命名空间下的.NET Framework类库中的主要部分，你可以随意使用任何.NET语言来构建它。 Windows Service是一种系统自动的、无人参与的 程序（仅存在于 Windows NT、2000和XP操作系统中），它能够在系统启动时开始运行。你可以通过 Service Control Manager (SCM) applet或者一些特殊的 Service-control应用（utility）来访问 Windows Service。

我将讲解如何构建一个用于监控文件改变情况的 Windows Service。FileChangeMonitor Service用于随意地编写事务日志（event-log）条目以及当文件在一段时间内没有改变时发送e-mail。这种文件监控过程在用于确保需要时进行备份、正常运转报告生成器或按时间表将文件传送到远程系统上时是非常有用的。FileChangeMonitor Service还能够发送显示 程序正常运行的综合报告。

第一步是构建一个作为将来 Service项目起始点的 Windows Service 程序的模板。打开Visual Studio.NET，用 Windows Service模板来 创建一个新的项目，将其命名为FileChangeMonitor（点此下载范例代码）。鼠标右键单击Solution Explorer（SE）中的 Service1.vb文件并将其重新命名为ChangeMonitor.vb。点击ChangeMonitor 设计界面（你会看到“To add components to your class”消息），并将其在属性窗口（按F4显示的窗口）中的的名字和 ServiceName属性均改为ChangeMonitor。

同样将属性窗口中的CanPauseAndContinue和CanShutdown属性值设置为True。 这些属性控制着该 Service 程序是否能够暂停/继续，以及在系统关闭时是否做出响应。你将在后面使用这些事件（以及Stop事件）来保存你的 Service的“状态”——即给定时间内的执行文本（execution context ）。

接下来，点击ChangeMonitor 设计窗口中的“click here to switch to code view”链接。在代码窗口中，点击左边的加号来打开名为“Component Designer generated code”的区域。在Sub Main过程（routine）中，将 ServicesToRun 赋值语句中的 Service1改为ChangeMonitor： ServicesToRun = New System. _
    ServiceProcess. ServiceBase() _
   {New ChangeMonitor()}





右键单击在SE中的FileChangeMonitor项目，选中属性，再从StartupObject下拉列表中选择Sub Main。现在你就可以开始构建你的项目了（通过使用Build | Build Solution菜单项）。

创建事件模板和过程
现在，在模板中加入一些事件过程（event-routine）的原型。你等一会儿可以将代码添加到这些 Service事件中去以便处理 Windows Service 程序中的状态变化。在代码窗口中点击Class Name combo box（位于代码窗口上面左侧的combo box），然后选中（Overrides）选项。在Method Name combo box中（位于代码窗口上面右侧的combo box），依次选中各项以便将过程原型（一个空 程序）添加到代码窗口中，比如：OnContinue、OnPause和OnShutdown。你必须在每个过程中的Method Name combo box中重新选择（Overrides）选项 。

接下来就开始构建过程模板。在你需要添加代码的ChangeMonitor.vb中创建五个子过程原型： LoadSettings()、SaveSettings()、RunCheck()、RunSummary()和Start Service()。在这个类的最顶部Imports System. ServiceProcess语句的下面，通过使用Imports语句来添加其他需要用到的命名空间：Imports System.IO
Imports System.Timers
Imports System.Web.Mail
Imports System.Reflection
Imports System.Xml.Serialization





由于你的 Service应用 程序不是一个Web项目，因此你可能需要手动将一个引用（reference）添加到Web.Mail命名空间下。右键单击SE中的FileChangeMonitor项目，从弹出菜单中选择Add Reference。在 Add Reference对话框中选择列表中的System.Web.dll条目，单击Select按钮，然后点OK。

在ChangeMonitor类的顶部、Component Designer区域的前面，添加一个用于文件检查功能的Timer对象的声明： Private WithEvents ControlTimer As Timer



然后将下面三行代码加到OnStart和OnContinue事件 程序中： Start Service()
RunCheck()
RunSummary()





当你的 Service启动时会触发OnStart事件，而当暂停后继续运行时则会触发OnContinue事件。

在Class Name combo box中选择ControlTimer，并在Method Name combo box中选择Elapsed。这样就会将ControlTimer_Elapsed事件过程原型添加到项目中了。只需添加这两个Run语句到ControlTimer_Elapsed事件过程中，然后在OnPause、OnShutdown和OnStop事件过程中添加代码来中断计时器（Timer）并保存设置： ControlTimer.Stop()
SaveSettings()





从这个简单的 程序大纲中你可以看到用于 Windows Service应用 程序的文件检查功能的控制流程是如何运作的。当其中一个事件触发时，Start Service函数便会加载设置，然后运行文件和简要检查。你可以在计时器时间到时运行检查 程序；可以用stop或pause事件来中断计时器以及保存设置。

在Start Service过程中添加代码来创建计时器，将时间间隔定为15秒（以毫秒值计），然后启动它：ControlTimer = New Timer()
ControlTimer.Interval = 15000
ControlTimer.AutoReset = True
ControlTimer.Start()





AutoReset = True属性设定使计时器在时间到时继续运行。接下来，你可以在check函数运行时添加代码来编写 Windows Application事务日志，这样你就可以看到 Service正在运行： Private Sub RunCheck()
   EventLog.WriteEntry( ServiceName & _
      " - Check", "Checking Files.")
End Sub





你可以通过 Windows中的Event Viewer(EV)应用 程序来查看事件日志中的消息。

添加一个安装 程序（Installer）
创建 Service应用 程序模板的最后一项工作是在项目中添加一个安装 程序。在它运行之前你需要首先注册这个 Windows Service 程序。切换到ChangeMonitor设计界面并打开属性窗口（如果看不到的话可以按F4），你可以看到在属性窗口下面有一个名为Add Installer的链接，点击该链接后会出现一个向导来引导你将一个名为ProjectInstaller的组件添加到当前项目中。这个向导在ProjectInstaller设计界面中放置了两个 Service控件： ServiceProcessInstaller和 ServiceInstaller。


图1. 设置 Service属性
点击 ServiceProcessInstaller控件并对Account属性进行设置。你可能希望选择LocalSystem（大多数 Service是运行在LocalSystem中的），但如果你喜欢，你还可以将它设置为一个用户帐户。点击 ServiceInstaller，将它的属性设置为DisplayName = FileChangeMonitor、 ServiceName = ChangeMonitor以及StartType = Automatic（如果你希望通过手动启动该 Service的话也可以将它设置为Manual）。

通过Build | Build Solution来构建你自己的项目，确保不存在什么错误。现在你就可以使用一个名为InstallUtil的Framework应用来安装你的 Service了。打开命令行提示（command-prompt）窗口并执行corvars.bat文件来设置环境变量（你可以下载readme文件来了解详细内容）。使用cd（change directory）命令将其导航到你项目中的/bin目录下。执行以下命令来安装你的 Service：> InstallUtil filechangemonitor.exe




现在你可以使用Control Panel的Administrative Tools菜单（Win2K 和WinXP操作系统）中的SCM applet来启动、停止、暂停以及继续运行你的FileChangeMonitor Service了 （见图1）。当你启动这个 Service后就可以使用EV来查看Application事务日志中由该 Service生成的事件了。点击F5刷新EV的显示，你会看到“Check messages every 15 seconds”。你可以使用以下命令来卸载这个 Service（先用SCM来终止 Service）： > InstallUtil filechangemonitor.exe /u




现在你可以保存该项目并将它作为以后 Service 程序的一个模板。

Service以某种状态运行（这可能是它未运行时保存的一组设定）。当 Service重新启动时，你可以加载它上次运行时的状态。一个简便的方法是使用.NET Framework中的序列化类（serialization class），如System.Xml.Serialization命名空间下的XML序列化（你也可以选择binary和SOAP序列化）。

用XML序列化保存设置
XML序列化是和用<Serializable()>属性标记的类配合使用的。右键单击SE中的FileChangeMonitor项目，从弹出的菜单中选择Add | Add Class，将该类命名为CMonitor并点击 OK。在CMonitor中添加两个类——MonitorHeader和MonitorFile: <Serializable()> Public Class MonitorHeader
   Public MonitorIntSecs As Integer
   '<other header properties>
   Public Files() As MonitorFile
End Class
<Serializable()> Public Class MonitorFile
   Public Path As String
   '<other file properties>
End Class




MonitorHeader包含控制 Service的设置，包括一组MonitorFile对象。MonitorFile对象中包含每个你想要检查进度的文件的监控设置。你可以将大多数类的属性当作Public变量来实现，因为它们只用于你的 Service项目中。查看范例代码来了解该类的完整定义。你可以在ChangeMonitor 类的模块中实现LoadSettings和SaveSettings序列化过程（见列表1）。

在用于声明设置对象和存储设置文件路径的ChangeMonitor类的顶部添加该类的私有变量：Private m_MonitorControl As New _
   MonitorHeader()
Private m_sSettingsPath As String




在调用Start Service()之前将代码添加到OnStart过程中，来完成在 Service启动之前对设置文件名进行检测。用Reflection来找到应用 程序的runtime .exe路径，并用substitute .xml作为文件的扩展名（这两个文件在同一目录下）： m_sSettingsPath = [Assembly]. _
   GetEntryAssembly.Location. _
   Replace(".exe", ".xml")





在VB.NET中assembly是一个关键字，因此在代码中你必须把它用一个方括号括起来。你需要整理Start Service()过程以便从设置文件中加载计时器间隔： If m_MonitorControl _
   .MonitorIntervalSecs > 0 Then
   ControlTimer.Interval = _
      Ctype(m_MonitorControl _
      .MonitorIntervalSecs * 1000, Double)
   ControlTimer.AutoReset = True
   ControlTimer.Start()
End If




现在，你可以实现主要的检查函数——RunCheck了（见列表2）。RunCheck负责调用RunAlarmAction并计算出Files数组中每个文件的出现次数，该文件的NextCheck代表的是当前时间之前的时间并且自从上次检查以后就没有发生过改变。RunAlarmAction负责检查AlarmAction标记、编写事务日志，然后通过SendEmail过程来发送e-mail （见列表3）。

你可以采用类似的方法，基于MonitorHeader结构的汇总设置（summary setting）来实现RunSummary和RunSummaryAction方法，构建并测试你的 Windows Service应用 程序。范例代码中还包括一个名为FileChgCtl的 Service-control应用。它主要用于调试目的，可以将自定义命令（custom command）发送到FileChangeMonitor Service中。自定义命令是一个范围在128到255之间的整数。当 Windows Service应用 程序中的OnCustomCommand事件触发时你会得到自定义命令出现的通知。

你会发现 Service 应用 程序在很多情况下是非常有用的，比如用在系统维护、监控以及其他自动的、无人照顾的操作中。 Windows Service通常会通过事务日志来记录其活动情况，但正如我所介绍的，你的 Service也可以通过发送e-mail来方便地跟踪其进展情况。构建 Windows Service应用 程序的能力使你在用 Windows构建有效的商务方案方面得以轻松地扩展。


关于作者:
Stan Schultes 是Florida州Sarasota地区的一名Web和企业应用 程序的架构师和开发人员，以及VB开发领域的MCP。Stan是VSM的一名特约编辑，定期为该杂志撰写文章。你可以访问Stan的网站www.vbnetexpert.com查看在线代码演示、更新资料以及其他信息。他的e-mail地址是stan@vbnetexpert.com。


seover="window.status='正文-- 创建一个 Windows Service应用 程序';return true">
<script type="text/javascript"> </script> <script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>

<script type="text/javascript"> </script><script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>