利用VB实现国际AngelCUE离港系统的外设服务.docx
《利用VB实现国际AngelCUE离港系统的外设服务.docx》由会员分享，可在线阅读，更多相关《利用VB实现国际AngelCUE离港系统的外设服务.docx（8页珍藏版）》请在冰点文库上搜索。
利用VB实现国际AngelCUE离港系统的外设服务
利用VB实现国际AngelCUE离港系统的外设服务
杭州萧山国际机场有限公司电子信息中心（311243）赵杰
摘要国际离港系统AngelCUE平台采用了统一的外设服务监控和管理，能和这些不同型号的外设通信的是单独一个NT服务软件。
本文将主要介绍NT服务的原理，并简要介绍利用VB编程软件和NT提供的服务控件OCX，在AngelCUE平台上实现了对离港系统外设的服务
关键词外设NT服务控件VB
一、概述
1.1、外设
在离港系统中涉及到的外设主要有：
登机牌打印机（ATB）、行李牌打印机（BTP）、护照阅读器（OCR）、登机口阅读器（BGR）、网关（GWY）等这几种。
每台离港工作站和这些外设通讯，提供服务就是利用PC机上的服务程序实现的。
同时，这些服务又向AngelCUE平台提供设备实时的状态信息，确保PC机上的离港应用能正常运行。
1.2、NT服务程序
所谓NT服务，实际上就是一个可以在系统启动时自动在一定身份下启动的伴随系统长时间存在的进程。
NT服务归纳起来有以下几个特征：
A、可以自启动，不需要交互启动。
这对于服务器来说是一个重要的特征。
B、NT服务没有用户界面，基本上类似一个DOS程序，因为NT服务必须长时间运行，所以不像普通win32进程一样有自己的界面。
C、NT服务通过SCM（ServicesControlManager）接口来管理，安装、启动、停止、撤除等都需要SCM的接口功能来进行。
D、进程都以一定的身份运行，以方便进行服务器资源的存取。
E、由系统自动以线程方式运行，一般情况下不过多占用系统资源，这同普通的进程有所区别。
二、服务控件OCX
利用OCX服务控件来实现一个服务是一个不错的选择。
在MSDN中搜索Samples\msdn\techart\4920\，你可以看到一个已经编写好的vc5的工程文件，编译这个工程会得到一个ntsvc.ocx控件。
当然也可以从WEB下载一个ntsvc.ocx。
将此OCX文件拷贝到\winnt\system32\下，利用regsvr32ntsvc.ocx命令进行注册。
注册成功之后你的Vb就可以从工程\组件…引出的对话框列表中看到名为“MicrosoftNTServiceControl”项。
此控件拥有我们创建一个服务的基本的功能，如果要编写一个NT服务，我们可以将其拖进窗体，然后设定其属性，调用其与系统、注册表、SCM交互的功能就可以实现完成一个服务了。
首先简单介绍一下这个控件的属性和用法：
AccountString，账号属性，即本NT服务在哪一个NT域账号下运行，缺省是LocalSystem账号。
ControlsAcceptedLong，此服务接受哪些SCM控制，为以下值：
0允许Start以及Stop.
2允许Pause以及Continue.
4允许shutdown
其他值，用户自定义的某些事件。
利用这个属性，可以自己决定NT服务进程某个（譬如某个不可中断操作）时刻是否允许SCM停止、暂停、启动等操作。
DependenciesString，如果服务依赖于某个或者某些服务才能正常运行，您必须在注册服务时指定依赖的服务列表。
Dependencies按照依赖顺序以chr（0）来分隔多个服务，最后必须以两个chr（0）结束。
DisplayNameString，显示名，NT服务以何种名字显示给用户。
InteractiveBoolean，是否允许有同桌面用户有交互的部分。
LoadOrderGroupString，同Dependencies相关，决定如果本服务启动之前，哪些服务必须启动，格式以chr（0）分割，连续的两个chr（0）结尾。
PasswordString，服务启动的口令，如果使用缺省得账号，就没有必要设定服务启动的密码。
ServiceNameString，服务名，如果使用net.exe来控制服务，net.exe的指定那一个服务的参数就是此属性中的字符串。
StartMode枚举型，具体为：
vcStartAutomatic2服务可以自己启动
svcStartManual3服务手动启动
svcStartDisabled4服务不能自启动
另外有一个Debug属性，这里就不做讨论。
三、实现服务
我们要将一个VB程序当作一个NT服务，必须向系统作一些“申请”，而相应的工作VB是无法很好完成这样的申请的。
所以NTSVC.ocx提供了相应的方法留作我们向系统传递相关信息。
Install，将当前Vb程序安装成NT服务，在此之前，必须至少设置DisplayName,ServiceName,ControlsAccepted以及StartMode等属性。
除此之外可能还要设置Account、Password、LoadOrderGroup、
Dependencies等。
这些信息的设置正确与否，决定您的服务程序能否正常启动运行。
Uninstall,将当前NTSVC.ocx指定的服务从系统注册表中删除。
NT服务取决于系统服务注册表的设定。
StartService，将指定的服务启动，如果该服务注册了。
StopService，停止服务，如果服务正在运行。
LogEvent,记录服务事件。
服务运行中，可能发生错误以及意料不到的事件，这些可以通过此方法记录下来，供用户通过“事件察看器”察看相关的信息，以最优化服务。
此方法有三个参数event,id,message.Event指发生的事件类型，可以设为以下值：
svcEventError1错误事件
svcEventWarning2警告事件.
svcEventInformation4提供参考信息.
svcEventAuditSuccess8审计成功.
svcEventAuditFailure10审计失败
除了以上方法，可能用户还需要读写注册表，此控件还提供了注册表的访问方法：
DeleteSetting（section[,key]）
GetAllSettings（section）
GetSetting（section,key[,default]）
SaveSetting（section,key,setting）.
四、VB编写外设服务
了解以上内容，下面开始利用VB来设计一个AngelCUE平台的外设服务，通过这个简单的例子来说明如何在VB中编写服务程序。
服务的名字为vOCR，在SCM中显示为vOCR。
4.1、创建工程
所有的Vb的控件必须有一个Form作为载体，所以，首先我们创建一个标准工程，选择菜单工程－>组件，然后选取（MicrosoftNTServiceControl），这时候会在工具箱中出现NT服务控件。
再拖一个Timer控件到Form上。
然后保存一下，基本上创建过程完成。
4.2、设定NT服务控件属性
选中NtSvc.ocx实例，在属性栏中设定：
DisplayName:
vOCR，ServiceName:
：
vOCR，StartMode：
2（自动启动服务），其他的就缺省。
由于我们希望每个5秒就beep一次，所以我们必须依靠一种定时机制来实现，所以我们将timer的Interval设定位5000毫秒。
以上属性的设定视您的需要而定，我只是说在我的VBBeepSVC中如此设定足够了。
4.3、编写代码，实现服务逻辑以及服务安装、撤除。
因为服务程序实际上是一个Exe文件，并且需要自己解决安装、撤除问题，因此需要在此程序中加入利用NT服务控件来实现安装、撤除问题。
那么，应当在什么时候进行了。
VB程序启动时正时Form装载的时候，所以，我们需要在窗体的Load事件中加入一些代码：
OnErrorGoToErr_Load‘如果出现错误就纪录以供参考
DimstrDisplayNameAsString
strDisplayName=NTService1.DisplayName
IfCommand="-install"Then‘当启动时带上–install的参数时
NTService1.Interactive=True
IfNTService1.InstallThen
CallNTService1.SaveSetting（"Parameters","TimerInterval","1000"）‘系统参数存储
MsgBoxstrDisplayName&"安装成功！
"
Else
MsgBoxstrDisplayName&"安装失败"
EndIf
End‘终止安装
Else
IfCommand="-uninstall"Then‘如果启动时带上撤除参数
IfNTService1.UninstallThen
MsgBoxstrDisplayName&"撤除成功"
Else
MsgBoxstrDisplayName&"撤除失败"
EndIf
End‘终止撤除
Else
EndIf
EndIf
‘假若不是安装或撤除操作，即为启动服务
Timer1.Interval=CInt（NTService1.GetSetting（"Parameters","TimerInterval","2000"））
‘使用Timer控件来模拟服务的线程特性
NTService1.ControlsAccepted=svcCtrlPauseContinue‘接受暂停、停止操作，意味着需要为此编码
NTService1.StartService‘设置好参数后启动服务
Err_Load:
CallNTService1.LogEvent（svcMessageError,svcEventError,"["&Err.Number&"]"&
Err.Description）‘svcMessageError为NT服务控件的错误值
4、添加控制服务的代码。
尽管服务的连续线程等特性是依赖Timer实现的，但是服务的控制却是有SCM接口向每一个服务发出的，表现在VB服务程序中为NT服务控件捕获到相关的事件发生，我们就应当在这些事件中根据具体的情况响应，决定能不能、如何控制服务逻辑。
当然，具体的逻辑在Timer事件中表现，但是通过改变NT服务控件和Timer控件均支持的全局变量，可以实现控制服务的逻辑实现。
具体代码演示：
PrivateSubNTService1_Control（ByValEventIDAsLong）
OnErrorGoToErr_Control
‘在此加入一些自己的处理逻辑，当然也可以如本例一样空缺
Err_Control:
CallNTService1.LogEvent（svcMessageError,svcEventError,"["&Err.Number&"]"&Err.Description）‘纪录
EndSub
PrivateSubNTService1_Pause（SuccessAsBoolean）
OnErrorGoToErr_Pause
Timer1.Enabled=False‘禁止Timer事件，因此也停止了服务的发生
CallNTService1.LogEvent（svcEventError,svcMessageError,"Servicepaused"）
Success=True‘返回给SCM命令发出者,表示服务成功停止
Err_Pause:
CallNTService1.LogEvent（svcMessageError,svcEventError,"["&Err.Number&"]"&
Err.Description）
EndSub
PrivateSubNTService1_Start（SuccessAsBoolean）
OnErrorGoToErr_Start
Success=True
Timer1.Enabled=True‘允许服务逻辑进行
Err_Start:
CallNTService1.LogEvent（svcMessageError,svcEventError,"["&Err.Number&"]"&
Err.Description）
EndSub
PrivateSubNTService1_Stop（）
OnErrorGoToErr_Stop
UnloadMe‘撤除Form,自然Timer也不存在，服务逻辑停止了
Err_Stop:
CallNTService1.LogEvent（svcMessageError,svcEventError,"["&Err.Number&"]"&Err.Description）
EndSub
5、编写服务逻辑。
具体就是在Timer事件中，根据约定写一些服务细节。
本例中就是发出Been，但是考虑到对SCM命令的响应
，所以需要编码为：
OnErrorGoToErr_Timer
Beep‘此处即具体的服务细节
Err_Timer:
CallNTService1.LogEvent（svcMessageError,svcEventError,"["&Err.Number&"]"&
Err.Description）
EndSub
6、编译安装、测试
如果以上没有什么错误的话，现在可以编译程序了。
假设我们得到的服务程序的文件名为：
VBBeepSVC.exe,我们需要通过以下命令进行安装：
d:
\vbprog\>VBBeepSVC–install
如果需要撤除已经安装的服务，则：
d:
\vbprog\>VBBeepSVC–uninstall
安装完后，打开控制面板的“服务”（win2000中在“管理工具”）,好了，看到其中的NT服务列表中包含我们加入的服务，显示为：
“TheVBNTSVCView”，我们可以类似启动其他任何服务一样启动、停止、暂停此服务。
启动服务时，我们会听到服务发出的讨厌的beep声音。
我们的测试完成。
升级会员 