用 Delphi 設計 Windows 服務(Service)

bestlong

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

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

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

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

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

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

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

如：

1. procedure TS2HConv.ServiceStart(Sender: TService;var Started: Boolean);
   
2. var
   
3.   Reg:TRegistry;
   
4.   LogFileName,LogPath:String;
   
5.   slTemp:TStringList;
   
6. begin
   
7.   CoInitialize(nil);
   
8.   Reg := TRegistry.Create;
   
9.   Reg.RootKey := HKEY_LOCAL_MACHINE;
   
10.   Reg.OpenKey('\SoftWare\BHome\Education', True);
    
11.   LogPath := Trim(Reg.ReadString('LogPath'));
    
12.   SourceConnStr := Trim(Reg.ReadString('SourceConnStr'));
    
13.   if Trim(LogPath) = '' then
    
14.     LogPath := 'C:\';
    
15.   Reg.CloseKey;
    
16.   Reg.Free;
    
17. 
    
18.   if RightStr(LogPath,1) <> '\' then
    
19.     LogPath := LogPath+'\';
    
20.   LogFileName := LogPath + FormatDateTime('yyyymmdd', Now) + 'Log.txt';
    
21.   Try
    
22.     if not FileExists(LogFileName) then
    
23.     begin
    
24.       slTemp := TStringList.Create;
    
25.       slTemp.Clear;
    
26.       slTemp.SaveToFile(LogFileName);
    
27.       slTemp.Free;
    
28.     end;
    
29.     AssignFile(LogFile, LogFileName);
    
30.     Append(LogFile);
    
31.   Except
    
32.     Started := False;
    
33.   Exit;
    
34. End;
    
35. 
    
36. Started := True;
    
37. 
    
38. try
    
39.   AC_Source := TADOConnection.Create(nil);
    
40.   Q_Source := TADOQuery.Create(nil) ;
    
41.   Q_Source.Connection := AC_Source;
    
42. 
    
43.   try
    
44.     AC_Source.Close;
    
45.     AC_Source.ConnectionString:=SourceConnStr;
    
46.     AC_Source.Open;
    
47.     SYSLog('与源数据库连接成功！');
    
48.     DBOK:=True;
    
49.   Except
    
50.   on E:Exception do begin
    
51.     DBOK:=False;
    
52.     SYSLog('数据库连接失败！'+E.Message);
    
53.   end;
    
54. End;
    
55. 
    
56.   MyPHSThread := TPHSSendThread.Create();
    
57.   MyPHSThread.FreeOnTerminate := True;
    
58.   MyPHSThread.Priority := tpLower;
    
59. end;

複製代碼

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

如：

1. procedure TS2HConv.ServiceStop(Sender: TService;var Stopped: Boolean);
   
2. begin
   
3.   try
   
4.     MyPHSThread.Terminate;
   
5.     while __ThreadIsRun do
   
6.     sleep(1000);
   
7.     AC_Source.Close;
   
8.     CloseFile(LogFile);
   
9.     FreeAndNil(Q_Source);
   
10.     FreeAndNil(AC_Source);
    
11.     CoUnInitialize;
    
12.   Except
    
13.   End;
    
14.   Stopped:=True;
    
15. end;

複製代碼