procedure TForm1.Button1Click(Sender: TObject);var stream, stream2: TMemoryStream; buf: TBytes;begin // 查询 FDQuery1.Close; FDQuery1.SQL.Clear;FDQuery1.Open('select * from t2'); // 序列为流 stream := TMemoryStream.Create; FDQuery1.SaveToStream(stream, TFD…

使用流做中转 procedure CopyDataSet(const ASource, ADest: TFDAdaptedDataSet);var LStream: TStream;begin LStream := TMemoryStream.Create; try ASource.SaveToStream(LStream, TFDStorageFormat.sfBinary); LStream.Seek(0, TSeekOrigin.soBeginning); ADest.LoadFromSt…

变量定义: varFDConnection: TFDConnection;qCustomers: TFDQuery; qOrders: TFDQuery;FDSchemaAdapter: TFDSchemaAdapter;FDStanStorageBinLink1: TFDStanStorageBinLink;... 服务端查询方法: TFDSchemaAdapter可以将多个关联的FIREDAC数据集(比如TFDQuery)序列为TSTREAM,当然适用于序列主从表数据. function T…

你可以在客户端序列FireDAC数据集的DELTA , 将序列后的STREAM发送给中间件, 中间件的TFDQuery或TFDMemTable调用LOADFROMSTREAM()方法加载流, 然后调用ApplyUpdates()将数据保存进数据库中. 怎样转换TFDQuery或TFDMemTable的Delta为STREAM? 你将需要设置FDQuery或TFDMemTable的ResourceOptions.StoreItems 为 [siDelta]或 [siMeta, siDelta].…

firedac数据集数据序列为JSON FIREDAC数据库引擎充分地考虑了跨平台和跨语言的支持. 因此,FIREDAC数据集可以序列为BIN\XML\JSON,三种格式. firedac数据集数据序列为JSON字符串: procedure TForm1.Button1Click(Sender: TObject); begin var ss: TStringStream := TStringStream.Create('', TEncoding.UTF8); FDQuery1.SaveToStr…

QJSON封装好的序列和还原方法 {*******************************************************}{ }{ QJSON与数据集互转 }{ }{ 版权所有 (C) 2014 碧水航工作室 }{ 作者:恢弘 QQ11241450 }{ QJSON版权属于 QDAC,QQ群为:250530692 }{ }{ V1.0.1 - 2014.07.01 }{***************************************************…

MSGPACK序列和还原TFDParams unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, qmsgpack, FireDAC.Stan.Intf, FireDAC.Stan.Option, FireDAC.Stan.Par…

msgpack的数据序列和还原 msgpack不仅可以序列一些常规的数据类型的数据,比如:string.datetime.integer...... 还能序列olevariant.stream 这就非常强大而完美了. procedure TynTcpMethod.SendPicture(AReceiverID: string; APicture: TMemoryStream); var LMsgPack: TSimpleMsgPack; LStream: TMemoryStream; begin…

JsonDataObjects序列和还原 JsonDataObjects号称DELPHI最快的JSON库,且支持跨平台. // cxg 2017-9-12// Use JsonDataObjects(cross platform json library)// Use delphi 10.2.1 unit ujson; interface uses System.SysUtils, soap.EncdDecd, Web.HTTPApp, System.NetEncoding, Data.DB,…

优秀的数据序列和还原类----TSimpleMsgPack TSimpleMsgPack是D10天地弦的作品. 优点:至简,就一个单元文件实现,不需要引用其他单元. 缺点:不是标准的MSGPACK实现,不能跨语言兼容. 所以:TSimpleMsgPack只能用于DELPHI开发,不能用于其他语言. 而QDAC的QMsgPack却是标准的MSGPACK实现,能跨语言兼容. 有了它,从此数据的序列和还原不再是梦魔. 适用极广:可以适用于所有版本的DELPHI,不论D7还是最新的XE10.1,都支持.…