DATASNAP数据序列之FIREDAC的TFDJSONDataSets

Posted 咏南中间件和开发框架

tags:

篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了DATASNAP数据序列之FIREDAC的TFDJSONDataSets相关的知识,希望对你有一定的参考价值。

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的过分依赖。

以上是关于DATASNAP数据序列之FIREDAC的TFDJSONDataSets的主要内容,如果未能解决你的问题,请参考以下文章

论DATASNAP结合FIREDAC的使用方法

firedac引擎DATASNAP多表查询和多表提交

DataSnap与FireDAC三层

调用DATASNAP+FIREDAC的远程方法有时会执行二次SQL或存储过程的BUG

Delphi XE FireDac 连接池

firedac二进制序列和JSON序列的对比