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的过分依赖。
最新文章
- .net(c#)提取多层嵌套的JSON
- Adaboost 算法的原理与推导
- Linux 中 17 个 tar 命令实用示例
- NPO与X7R、X5R、Y5V、Z5U神马的有啥区别
- (easy)LeetCode 205.Reverse Linked List
- solr 相似查询-MoreLikeThis
- Flux
- maven jetty plugin
- 2015第14周日WebSocket
- ztree树形插件
- 写了一个Mac快速设置、打开和关闭Web代理的Shell命令
- Primeton BPS 6.7+MyEclipse_5.5.1GA_E3.2.2插件安装
- HQL语法
- Testing - 软件测试知识梳理 - 比较质量保证(QA)与质量控制(QC)
- 下载python中package的简便方法
- Codeforces Round #510 (Div. 2) D. Petya and Array(离散化+反向树状数组)
- linux下安装oracle及weblogic
- maven国内稳定的阿里源
- [Sass] Level 3: Mixin -- Ex
- Navicat修改查询保存路径
热门文章
- 团队项目-第八次scrum 会议
- react生命周期方法
- warning MSB3162: 所选的“Microsoft Report Viewer 2012 Runtime”项需要“Microsoft.SqlServer.SQLSysClrTypes.11.0”。在“系统必备”对话框中选择缺少的系统必备组件,或者为缺少的系统必备组件创建引导程序包。
- zoj 1002 Fire Net (二分匹配)
- 解决某些PC站在手机端宽度显示不正常的问题
- 异常:Batch update returned unexpected row count from update [0]; actual row count: 0;
- 《R语言实战》读书笔记 第七章--基本统计分析
- 平面ray trace的数据结构加速
- java合并两个有序数组的算法(抛砖引玉)
- Handler 源码分析