用Delphi建立通讯与数据交换服务器—Transceiver技术剖析（下）

用Delphi建立通讯与数据交换服务器—Transceiver技术剖析（下）2011-04-23二、 Transceiver Service详解

1．Transceiver Service分析概要

Transceiver Service是Transceiver系统的核心构成，Transceiver Kernel负责从系统配置库读取Transceiver Console设定的Port、Channel定义与参数，运行时动态创建和管控通讯Port及其关联关系，对数据的收、发、缓冲进行调度、对日志、队列进行管理等。Transceiver Shell则是所支持全部类型的用于数据收发的Port的实现。

2．Transceiver Service设计概要

Transceiver Service是由Delphi中Service Application开发而成，Service Application可运行于系统态而非用户态，由操作系统Service Control Manager （SCM）负责程序的运行管理，Service没有用户界面，属于系统的后台程序。Transceiver Kernel是Transceiver类的一系列对Transceiver Shell建立和控管的方法，而Transceiver Shell则是一系列负责通讯的对象集合。

注：由于性能和负载的考虑，Transceiver Kernel只是从逻辑上实现上架构图中的功能划分，构成模块并未以完全对象化的方式实现。

3．Transceiver Service实现概要

i. 建立一个Service Application

从Delphi主菜单File中选择NEW|Other…在弹出的New Items对话框中选择NEW|Service Application ，可以看到生成的程序框架如下：

program Project1;
uses
SVCMgr,
Unit1 in "Unit1.pas" {Service1: TService};
{$R *.RES}
begin
Application.Initialize;
Application.CreateForm（TService1, Service1）;
Application.Run;
end.
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, SvcMgr, Dialogs;
type
TService1 = class（TService）
private
{ Private declarations }
public
function GetServiceController: TServiceController; override;
{ Public declarations }
end;
var
Service1: TService1;
implementation
{$R *.DFM}
procedure ServiceController（CtrlCode: DWord）; stdcall;
begin
Service1.Controller（CtrlCode）;
end;
function TService1.GetServiceController: TServiceController;
begin
Result := ServiceController;
end;
end.

可以看到除了在uses单元引用了用于服务管理的SvcMgr、TService1继承自TServiced而非TForm及一个重载的GetServiceController函数和以stdcall方式调用的ServiceController过程之外，用Delphi建立一个服务程序并没有太多特别之处，Delphi Fans也许又要欢呼了，这就是Delphi RAD的强大迷人之处。另外，Service Application由于无法直接在运行时调试，也没有用户界面，开发时应考虑调试信息的无界面输出以利于调试排错。