服务是有状态的，当我们使用windows自带的服务管理程序sc.exe查看服务状态时可以显示服务的当前状态，这个状态是由我们在程序代码中进行控制的。你最好在服务初始化的时候将服务设置为SERVICE_START_PENDING，当初始化完毕时设为SERVICE_RUNNING，这些状态是系统自定义的状态，可通过msdn查看其他状态。这个状态信息你会在sc.exe中看到。
在编写windows服务程序过程中你需要关注的函数有：
1.首先是main函数，由于windows服务不需要界面，所以大部分程序为win32控制台应用程序，所以程序主函数为main 而不是WinMain()。在主函数要做的主要工作就是初始化一个SERVICE_TABLE_ENTRY 分派表结构体，然后调用StartServiceCtrlDispatcher()这将把调用进程的主线程转换为控制分派器。该分派器启动一个新线程，该线程运行分派表中对应于你的服务的ServiceMain（）函数。ServiceMain（）函数将在下面提到。
此过程示例代码如下：
SERVICE_TABLE_ENTRY entrytable[2]
entrytable[0].lpServiceName="testservice"
entrytable[0].lpServiceProc=(LPSERVICE_MAIN_FUNCTION)ServiceMain
entrytable[1].lpServiceName=NULL
entrytable[1].lpServiceProc=NULL
StartServiceCtrlDispatcher(entrytable)
在这之后系统将自动创建一个线程去执行ServiceMain函数的内容，你应该将你要执行的任务在ServiceMain中循环，这样服务就开始运行了。
2．ServiceMain函数为void WINAPI ServiceMain（int argc, char** argv）格式的函数，函数名字可以任意定义。它的作用就是：将你需要执行的任务放到该函数中循环执行即可。这就是服务程序的工作函数。在ServiceMain执行你的任务前，需要给SERVICE_TABLE_ENTRY 分派表结构体进行赋值，注意由于此时服务还没有开始执行你的任务所以我们将服务的状态设置为SERVICE_START_PENDING，即正在初始化。我们进行如下赋值：
servicestatus.dwServiceType = SERVICE_WIN32
servicestatus.dwCurrentState = SERVICE_START_PENDING
servicestatus.dwControlsAccepted=SERVICE_ACCEPT_SHUTDOWN|SERVICE_ACCEPT_STOP
//在本例中只接受系统关机和停止服务两种控制命令
servicestatus.dwWin32ExitCode = 0
servicestatus.dwServiceSpecificExitCode = 0
servicestatus.dwCheckPoint = 0
servicestatus.dwWaitHint = 0
hstatus = ::RegisterServiceCtrlHandler("testservice", CtrlHandler)
CtrlHandler为void WINAPI CtrlHandler(DWORD request)型的函数，函数名字可以任意设定。将在下一点讲到。
Hstatus为SERVICE_STATUS_HANDLE类型的全局变量。当需要改变服务状态时SetServiceStatus（）函数需要它做为参数来标识一个服务。
3. void WINAPI CtrlHandler(DWORD request)，函数的主要功能是，接收系统传递的控制命令，比如当你通过sc.exe关闭服务时，该函数会收到SERVICE_CONTROL_STOP消息，你就可以对服务进行必要的管理。在本例子程序中就只接收SERVICE_ACCEPT_SHUTDOWN和SERVICE_ACCEPT_STOP消息，这是通过前面给servicestatus赋值设定的。
这样一个基本的服务程序就完成了。
下面贴出我的示例代码仅供参考。该代码在vs2008中调试通过。本文结束的时候会附上如何安装服务。
#include <stdio.h>
#include <Windows.h>
#define SLEEP_TIME 5000 //间隔时间
#define FILE_PATH "C:\\log.txt" //信息输出文件
bool brun=false
SERVICE_STATUS servicestatus
SERVICE_STATUS_HANDLE hstatus
int WriteToLog(char* str)
void WINAPI ServiceMain(int argc, char** argv)
void WINAPI CtrlHandler(DWORD request)
int InitService()
int WriteToLog(char* str)
{
FILE* pfile
fopen_s(&pfile,FILE_PATH,"a+")
if (pfile==NULL)
{
return -1
}
fprintf_s(pfile,"%s\n",str)
fclose(pfile)
return 0
}
void WINAPI ServiceMain(int argc, char** argv)
{
servicestatus.dwServiceType = SERVICE_WIN32
servicestatus.dwCurrentState = SERVICE_START_PENDING
servicestatus.dwControlsAccepted = SERVICE_ACCEPT_SHUTDOWN|SERVICE_ACCEPT_STOP//在本例中只接受系统关机和停止服务两种控制命令
servicestatus.dwWin32ExitCode = 0
servicestatus.dwServiceSpecificExitCode = 0
servicestatus.dwCheckPoint = 0
servicestatus.dwWaitHint = 0
hstatus = ::RegisterServiceCtrlHandler("testservice", CtrlHandler)
if (hstatus==0)
{
WriteToLog("RegisterServiceCtrlHandler failed")
return
}
WriteToLog("RegisterServiceCtrlHandler success")
//向SCM 报告运行状态
servicestatus.dwCurrentState = SERVICE_RUNNING
SetServiceStatus (hstatus, &servicestatus)
//下面就开始任务循环了，你可以添加你自己希望服务做的工作
brun=true
MEMORYSTATUS memstatus
char str[100]
memset(str,'\0',100)
while (brun)
{
GlobalMemoryStatus(&memstatus)
int availmb=memstatus.dwAvailPhys/1024/1024
sprintf_s(str,100,"available memory is %dMB",availmb)
WriteToLog(str)
Sleep(SLEEP_TIME)
}
WriteToLog("service stopped")
}
void WINAPI CtrlHandler(DWORD request)
{
switch (request)
{
case SERVICE_CONTROL_STOP:
brun=false
servicestatus.dwCurrentState = SERVICE_STOPPED
break
case SERVICE_CONTROL_SHUTDOWN:
brun=false
servicestatus.dwCurrentState = SERVICE_STOPPED
break
default:
break
}
SetServiceStatus (hstatus, &servicestatus)
}
void main()
{
SERVICE_TABLE_ENTRY entrytable[2]
entrytable[0].lpServiceName="testservice"
entrytable[0].lpServiceProc=(LPSERVICE_MAIN_FUNCTION)ServiceMain
entrytable[1].lpServiceName=NULL
entrytable[1].lpServiceProc=NULL
StartServiceCtrlDispatcher(entrytable)
}
如何安装服务：
运行命令提示符cmd.exe
输入sc create testservicename binpath= D:\test.exe
输入sc start testservicename 启动服务
输入sc query 会在最底部显示你的服务当前的状态
输入sc stop testservicename 停止服务
输入sc delete testservicename删除服务，该服务将在下次重启后删除，在重启之前将不能注册同一个名字的服务。
HikVision
第一步：主函数和全局定义第二步：ServiceMain
函数
第三步：处理控制请求
第四步：安装和配置服务
第五步：测试服务
Windows NT服务程序不同于一般的运行程序，它不需要NT登录进去，只需要开机进入NT系统便可以运行，一般用于系统服务方面的应用，学会编写NT服务程序对网络管理人员而言是非常重要的，Delphi作为一种高效、快速、强大的开发语言，为开发NT服务程序提供了非常便捷的方法，加上其可视化界面以及与数据库的完美结合，使我们开发与数据库有关的NT服务程序变得非常简单，下面以编写一个NT定期备份程序为例，介绍如何运用Delphi编写Windows NT的服务程序。打开Delphi编辑器，选择菜单中的File|New，在New Item中选择Service Application项，Delphi便自动为你建立一个基于TServiceApplication的新工程，TServiceApplication是一个封装NT服务程序的类，它包含一个TService1对象以及服务程序的装卸、注册、取消方法。
将TService1对象的属性做下列更改：
DisplayName与Name改为：DataBackup，ServiceStartName属性改为系统管理员用户(如DOMAIN\Administrator)和Password则输入用户密码
这样，服务程序运行时将自己以该用户的权限 *** 作NT。
这样，一个NT服务程序编写已经完成，在Delphi编辑器中选择菜单Run|Parameters，在Parameters中输入/install，程序编译运行后，一个名为DataBackup的NT服务程序已经安装好，你可以双击控制面板中的服务项目，将会看到此服务程序，只是此服务程序没有任何东西而已；在Delphi编辑器中选择菜单Run|Parameters，在Parameters中输入/uninstall，程序编译运行后，系统将会将此服务程序卸掉。
服务程序是通过控制一个线程的生成、暂停、继续、停止来达到服务目的的，因此我们必须加入一个TSession对象来编写文件自动备份代码，在Delphi编辑器中选择菜单中的File|New，在New Item中选择Thread Object项，Delphi会提示你为该TSession对象输入一个名称(输入DataCopy),Delphi便生成了一个基于TSession的DataCopy对象，并提供了一个Execute过程供重载，我们要Execute过程中输入以下程序：
var
Hour, Min, Sec, MSec: Word
TimeStamp, DirectoryEdit1, DirectoryEdit2: String
SearchRec: TSearchRec
Source, Temp, Dest: Pchar
F, F1: THandle
FF, FF1: WIN32_FIND_DATA
Begin
// 每次文件备份执行时间
TimeStamp:= '12:00'
// 文件备份源目录
DirectoryEdit1:= 'C:\temp'
// 文件备份目录
DirectoryEdit2:= 'C:\temp1'
While True do
Begin
DecodeTime(Time, Hour, Min, Sec, MSec)
IF Trim(TimeStamp) = Format('%-2.2d:%-2.2d',[Hour, Min]) then
Begin
GetMem(Source, 250)
GetMem(Dest, 250)
GetMem(Temp, 250)
StrPcopy(Dest, DirectoryEdit2 + '\' + FormatDateTime('YYYYMMDD', Date))
CreateDirectory(Dest, Nil)
IF FindFirst(DirectoryEdit1 + '\*.*', faAnyFile, SearchRec) = 0 then
Begin
Repeat
StrPcopy(Source, DirectoryEdit1 + '\' + SearchRec.Name)
StrPcopy(Dest, DirectoryEdit2+'\' + FormatDateTime('YYYYMMDD', Date) + '\' + SearchRec.Name)
CopyFile(Source, Dest, False)
Until FindNext(SearchRec) <>0
end
SysUtils.FindClose(SearchRec)
FindClose(F)
FreeMem(Source, 250)
FreeMem(Dest, 250)
FreeMem(Temp, 250)
end
Sleep(60000)
end
end
此线程执行时每隔一分钟将检查一次时间，看是否到了备份时间，如果是则将DirectoryEdit1中的所有文件拷到DirectoryEdit2目录中去。
现在编写服务控制DataCopy线程的代码，在TdataBackup对象中的OnStart、OnStop、OnPause、OnContinue事件中分别输入如下代码：
Procedure TDataBackup.DataBackupStart(Sender: TService
var Started: Boolean)
begin
DataThread:= TDataCopy.Create(False)
Started := True
end
procedure TDataBackup.DataBackupStop(Sender: TService
var Stopped: Boolean)
begin
DataThread.Terminate
Stopped := True
end
procedure TDataBackup.DataBackupPause(Sender: TService
var Paused: Boolean)
begin
DataThread.Suspend
Paused := True
end
procedure TDataBackup.DataBackupContinue(Sender: TService
var Continued: Boolean)
begin
DataThread.Resume
Continued := True
end
这样一个文件自动备份程序已经完成，编译好后，加上/install参数执行程序，系统会将此服务程序安装，由于服务程序中StartType属性为stAuto，NT每次启动时，此程序自动执行，你可以在控制面板中的服务项目来启动、暂停、恢复、停止它，也可以加上/uninstall参数执行程序来卸掉它。通过上述例子我们可以看到，用Delphi编写NT服务器程序十分方便，而且你也可以在TService对象上加许多非可视化控件来与数据库关联，实现很多复杂的功能。
欢迎分享，转载请注明来源：内存溢出
微信扫一扫
支付宝扫一扫
评论列表（0条）