DATASNAP數據序列之FIREDAC的TFDJSONDataSets
DELPHI XE5開始增加了新的數據引擎——FIREDAC，它是跨平台的數據引擎，WINDOWS、LINUX、MAC、APP。。。。。。都可以使用。
隨之DATASNAP也增加了新的遠程方法返回數據類型——TFDJSONDataSets。
顧名思義TFDJSONDataSets是數據集列表，是多個數據集的集合，DATASNAP通過它一次可以返回多個查詢結果數據集。
服務端代碼：
function TServerMethods1.QuerySql2(const accountNo, sql: string): TFDJSONDataSets;
var
d: TfrmDB;
begin
Result := nil;
if (accountNo = '') or (sql = '') then
Exit;
d := GetDBPool(accountNo).Lock;
if not Assigned(d) then
Exit;
try
try
SetTraceOn(d);
d.qryOpen.Close;
d.qryOpen.sql.Clear;
d.qryOpen.sql.Text := sql;
d.qryOpen.Open;
Result := TFDJSONDataSets.Create;
TFDJSONDataSetsWriter.ListAdd(Result, '1', d.qryOpen);
except
on e: Exception do
begin
Result := nil;
Log.WriteLog('TServerMethods1.QuerySql2 ' + e.Message);
end;
end;
finally
d.qryOpen.Close;
GetDBPool(accountNo).Unlock(d);
SetTraceOff(d);
end;
end;
客戶端代碼：
首先引用 Data.FireDACJSONReflect
procedure TForm1.btnQuery2Click(Sender: TObject);
var
LDataSets: TFDJSONDataSets;
LDataSet: TFDDataSet;
begin
DataSource1.DataSet := FDMemTable1;
LDataSets := methods.QuerySql2('0', 'select * from t1');
LDataSet := TFDJSONDataSetsReader.GetListValueByName(LDataSets, '1');
FDMemTable1.Close;
FDMemTable1.Data := LDataSet;
end;
可以看到客戶端是使用TFDMemTable內存表，而不是TCLIENTDATASET。
筆者已經多次提到過，FIREDAC引擎是使用TFDMemTable內存表來作為TCLIENTDATASET的替代。
TCLIENTDATASET的數據序列格式是OLEVARIANT，它是微軟COM的數據格式。
現在DATASNAP正在去除對微軟COM的過分依賴。