[转]Delphi 2010 DataSnap白皮书2

======================================================
注：本文源代码点此下载
======================================================

4.2. log filter

delphi 2010 datasnap 允许自定义传输过滤器.我们可以从ttransportfilter 类型继承自己的类.在这个新

类中,可以重写基类中的方法,实现这些方法.例如我们创建一个tlogfilter类:

unit logfilter;

interface

uses

sysutils, dbxplatform, dbxtransport;

type

tlogfilter = class(ttransportfilter) ;

private

protected

function getparameters: tdbxstringarray; override;

function getuserparameters: tdbxstringarray; override;

public

function getparametervalue(const paramname: unicodestring): unicodestring; override;

function setparametervalue(const paramname: unicodestring;

const paramvalue: unicodestring): boolean; override;

constructor create; override;

destructor destroy; override;

function processinput(const data: tbytes): tbytes; override;

function processoutput(const data: tbytes): tbytes; override;

function id: unicodestring; override;

end;

const

logfiltername = 'log'

这个类的很多方法实现都是空的:由于仅仅用于记录processinput和processoutput方法传输的数据,很多方

法都不用实现.非空方法如下:

function tlogfilter.setparametervalue(const paramname, paramvalue: unicodestring): boolean;

begin

result := true;

end;

constructor tlogfilter.create;

begin

inherited create;

end;

destructor tlogfilter.destroy;

begin

inherited destroy;

end;

function tlogfilter.processinput(const data: tbytes): tbytes;

begin

result := data; // log incoming data

end;

function tlogfilter.processoutput(const data: tbytes): tbytes;

begin

result := data; // log outgoing data

end;

function tlogfilter.id: unicodestring;

begin

result := logfiltername;

end;

最后,重要的实现部分是在initialization和finalization中注册datasnap传输过滤器.确保客户端可以找到这个传

输过滤器,并在请求时自动使用.

initialization

ttransportfilterfactory.registerfilter(logfiltername, tlogfilter);

finalization

ttransportfilterfactory.unregisterfilter(logfiltername);

end.

为了在datasnap服务端使用这个传输过滤器,我们需要将其加入到tdstcpserver或dshttpservice组件

的filters属性中,非常简单.在设计时,已知存在一个zlibcompression过滤器,但无法感知新的过滤器(除非将其

添加到设计时包中并安装).幸运的是我们也可以在运行时添加过滤器,在servercontainerunitdemo单元中引用

过滤器单元,然后手动向filters属性中添加过滤器.如.

procedure tservercontainer1.datamodulecreate(sender: tobject);

begin

dstcpservertransport1.filters.addfilter(logfiltername);

dshttpservice1.filters.addfilter(logfiltername);

dshttpservice1.active := true;

end;

这将确保服务端使用logfilter,客户端只要在单元中引用logfilter单元就会自动使用logfilter.否则将抛出

错误信息:

注意datasnap客户端和服务端将获取各自的logfile实例.虽然使用的同一个过滤器,但是却不需用

paramstr(0)来区分日志信息.

4.3. 加密过滤器

即使是一个如4.2中的一个简单的过滤器,也需要自己去扩展,很复杂.datasnap提供的过滤器不太完整.事实

上,有大量的三方过滤器可以使用,有daniele teti开发的datasnap filters compendium可以

在http://www.danieleteti.it/?p=168中获取,其中不少于9个用于datasnap2010的附加过滤器,分成三个

组.hash组支持md5,md4,sha1和sha512,cipher组支持blowfish,rijndael, 3tdes 和 3des, compress

组支持lzo.并且是全源码版.

5. 如何构建datasnap web项目

除了生成windows项目,还提供了生成isapi,cgi或web app debugger目标项目的向导.首先我们讨论

一下每种项目类型的优缺点,并展示如何在一个项目组中同时创建出这三个项目,并让他们共享公共的单元

文件.这样我们就可以为同一个datasnap项目产生三个不同的部署目标.

虽然到目前为止我们构建的datasnap服务应用程序运行良好.但是在有些情况下就无法部署服务程序.例

如如果你不能或不允许在防火墙中打开请求的端口让客户端连接服务器.幸运的是,这种情况下我们可以使

用web服务来部署,而80端口号一直都是打开的.如果我们使用iis来作为web服务器,我们就可以使用新的

datasnap webbroker应用程序向导来创建一个可部署在iis上的应用.

datasnap webbroker应用程序向导提供了三个选项,第一个选项实际上不是真正的webbroker应用,但

仅仅web app debugger可执行文件,这是用于调试目的的. web app debugger可执行文件很强大,允许我

们使用web app debugger(delphi ide tooles菜单中)作为调试web app debugger应用程序的宿主程序.

调试cgi或isapi/nsapi web应用非常不方便,因此在开发过程中最好选择web app debugger模式.

而isapi/nsapi dynamic link library 和 cgi stand-alone executable 类型项目可用于真正部署的

datasnap服务项目上.

注意,选择cgi stand-alone executable不是一个好主意,因为这个可执行文件将在每次请求中加载卸载.

在加上要连接到数据库执行一些任务,你必须要考虑到应用程序的执行效率.使用isapi的dll形式,只需要

加载一次,保存在内存中,后续请求(可能来自其他用户)不需要再次加载.isapi dll的主要缺点是升级困难

(如果你用ftp连接到web服务器).但可以联系web服务供应商.

isapi dll的另一个缺点是调试不方便—必须用iis作为宿主应用,不能总是按计划的那样运行.但可以用

web app debugger executable来解决这个问题—同时创建两个项目,他们使用公共的datasnap方法和代

码.第一个范例就是这种形式,加入一些实用的功能构建一个框架.

5.3. 服务方法,部署,客户端

增加功能时只需要修改被两个项目共享的servermethodunit1.pas单元.默认有一个范例函数,就是上面的

范例,我们包含多个方法(组件说明和源码见2.1.4.).服务端方法实现后,我们就可以将isapi dll部署到iis.

详细信息可见http://blogs.embarcadero.com/jimtierney/2009/08/20/31502.

本例中如你没有web服务可用于部署,可以使用我已部署的datasnap isapi.注意我没有发布

tdatasetprovider,也没有实现返回数据的getemployees方法,但是servertime和echostring方法都运行

良好,可以用来测试datasnap客户端了.

在客户端连接isapi datasnap服务端前,可以使用data explorer检查一下是否可以连接到isapi

datasnap服务. data explorer上有一个新的叫做datasnap的目录,展开后,第一个连接叫做

datasnapconnection,右键修改连接.在这个对话框中我们可以选择协议,主机(如你没有自己的web服务可

以使用www.bobswart.nl),端口号,以及isapi datasnap服务应用程序在web服务器上的url路径,这里是

cgi-bin/dsisapiserver.dll.点击测试连接.

点击ok关闭窗口,在data explorer,展开datasnapconnection节点查看表,视图,过程,函数和

同义词.下图中,过程包括dsadmin,dsmetadata,tservermethods1.as_xxx及我们自定义的三个函数

echostring,servertime 和 getemployees.

不需要写datasnap客户端,现在就可以测试这些方法.例如echostring方法(发送什么返回什么).右键点击

tservermethods1.getemployees方法,选择view parameters,弹出一个新窗口,输入参数(例如42).在这个新

窗口中右击,选择”执行远程服务方法”.运行结果将显示在returnvalue中.

这样我们就可以调用远程datasnap服务方法.为了在客户端连接到远程服务端,我们只需要修改

tsqlconnection组件的属性.原来我们连接都windows版本的datasnap服务,现在我们需要修改设置连接到

web版本.

注意,如果你使用的是我发布的dsisapiserver.dll,我已经禁用了tdatasetprovider,而且getemployees方法

不返回任何数据.但你可以使用servertime 和 echostring方法.

6.如何使用rest和json

datasnap2010支持rest和json.datasnap2010特性rest支持datasnap http请求.例如,如果

datasnap服务的uri是http://www.bobswart.nl/cgi-bin/dsisapiserver.dll.我们可以在此url后

加 /datasnap/rest,后跟服务类名称,方法名称和参数.语法如下:

http://server/datasnap/rest///>对于我的服务器上的tservermethod1模块中的servertime方法,url如下:http://www.bobswart.nl/cgi-bin/dsisapiserver.dll/datasnap/rest/tservermethods1/servertime

在浏览器中输入这个rest支持的url,如下图:

在浏览器中返回结果是json结构:

{"result":["2009-10-16 16:01:33.145"]}

更多信息见marco cantù的delphi2010和rest客户端白页.

6.1. 回调

除了用rest支持调用datasnap服务方法外,json还用于实现回调方法.datasnap2010支持客户端回调

函数,使其执行在服务方法上下文中.这样就可以实现客户端调用服务端方法时,服务端就可以调用由客户端传

递好参数的回调函数.

例如,我们修改echostring方法,向其中添加回调支持.修改后的echostring方法如下:

function echostring(value: string; callback: tdbxcallback): string;

tdbxcallback类定义在dbxjson单元.在我们实现echostring方法前,先搞清楚如何在客户端定义回调函

数(毕竟,这是一个可以让服务端调用的客户端方法).

在客户端,我们必须定义一个新类,继承在tdbxcallback,重写其execute方法.

type

tcallbackclient = class(tdbxcallback)

public

function execute(const arg: tjsonvalue): tjsonvalue; override;

end;

在execute方法中,有一个tjsonvalue类型的参数,可以复制(clone)这个参数然后设置其具体内

容.execute方法也返回一个tjsonvalue类型的值,这里我们只返回同样的值:

function tcallbackclient.execute(const arg: tjsonvalue): tjsonvalue;

var

data: tjsonvalue;

begin

data := tjsonvalue(arg.clone);

showmessage('callback: ' + tjsonobject(data).get(0).jsonvalue.value);

result := data

end;

例如, 在方法实际返回前(如方法正在执行),回调函数将显示echostring方法传递参数的值.服务端新的

echostring方法实现需要将string值赋给一个tjsonobject对象,并将其传递给回调函数.如下:

function tservermethods2.echostring(value: string; callback: tdbxcallback): string;

var

msg: tjsonobject;

pair: tjsonpair;

begin

result := value;

msg := tjsonobject.create;

pair := tjsonpair.create('echo', value);

pair.owned := true;

msg.addpair(pair);

callback.execute(msg);

end;

注意这个回调函数将在客户端执行—然后在服务端echostring方法执行完毕前返回

最后,在客户端调用echostring方法也需要修改,因为我们现在要提供一个回调类tcallbackclient的实例,如

下所示:

var

mycallback: tcallbackclient;

begin

mycallback := tcallbackclient.create;

try

server.echostring(edit1.text, mycallback);

finally

mycallback.free;

end;

end;

这个范例阐释了如何在datasnap2010中使用客户端回调函数.

7. 使用datasnap 和 .net

delphi prism 2010可用来构建使用我们先前生成wind32服务的datasnap .net客户端.为了构建delphi

prism 2010 datasnap客户端,先确保datasnap服务正常运行.

启动delphi prism 2010,点击view. server explorer启动delphi prism server explorer.首先建立一个连

接,验证我们将以使用的datasnap服务.

server explorer的根节点叫做data connections.右击data connections选择添加连接.对话框如下,在

data sources列表中选择datasnap(注意如果数据源已经预选好了我们需要点击变更一下)

不要选中 always use this selectiong.除非你一直构建datasnap数据连接.

点击continue按钮进入下一步.指定连接的datasnap服务详细信息.在协议下拉框中选择tcp/ip或http.

接下来,指定服务器(运行datasnap服务的主机名称,如在本机测试可指定localhost),然后指定端口号.默认

http为80端口,tcp/ip为211端口.但从本白页中可知这两个端口都应该修改,并确保和你在

servercontainerunitdemo单元中设置的端口号对应.下一个属性包含路径,这在你要连接到基于web

broker的datasnap服务上很重要.设置为http://后面的部分.

最后,不要忘记验证用户和密码,本例datasnap服务使用http验证.

点击测试按钮,验证连接.如果弹出连接成功信息表示连接可用.

点击ok按钮,在连接树中显示了一个新的datasnap连接.本例中是localhost节点.展开这个节点,显示表,

视图,存储过程子节点.表和视图节点为空,但存储过程节点包括所有在datasnap服务端定义的服务方法.包

括我们自定义的echostring,getemployees和servertime.

我们现在可以在server explorer中测试服务方法.例如,右击echostring方法,选择查看参数.弹出新窗口,

输入参数.这里输入42.右击窗口选择执行.将执行服务端的echostring方法.如下图.

更好的是可以使用getemployees方法演示如何从employees表中获取数据.这个存储过程没有参数,但还

有选择 view parambers命令,返回一个空参数列表.右击窗体选择 执行.这是返回一个记录集.如下图:

7.1. winforms 客户端

虽然已经可以运行服务端方法了,但更有用的方法是在.net应用程序中调用这些方法.最后一个范

例,file.new project启动delphi prism新项目向导.选择项目类型.

在windows 项目类型中选择windows application,修改windowsapplication1为datasnapclient.

点击ok按钮,创建一个带有main.pas单元的新项目.

在server explorer,选择新建的datasnap服务连接,属性框中找到connectionstring,如下:

communicationprotocol=http;hostname=localhost;port=8080;dsauthenticationuser=bob;ds

authenticationpassword=swart

右击数据连接节点,选择生成客户端代理(generate client proxy)选项.生成新文件clientproxy1.pas,其中

定义了tservermethods1client类及其中的方法(echostring, servertime, 和getemployees)..如下:

tservermethods1client = class

public

constructor (adbxconnection: tadodbxconnection);

constructor (adbxconnection: tadodbxconnection; ainstanceowner: boolean);

function echostring(value: string): string;

function servertime: datetime;

function getemployees: system.data.idatareader;

除了代理类还在项目的引用节点中添加了borland.data.adodbxclient 和borland.data.dbxclientdriver

引用.

从tservermethods1client类代码片段中可见,类有两个构造函数:有使用了一个adbxconnection参数,

第二个构造函数还有一个ainstanceowner的boolean类型参数.这意味着我们必须使用参数调用构造函数.

为了支持这个功能,必须修改项目属性设置.在解决方案管理器中右击datasnapclient,选择属性.如下图,点

击compatibility标签,选中”allow create constructor calls”,将允许我们调用.create构造方法,传递参数,而不

仅仅是使用new关键字.

现在回到主窗体,添加一个按钮.在click事件中创建一个datasnap服务连接并调用方法.

method mainform.button1_click(sender: system.object; e: system.eventargs);

var

client: clientproxy1.tservermethods1client;

connection: borland.data.tadodbxdatasnapconnection;

begin

connection := new borland.data.tadodbxdatasnapconnection();

connection.connectionstring :=

'communicationprotocol=http;hostname=localhost;port=8080;dsauthenticationuser=bob;dsauth

enticationpassword=swart';

connection.open;

try

client := clientproxy1.tservermethods1client.create(connection);

messagebox.show(

client.echostring('delphi prism 2010'));

finally

connection.close;

end;

end;

运行结果如下图所示:

同样方式,我们调用getemployees方法获取结果集并显示到datagridview.这里有个小问题,

datagridview方法返回的是idatareader(等价于tsqldataset结果集),而不是dataset和datatable.我们

必须写几行代码将getemployees返回的结果集保存到dataset的datatabl中(等价于win32中的

tclientdataset).

method mainform.button1_click(sender: system.object; e: system.eventargs);

var

client: clientproxy1.tservermethods1client;

connection: borland.data.tadodbxdatasnapconnection;

employees: system.data.idatareader;

ds: system.data.dataset;

dt: system.data.datatable;

begin

connection := new borland.data.tadodbxdatasnapconnection();

connection.connectionstring :=

'communicationprotocol=http;hostname=localhost;port=8080;dsauthenticationuser=bob;dsauthenticationpassword=swart';

connection.open;

try

client := clientproxy1.tservermethods1client.create(connection);

employees := client.getemployees;

ds := new dataset();

dt := new datatable("datasnap");

ds.tables.add(dt);

ds.load(employees, loadoption.preservechanges, ds.tables[0]);

datagridview1.datasource := ds.tables[0];

messagebox.show(

client.echostring('delphi prism 2010'));

finally

connection.close;

end;

end;

http://hi.baidu.com/gzcszzx/blog/item/99e7232096aa62a84723e885.html

======================================================
在最后，我邀请大家参加新浪APP，就是新浪免费送大家的一个空间，支持PHP+MySql，免费二级域名，免费域名绑定 这个是我邀请的地址，您通过这个链接注册即为我的好友，并获赠云豆500个，价值5元哦！短网址是http://t.cn/SXOiLh我创建的小站每天访客已经达到2000+了，每天挂广告赚50+元哦，呵呵，饭钱不愁了，\(^o^)/