⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 delp019.html

📁 对于学习很有帮助
💻 HTML
字号:
🔍 
<html><!-- #BeginTemplate "/Templates/fwolf001.dwt" -->
<head>
<!-- #BeginEditable "doctitle" --> 
<title>独孤之所 - 运用Delphi编写Windows NT中服务程序</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<!-- #EndEditable --> 
<style type="text/css">
<!--
body {  font-family: "宋体"; font-size: 9pt}
td {  font-family: "宋体"; font-size: 9pt}
a:hover {  text-decoration: underline}
a {  text-decoration: none}
input {  font-family: "宋体"; font-size: 9pt}
select {  font-family: "宋体"; font-size: 9pt}
-->
</style>
</head>


<body>
<!-- #BeginEditable "2%C7%F8" --> <!-- #EndEditable -->
<table width="584" border="0" align="center" cellspacing="1">
  <tr> 
    <td width="582"> <font color="#FF3333"> 
      <div align="center"><font size="3"><!-- #BeginEditable "%B1%EA%CC%E2" --> </font> <!-- #EndEditable --></div>
      </font> </td>
  </tr>
  <tr> 
    <td width="582"> 
      <div align="center"><font size="3"><!-- #BeginEditable "%D7%F7%D5%DF" --></font><!-- #EndEditable --></div>
    </td>
  </tr>
  <tr> 
    <td width="582"><font size="3"><!-- #BeginEditable "%CE%C4%B1%BE%C7%F8" --><center><font color="#FF3333">运用Delphi编写Windows NT中服务程序</font><br> 
        湖北省荆州市<br> 
        胡佩敏  
      </center> 
      </font> 
      <p><font color="#ffffff"><font size="3">----</font></font> <font size="3"> Windows NT服务程序不同于一般的运行程序，它不需要NT登录进去，只需要开机进入NT系统便可以运行，一般用于系统服务方面的应用，学会编写NT服务程序对网络管理人员而言是非常重要的，Delphi4.0作为一种高效、快速、强大的开发语言，为开发NT服务程序提供了非常便捷的方法，加上其可视化界面以及与数据库的完美结合，使我们开发与数据库有关的NT服务程序变得非常简单，下面以编写一个NT定期备份程序为例，介绍如何运用Delphi编写Windows  
        NT的服务程序。</font>  
      <p><font color="#ffffff"><font size="3">----</font></font> <font size="3"> 打开Delphi编辑器，选择菜单中的File|New，在New Item中选择Service  
        Application项，Delphi便自动为你建立一个基于TServiceApplication的新工程，TserviceApplication是一个封装NT服务程序的类，它包含一个Tservice1对象以及服务程序的装卸、注册、取消方法。</font>  
      <p><font color="#ffffff"><font size="3">----</font></font> <font size="3"> 将Tservice1对象的属性做下列更改：</font>  
      <pre><font size="3">
DisplayName与Name改为：DataBackup，
ServiceStartName属性改为系统管理员
用户(如DOMAIN\Administrator)和Password则输入用户密码
</font></pre>
      <p><font color="#ffffff"><font size="3">----</font></font> <font size="3"> 这样，服务程序运行时将自己以该用户的权限操作NT。</font>  
      <p><font color="#ffffff"><font size="3">----</font></font> <font size="3"> 这样，一个NT服务程序编写已经完成，在Delphi编辑器中选择菜单Run|Parameters，在Parameters中输入/install，程序编译运行后，一个名为DataBackup的NT服务程序已经安装好，你可以双击控制面板中的服务项目，将会看到此服务程序，只是此服务程序没有任何东西而已；在Delphi编辑器中选择菜单Run|Parameters，在Parameters中输入/uninstall，程序编译运行后，系统将会将此服务程序卸掉。</font>  
      <p><font color="#ffffff"><font size="3">----</font></font> <font size="3"> 服务程序是通过控制一个线程的生成、暂停、继续、停止来达到服务目的的，因此我们必须加入一个Tsession对象来编写文件自动备份代码，在Delphi编辑器中选择菜单中的File|New，在New  
        Item中选择Thread Object项，Delphi会提示你为该Tsession对象输入一个名称(输入DataCopy),Delphi便生成了一个基于Tsession的DataCopy对象，并提供了一个Execute过程供重载，我们要Execute过程中输入以下程序：</font>  
      <pre><font size="3">
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);
IFFindFirst(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)&lt; &gt;0;
              end;
            SysUtils.FindClose(SearchRec);
           FindClose(F);
           FreeMem(Source,250);
           FreeMem(Dest,250);
           FreeMem(Temp,250);
          end;
        sleep(60000);
   end;

end;
</font></pre>
      <font size="3">
      <font color="#ffffff">----</font> 此线程执行时每隔一分钟将检查一次时间，看是否到了备份时间，如果是则将DirectoryEdit1中的所有文件拷到DirectoryEdit2目录中去。</font>  
      <p><font color="#ffffff"><font size="3">----</font></font> <font size="3"> 现在编写服务控制DataCopy线程的代码，在TdataBackup对象中的OnStart、OnStop、OnPause、OnContinue事件中分别输入如下代码：</font>  
      <pre><font size="3">
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;
</font></pre>
      <font size="3">
      <font color="#ffffff">----</font> 这样一个文件自动备份程序已经完成，编译好后，加上/install参数执行程序，系统会将此服务程序安装，由于服务程序中StartType属性为stAuto，NT每次启动时，此程序自动执行，你可以在控制面板中的服务项目来启动、暂停、恢复、停止它，也可以加上/uninstall参数执行程序来卸掉它。通过上述例子我们可以看到，用Delphi编写NT服务器程序十分方便，而且你也可以在Tservice对象上加许多非可视化控件来与数据库关联，实现很多复杂的功能。  
      <!-- #EndEditable --></font></td> 
  </tr> 
  <tr> 
    <td width="582"><font size="3"><!-- #BeginEditable "%B1%B8%D7%A2" --></font><!-- #EndEditable --></td>
  </tr>
</table>
<p align="center"> 
<script language="JavaScript1.1" src=http://ad.t2t2.com/textclick.asp?user=fwolf&style=4&bkcolor=no></script>
</p>
<p align="center">&nbsp; </p>
</body>
<!-- #EndTemplate --></html>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -