QBurro中间件的组网及对象命名规则 
 
 
QuickBurro中间件的优势在于灵活的组网、寻址、路由及信息交换能力。凡是使用该中间件的多个局域网或个人电脑，可以在Internet环境逻辑上“联结”成一个虚拟专用网，并由中间件软件自动维持连接及互相通信。

如下图所示，信息的交换可分成两类，一是WAN通信，另一种是LAN通信，中间件实现前者，而后者则是利用客户端开发包实现的与节点服务器之间的通信或其它类型的内网通信。中间件实现的通信部分已经实现封装，故对客户端应用程序透明。这样的组网非常灵活，大到可以是有大量法人单位参与的大型网络，小则可以仅有一个根接点和一个子节点。

而数据库服务器与应用服务器（运行中间件的服务器）的部署也是很灵活的，若一个节点有大量应用数据的，则可以将数据库服务器与应用服务器分离，否则，两者可以合在一个物理服务器上运行；对于没有应用数据的，可以使用QuickBurro自带的SQL Server高度精简版来存储节点系统数据。

[img]http://computer.mblogger.cn/upimgs/computer.mblogger.cn/wpy020327/2008-8/2008_89648.jpg[/img]

上图所标出的节点代码是示例性质的，但您不难看出这种带“#”号形式的节点代码的编码规则。这样的节点代码层次分明、一目了然，在进行实际的信息交换时，中间件能很好地实现这种代码与实际的IP地址之间的转换，比如，客户端在发送一个群发请求“BroadToNodeUsers('浙江#中国','一则消息')”时，中间件软件能自动根据节点代码'浙江#中国'确定其IP地址，然后将一个群发任务提交给它，让它来完成群发的任务。

而一个节点内的各个用户的代码（在整个网络中的全局代码），则是其本地帐号+@符号+所在节点的节点代码，比如，用户代码“zs@浙江#中国”表示'浙江#中国'节点内的'zs'这个用户，直观、易于理解记忆。

 

基于QuickBurro中间件的应用开发 
 
 
QuickBurro中间件为Delphi程序员实现了大部分的服务器端软件开发的工作（也许就剩下业务逻辑部件的编写还需要应用程序员来写），所有组网、连接维持、寻址、路由、数据交换等细节都实现了封装，对应用程序是透明的。这种应用开发模型（以数据库存取为例）如下图所示：

[img]http://computer.mblogger.cn/upimgs/computer.mblogger.cn/wpy020327/2008-8/2008_89315.jpg[/img]

在这种模型下，应用程序员的主要精力放在解决应用问题上，远程相关的部分只需要掌握QBClient客户端开发组件包的使用即可，需要访问哪个节点的资源，只需指定“节点代码”，而不需要与IP地址、端口、协议等打交道。而业务逻辑部件的中间层挂接（节点中间件软件处）和客户端的远过程调用，既实现了由应用程序员参与对业务逻辑进行封装、也可扩充节点服务程序的功能。

 

QBClient组件包控件结构图

TQBConnection是基础连接控件，建立的实例将作为后面15个控件实例的一个属性。TUserLogin是用于实现本地用户登陆的控件，因大部分的其它控件都是需要用户事先登陆的，因此，它也是相对基础性的控件。而其它14个控件都是功能性的控件，比较容易理解。


[img]http://computer.mblogger.cn/upimgs/computer.mblogger.cn/wpy020327/2008-8/2008_89960.jpg[/img]

QBurro服务器端插件编写模板文件 
 
 
三层架构中，业务逻辑通常封装在中间层，以实现代码重用、提高开发效率与质量的目的。QuickBurro系统也支持这种机制，只是其实现的方法有别于微软的Com/DCom技术，插件的接口规范也就差别很大了。下面这个是QuickBurro系统所支持的插件的编写规范，一个模板文件，只需要改个Library名字，再将你的代码写到RemteProcess主过程即可。

//
// -----------------------------------------------------------------------------------
//
//          服务器端插件编写模板文件   wgz. 2006.12.--2008.8.
//
// -----------------------------------------------------------------------------------
//
//
// 导出函数原型：
//
// RemoteFunction: function(AdoConn: TAdoConnection;
//                           InText: string;
//                         InStream: TMemoryStream;
//                      var OutText: string;
//                    var OutStream: TMemoryStream): boolean; stdcall
//
// 其中入口参数：
//
// AdoConn：TAdoConnection对象的实例，是调用本模块的节点系统的数据库连接，注意用完后别断开
// InText：TString类型的变量，包含有向本类模块提供的所有简单类型参数，中间以#9字符分隔
// InStream：TStream对象的实例，包含可能存在的二进制类型的入口参数，若为nil，表示不存在
//
//
// 其中出口参数：
//
// OutText：本模块处理结束后得到的简单类型结果数据，若有多项，以#9分隔
// OutStream：本模块处理结束之后得到的二进制类型的结果，若不存在，返回nil
//
// -----------------------------------------------------------------------------------
//
library RemoteModule;                  {你可以改一下名字}

uses
  sharemem,
  SysUtils,
  Classes,
  Windows,
  forms,
  graphics,
  AdoDB;

{$R *.RES}

const
  CAPTUREBLT = $40000000;

//
// 主函数...
function RemoteProcess(AdoConn: TAdoConnection; InText: string; InStream: TMemoryStream;
         var OutText: string; var OutStream: TMemoryStream): boolean; stdcall;
begin
//
// ----------------------------这里开始写你的程序-----------------------------------------


// ----------------------------你的程序写到这里为止---------------------------------------
//
// 返回成功代码...
   result:=true;
end;

//
// 向主程序提供的函数或过程的输出声明...
exports
RemoteProcess;

//
// 初始化代码...
begin
//
end.