OLEVARIANT的替代——FIREDAC的TFDJSONDataSets和TFDJSONDeltas
OLEVARIANT——这个COM的序列格式，也是DATASNAP已使用了20年的序列格式，
在20年以后的今天，终于有了它的替代者：FIREDAC的TFDJSONDataSets和TFDJSONDeltas，XE5 UPDATE2以上版本的DATASNAP的远程方法定义里面已经增加了这2种类型的支持。
FIREDAC的TFDCONNECTION尚没有“GENERATE DATASNAP CLIENT CLASSES”的项，感觉不方便，笔者测试的时候使用TSQLCONNECTION生成的客户端代理类，
易博龙稍后是否会提供？不得而知。
TFDJSONDataSets：数据集对象列表，可包含N个数据集对象，不论是单表查询或多表查询（主从表）的数据都用这种类型返回给客户端。
TFDJSONDeltas：客户端数据集的DELTA列表，可包含N个DELTA，不论是单表提交或多表提交（主从表）的数据都用这种类型提交给服务端。
为什么要有替代品？
DATASNAP为了完全去除对COM的依存，为了能跨平台。
替代者的性能是否强于OLEVARIANT？
笔者未作测试对比，不敢断言。
下面分别给出服务端和客户端的演示代码。
一）服务器端代码演示
1）常量定义：
const
sDepartment = 'Department'; sEmployees = 'Employees';
2）查询数据：
function TServerMethods1.GetDepartmentEmployees(const AID: string): TFDJSONDataSets; begin // Clear active so that query will reexecute. FDQueryDepartmentEmployees.Active := False; FDQueryDepartment.Active := False; FDQueryDepartment.Params[0].Value := AID; FDQueryDepartmentEmployees.Params[0].Value := AID; // Create dataset list Result := TFDJSONDataSets.Create; // Add departments dataset TFDJSONDataSetsWriter.ListAdd(Result, sDepartment, FDQueryDepartment); // Add employees dataset TFDJSONDataSetsWriter.ListAdd(Result, sEmployees, FDQueryDepartmentEmployees); end;
TFDJSONDataSets，FIREDAC的数据集列表对象，可返回多个数据集。
3）提交数据：
procedure TServerMethods1.ApplyChangesDepartmentEmployees( const ADeltaList: TFDJSONDeltas); var LApply: IFDJSONDeltasApplyUpdates; begin // Create the apply object LApply := TFDJSONDeltasApplyUpdates.Create(ADeltaList); // Apply the department delta LApply.ApplyUpdates(sDepartment, FDQueryDepartment.Command); if LApply.Errors.Count = 0 then // If no errors, apply the employee delta LApply.ApplyUpdates(sEmployees, FDQueryDepartmentEmployees.Command); if LApply.Errors.Count > 0 then // Raise an exception if any errors. raise Exception.Create(LApply.Errors.Strings.Text); end;
二）客户端演示代码
1）查询数据：
procedure TForm2.GetDepartmentEmployees(const ADEPTNO: string); var LDataSetList: TFDJSONDataSets; LDataSet: TFDDataSet; begin LDataSetList := ClientModule1.ServerMethods1Client.GetDepartmentEmployees(ADEPTNO); // Get department dataset LDataSet := TFDJSONDataSetsReader.GetListValueByName(LDataSetList,sDepartment); // Update UI FDMemTableDepartment.Active := False; FDMemTableDepartment.AppendData(LDataSet); // Get employees dataset LDataSet := TFDJSONDataSetsReader.GetListValueByName(LDataSetList, sEmployees); // Update UI FDMemTableEmployee.Active := False; FDMemTableEmployee.AppendData(LDataSet); end;
2）提交数据：
function TForm2.GetDeltas: TFDJSONDeltas; begin // Post if editing if FDMemTableDepartment.State in dsEditModes then begin FDMemTableDepartment.Post; end; if FDMemTableEmployee.State in dsEditModes then begin FDMemTableEmployee.Post; end; // Create a delta list Result := TFDJSONDeltas.Create; // Add deltas TFDJSONDeltasWriter.ListAdd(Result, sEmployees, FDMemTableEmployee); TFDJSONDeltasWriter.ListAdd(Result, sDepartment, FDMemTableDepartment); end;
procedure TForm2.ApplyUpdates; var LDeltaList: TFDJSONDeltas; begin LDeltaList := GetDeltas; // Call server method. Pass the delta list. ClientModule1.ServerMethods1Client.ApplyChangesDepartmentEmployees(LDeltaList); end;
注意：
服务端和客户端都要放置2个控件：
TFDStanStorageJSONLink
TFDStanStorageBinLink