从Delphi 2009开始,DataSnap技术发生了很大的变化,并在Delphi 2010和Delphi XE的后续版本中得到了持续的改进。Delphi 2009之前的DataSnap,虽然也实现了对中间层的方法调用,但那是基于COM技术的,实现起来比较麻烦,而且最关键的,是不能直接返回数据集(TDataSet)。如今,基于JSON的DataSnap,已经脱离了COM的束缚,可以很方便地直接返回数据集。我们在开发多层的数据库应用时,就可以采用全新的方式来进行,即客户端的所有数据查询和更新,可以被分割成对中间层多个方法的调用来完成。这种方式带来的最直接效果,就是客户端在完成一个完整的业务操作过程中,客户端到中间层、中间层到数据库的两个连接都不需要被保持,中间层如果再配合对象池、连接池技术,就可以服务于更多数量的客户端,服务器的各种资源也能够得到最大化的利用。
如上图所示,客户端的3个连续活动,完成一个完整的业务操作。整个业务操作,通过两次对中间层的方法调用来完成。两次方法调用中,DataSnap中间层提供方法调用服务的业务类实例可能是不一样的,这取决于类工厂(TDSServerClass)的LifeCycle属性。
下面简单演示一个例子。
1、中间层的实现:
...
{$METHODINFO ON}
TServerMethods1 = class(TDataModule)
SQLConnection1: TSQLConnection;
SQLDataSet1: TSQLDataSet;
private
{ Private declarations }
public
{ Public declarations }
function EchoString(Value: string): string;
function ReverseString(Value: string): string;
function GetEmployeeFullName(EmployeeId: Integer): string;
function GetEmployees: TDataSet;
end;
{$METHODINFO OFF}
...
implementation
...
function TServerMethods1.GetEmployeeFullName(EmployeeId: Integer): string;
begin
Result := 'Employee not found';
with SQLDataSet1 do
begin
CommandText := 'SELECT FIRST_NAME||'' ''||LAST_NAME as FullName ' +
'FROM Employees WHERE Employee_id = :EmployeeId';
ParamByName('EmployeeId').AsInteger := EmployeeId;
Open;
if not eof then Result := FieldByName('FullName').AsString;
end;
end;
function TServerMethods1.GetEmployees: TDataSet;
begin
with SQLDataSet1 do
begin
CommandText := 'SELECT * FROM Employees';
Open;
end;
Result := SQLDataSet1;
end;
...
//我们可以发现,不管中间层实际将有多少个不同的数据集要返回,中间层都只需要两个控件,即
//TSQLConnection和TSQLDataSet,通过在TSQLDataSet的CommandText属性中写入不同的SQL语句,就
//可以返回不同的数据集。
2、客户端的相关代码:
...
TForm2 = class(TForm)
SQLConnection1: TSQLConnection;
Employees: TButton;
SqlServerMethod1: TSqlServerMethod;
DataSetProvider1: TDataSetProvider;
ClientDataSet1: TClientDataSet;
procedure EmployeesClick(Sender: TObject);
private
public
end;
...
//要取得来自于中间层的数据集,使用以上几个控件,它们之间进行关联:
//TClientDataSet-->TDataSetProvider-->TSqlServerMethod-->TSQLConnection-->中间层
implementation
...
//获取数据集
procedure TForm2.EmployeesClick(Sender: TObject);
begin
with SqlServerMethod1 do
begin
ServerMethodName := 'TServerMethods1.GetEmployees';
end;
ClientDataSet1.Open;
end;
...
而数据集的更新,也是通过调用中间层的方法来实现,但需要稍微增加点技巧。敬请等待续集。