用Delphi编写Windows服务(Service)

最新推荐文章于 2023-06-16 21:17:01 发布

luoyanqing119

最新推荐文章于 2023-06-16 21:17:01 发布

阅读量996

点赞数

CC 4.0 BY-SA版权

文章标签： delphi service windows 工作 exception application

本文链接：https://blog.youkuaiyun.com/luoyanqing119/article/details/2885208

本文介绍如何使用Delphi创建Windows服务程序。通过简单的步骤和示例代码，展示如何搭建服务框架、实现服务启动与停止逻辑及线程管理等关键功能。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

用Delphi编写Windows服务(Service)

Windows的服务是一个比较实用的功能，你的程序可以在Windows未进行登录的时候就开始运行，不受用户注销的影响，也不容易被用户误关闭。

但是编写服务也许不是一件容易的事情，幸好Delphi给我们提供了一个模板，可以很容易的编写一个标准的Windows服务程序。

首先，在Delphi内新建一个Service Application。

此时，Delphi已经给我们建好了一个Service程序的框架，我们只需要把我们的代码加到合适的位置就行了。

一般情况下，Service内需要一个线程来不断的工作，也许定时器也可以，但线程工作起来更好。

Delphi会生成一个可视化的Service容器，你可以一些必要的控件在它上面，但是由于它是服务程序，是没有界面显示的，因此不建议在上面安放Edit之类的控件，服务只是应该做处理工作的，显示界面应该由其它的程序来完成。Service控件的DisplayName属性是显示在管理工具-》服务的左边的名称的内容，而Name属性则是服务名称，当你用命令提示符来启动、停止服务时，就需要用到。

在事件OnStart内，我们应该完成启动线程的工作。

如：

procedure TS2HConv.ServiceStart(Sender: TService;
var Started: Boolean);
var Reg:TRegistry;
LogFileName,LogPath:String;
slTemp:TStringList;

begin

CoInitialize(nil);
Reg:=TRegistry.Create;
Reg.RootKey:=HKEY_LOCAL_MACHINE;
Reg.OpenKey('/SoftWare/BHome/Education',True);
LogPath:=Trim(Reg.ReadString('LogPath'));
SourceConnStr:=Trim(Reg.ReadString('SourceConnStr'));
if Trim(LogPath)='' then
LogPath:='C:/';
Reg.CloseKey;
Reg.Free;

if RightStr(LogPath,1)<>'/' then
LogPath:=LogPath+'/';
LogFileName:=LogPath+FormatDateTime('yyyymmdd',Now)+'Log.txt';
Try
if not FileExists(LogFileName) then begin
slTemp:=TStringList.Create;
slTemp.Clear;
slTemp.SaveToFile(LogFileName);
slTemp.Free;
end;
AssignFile(LogFile, LogFileName);
Append(LogFile);
Except
Started:=False;
Exit;
End;
Started:=True;

try
AC_Source:=TADOConnection.Create(nil);
Q_Source:=TADOQuery.Create(nil) ;
Q_Source.Connection:=AC_Source;

try
AC_Source.Close;
AC_Source.ConnectionString:=SourceConnStr;
AC_Source.Open;
SYSLog('与源数据库连接成功！');
DBOK:=True;
Except
on E:Exception do begin
DBOK:=False;
SYSLog('数据库连接失败！'+E.Message);
end;
End;

MyPHSThread := TPHSSendThread.Create();
MyPHSThread.FreeOnTerminate:=True;
MyPHSThread.Priority:= tpLower ;

end;

在OnStop事件内，我们应该停止线程，并释放打开的资源，需要注意的是当你停止线程时，一般用Terminate方法，在线程内用Terminated属性来判断是否需要结束线程，而由于是线程，和主进程是时间运行的，有可能你刚好在进行Terminate时，线程已经刚进行过Terminated判断，正在进行比较费时的处理工作，而此时主进程立即执行Terminate后就进行释放资源的工作时，会造成线程执行错误，因此应该等到线程真正的正确停止后，主进程才能进行资源释放工作。

如：

procedure TS2HConv.ServiceStop(Sender: TService;
var Stopped: Boolean);
begin
try
MyPHSThread.Terminate;
while __ThreadIsRun do
sleep(1000);
AC_Source.Close;
CloseFile(LogFile);
FreeAndNil(Q_Source);
FreeAndNil(AC_Source);
CoUnInitialize;
Except
End;
Stopped:=True;
end;