从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;...
而数据集的更新，也是通过调用中间层的方法来实现，但需要稍微增加点技巧。敬请等待续集。
