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

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

cross socket和msgpack的数据序列和还原 procedure TForm1.Button1Click(Sender: TObject); begin var pack: TSimpleMsgPack := TSimpleMsgPack.Create; pack.ForcePathObject('sql').AsString := '测试'; IdTCPClient1.IOHandler.Write(tidbytes(pack.EncodeToBytes)); //发送TBytes…

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

使用流做中转 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…

TynSerial自定义对象的序列(还原) TynSerial是咏南中间件封装的支持数据二进制序列(还原)的类. 对于ORM来说,序列类必须序列(还原)自定义对象. 1)定义一个自定义对象 type {$M+} // 此处必须加编辑开关 TTest = class private fid: Integer; fname2: string; published // 对象的属性必须是published property id: Integer read fid write fid; propert…

https://www.cnblogs.com/bradleon/p/6827109.html 文章里写得非常好,需详细看.尤其是arima的举例! 可以看到:ARIMA本质上是error和t-?时刻数据差分的线性模型!!! ARIMA模型全称为自回归积分滑动平均模型(Autoregressive Integrated Moving Average Model,简记ARIMA),是由博克思(Box)和詹金斯(Jenkins)于70年代初提出一著名时间序列(Time-series Approach…

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

TynSerial序列(还原)TFDMemTable 1)TFDMemTable查询数据 procedure TForm1.Qrys(accountno, sql, sql2: string; DataSet, DataSet2: TFDMemTable); // TFDMemTable主从表查询 var url: SockString; i: integer; serial: TynSerial; begin serial := TynSerial.Create; try url := 'qu…

TynSerial序列(还原)TClientDataSet 可以一次性序列(还原)多个TClientDataSet. 1)TClientDataSet查询数据 procedure TForm1.Qrys(accountno, sql, sql2: string; DataSet, DataSet2: TClientDataSet); // TClientDataSet主从表查询 var url: SockString; i: integer; serial: TynSerial; begin s…