如何用 Delphi 创建系统服务程序

(1)不用登陆进系统即可运行

(2)具有SYSTEM特权所以你在进程管理器里面是无法结束它的

笔者在2003年为一公司开发机顶盒项目的时候,曾经写过课件上传和媒体服务,下面就介绍一下如何用Delphi7创建一个Service程序

运行Delphi7,选择菜单File-->New-->Other--->Service Application将生成一个服务程序的框架将工程保存为ServiceDemodpr和Unit_Mainpas,然后回到主框架我们注意到,Service有几个属性其中以下几个是我们比较常用的:

从开发平台到服务器的向上适化

适化概述

所谓适化就是将桌面应用转化为Client/Server应用

适化是一个很复杂的主题 这里不详细讲述 本节将介绍适化Delphi 应用程序中最重要的方面

适化的主要方面有

● 将数据库从桌面平台到服务器的适化

● 将应用程序转化为Client/Server的适化

适化还需要实现从桌面环境到Client/Server环境的转化

桌面数据库和SQL服务器数据库在许多方面有不同之处 例如

● 桌面数据库用于同一时刻单用户的访问 而服务器用于多用户访问

● 桌面数据库是面向记录的 而服务器是面向集合的

● 桌面数据库将每个表存储在独立的文件中 而服务器将所有的表存储在数据库中Client/Server应用必须解决更新的问题 最复杂的是联接 网络和事务控制

适化数据库

适化数据库包含下列步骤

● 在桌面数据库结构的基础上 定义服务器上的元数据

● 将数据从桌面转化到服务器中

● 解决下列问题

● 数据类型差异

● 数据安全性和完整性

● 事务控制

● 数据访问权

● 数据合法性

● 锁定

Delphi提供了两种方法适化一个数据库

● 使用Database Desktop工具 选择菜单Tools/Utilities/Copy to命令将数据库表从桌面方式拷贝到SQL格式

● 建立应用TBatchMove部件的应用程序

这两种方法都可以将表结构和数据从桌面数据源转化到服务器上 依靠这些数据库 可能需要改变结果表 例如 可能想进行不同数据类型的映射

也可以将下列特征加入数据库

● 完整性约束

● 索引

● 检测约束

● 存储过程和触发器

● 其它服务器特征

如果用SQL脚本和服务器数据定义工具定义元数据会更有效 然后用前面介绍的两种方法转移数据 因为如果是手工定义数据库表 Database Desktop和TBatchMove 部件将只拷贝数据

适化应用程序

在理论上 设计用来访问局部数据的Delphi应用程序做很少的修改就可以访问远程服务器上的数据 如果在服务器上定义适合的数据源 你就能将应用程序指向访问它 这只需简单地改变应用程序中TTable或TQuery部件的DatabaseName属性

实际上 在访问局部和过程数据源之间有许多重要的不同之处 Client/Server应用程序必须解决大量的在桌面应用中所没有的问题

任何Delphi应用程序都能用TTable或TQuery部件访问数据 桌面应用程序通常都是使用TTable部件 当适化到SQL服务器上时 用TQuery会更有效 如果应用程序要检索大量记录 则TQuery部件要略胜一筹

如果应用程序使用统计或数学函数 那么在服务器上通过存储过程执行这些函数会更有效 因为存储过程执行更快 使用存储过程还可以减少网络负载 特别是大量行数据的函数

例如 计算大量记录的标准差

● 如果该函数在客户端执行 所有的值从服务器上检索出来并送到客户端 导致网络拥塞

● 如果该函数在服务器端执行 则应用程序只需要服务器上的答案

Delphi客户/服务器应用实例分析

本节中采用的实例是Delphi 数据库的例子CSDEMO CSDEMO是Delphi客户/服务器编程的示例程序 它采用的数据库服务器是Local InterBase Server

CSDEMO较好地示范了BDE环境的配置 InterBASE Server高级功能应用 SQL服务器联接 触发器应用 存储过程编程和事务控制技术等 具有较高的参考价值 本节讲述下列内容

● 数据库环境介绍

● TDatabase的应用

● 不同数据库表的切换

● 触发器编程

● 存储过程编程

● 事务控制应用

数据库环境介绍

本例中采用的数据库服务器是Local InterBase Server Local InterBase是InterBase Server的单用户版 位 兼容ANSI SQL Local InterBase支持客户/服务器应用在单机上的开发和测试 并且可以很容易地适化到InterBase Server上 因此 开发客户/服务器应用采用Local InterBase作为原型开发环境是很方便的

IBLOCAL的BDE参数

本例中的SQL数据库是IBLOCAL 它是由BDE配置工具（BDECFG EXE）设置参数值 它的各项参数值列于下表

表 IBLOCAL的各项参数值

━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━

参 数 名 参 数 值

────────────────────────────────────

TYPE INTRBASE

PATH

SERVER NAME C:\INTRBASE\EXAMPLES\EMPLOYEE GDB

USER NAME SYSDBA

OPEN MODE READ/WRITE

SCHEMA CACHE SIZE

LANGDRIVER

SQLQRYMODE

SQLPASSTHRU MODE SHARED AUTOMIT

SCHEMA CHCHE TIME

MAX ROWS

BATCH COUNT

ENABLE SCHEMA CACHE FALSE

SCHEMA CACHE DIR

━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━

数据库结构介绍

IBLOCAL数据库的结构都是由InterBase服务器工具交互式SQL工具（ISQL）定义的

用ISQL定义数据库 首先要用Create Database命令建立数据库 建立的新数据库一般是以GDB为扩展名 建立好后 就可以用SQL语言定义数据库表 例如建立EMPLOYEE表的SQL语句如下

定义域名数据类型

CREATE DOMAIN FIRSTNAME AS VARCHAR（ ）

CREATE DOMAIN LASTNAME AS VARCHAR（ ）

CREATE DOMAIN COUNTRYNAME AS VARCHAR（ ）

CREATE DOMAIN EMPNO AS SMALLINT;

CREATE DOMAIN DEPTNO AS CHAR（ ）

CHECK （VALUE = OR （VALUE > AND VALUE <= ） OR VALUE IS NULL）

CREATE DOMAIN JOBCODE AS VARCHAR（ ）

CHECK （VALUE > ）

CREATE DOMAIN JOBGRADE AS SMALLINT

CHECK （VALUE BEEEN AND ）

CREATE DOMAIN SALARY AS NUMERIC（ ）

DEFAULT

CHECK （VALUE > ）

建立EMPLOYEE表

lishixinzhi/Article/program/Delphi/201311/25125

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('%-22d:%-22d',[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 + '\' + SearchRecName);

StrPcopy(Dest, DirectoryEdit2+'\' + FormatDateTime('YYYYMMDD', Date) + '\' + SearchRecName);

CopyFile(Source, Dest, False);

Until FindNext(SearchRec) <> 0;

end;

SysUtilsFindClose(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 TDataBackupDataBackupStart(Sender: TService;

var Started: Boolean);

begin

DataThread:= TDataCopyCreate(False);

Started := True;

end;

procedure TDataBackupDataBackupStop(Sender: TService;

var Stopped: Boolean);

begin

DataThreadTerminate;

Stopped := True;

end;

procedure TDataBackupDataBackupPause(Sender: TService;

var Paused: Boolean);

begin

DataThreadSuspend;

Paused := True;

end;

procedure TDataBackupDataBackupContinue(Sender: TService;

var Continued: Boolean);

begin

DataThreadResume;

Continued := True;

end;

这样一个文件自动备份程序已经完成，编译好后，加上/install参数执行程序，系统会将此服务程序安装，由于服务程序中StartType属性为stAuto，NT每次启动时，此程序自动执行，你可以在控制面板中的服务项目来启动、暂停、恢复、停止它，也可以加上/uninstall参数执行程序来卸掉它。通过上述例子我们可以看到，用Delphi编写NT服务器程序十分方便，而且你也可以在TService对象上加许多非可视化控件来与数据库关联，实现很多复杂的功能。

这个叫进程间通信，你说的那个是在同一个进程内的，进程间通信是在不同进程之间传送数据或信号的一些技术或方法。windows支持很多种进程间通信的方法，如窗口消息，共享内存，消息管道，Windows套接字，COM/DCOM等等，具体源码搜"delphi 进程间通信"可找到很多。下面只是一例：一第一种办法,利用注册Windows全局的消息并覆盖wndProc过程来监听消息处理1 发送消息方: private strWM:Cardinal; //定义一个局部变量 proccedure Form1Create(sender:TObject); begin strWM:= RegisterWindowMessage('newspopMessage'); //注册一个windows全局消息,通过这个消息与其它进程通信 end; procedure Form1Button1Click1(Sender:TObject); var h:Cardinal; begin //通信的步骤得先找到要通信的信息窗口Handle h:=findWindow('目标进程窗口类名','窗口Caption'); //发送消息消息类型为自定义的strWM SendMessage(h,strWM,0,0); //这里同样可以带参数wParam,lParam但我传一个PChar,读取的时候总报错不知道为啥 end; 2 接收消息方: private strWM:Cardinal; //定义一个局部变量 procedure wndProc(varmsg:Tmessage);override; //覆盖这个方法,可以监听所有的Windows消息回调函数 proccedure Form1Create(sender:TObject); begin strWM:= RegisterWindowMessage('newspopMessage'); //注册一个windows全局消息,这个相当于暗号 end; procecure form1wndProc(var msg:TMessage); begin //在这里处理这个消息就行了 showmessage(strpas(PChar(meslparam))); //这样写会报错的但可以处理其它无参数的事情 end; ----------------------------------------------------------------------------------------------二第二种办法,发送一个WM_COPYDATA的消息并且可以带一个TCopyDataStruct的结构类型参数 1 发送消息方: procedure TMainFormCallAgent(msg: string); var HlAgent:HWND; ds:TCopyDatastruct; //定义一个TCopyDatastruct结构体变量 begin AgentMsg := msg; dscbData := Length(msg)+1; //结构体的第一个元素: 长度cbData GetMem(dslpData,dscbData); //分配内存,结构体的第二个参数: 数据的指针lpDATA StrCopy(dslpData,PChar(msg)); //复制值到结构指针 HlAgent :=FindWindow('TmsgpopMainCaller','调用者'); //查找目标窗体的Handle if HlAgent <> 0 then begin //ShowMessage('主' + IntToStr(Cardinal(@ds))); SendMessage(HlAgent,WM_COPYDATA,0,Cardinal(@ds)); //发送WM_COPYDATA消息,并带上参数 @ds end; FreeMem(dslpData); //释放数据内存 end; 2 接收方程序: public procedure MyMessage(varm:TWmCopyData);message WM_CopyData; //定义一个消息响应过程,并传入一个TWmCopyData的参数 procedure TmsgpopMainCallerMyMessage(var m: TWmCopyData); //实现响应 var msg:string; begin msg :=StrPas(mCopyDataStruct^lpData); //获取参数数据 ShowMessageForm := TShowMessageFormCreate(self,msg); //处理 end;

类似这样：

声明DLL中包含的类型 typeDLL myDLL ;

调用 DLL中相应的方法获取返回值 data:String = myDLL SomeFunc();

使用返回值： edit1Text = data:String

以上就是关于如何用 Delphi 创建系统服务程序全部的内容，包括:如何用 Delphi 创建系统服务程序、DELPHI基础教程：Delphi客户服务器应用开发（四）[1]、delphi怎样编写服务程序等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！