No self-introduction
Loading
Profile
Follow
codes (1)
Conversion between dataset and JSON
no vote
Application background InterfaceUses SysUtils, Classes, DB, DBClient, superobject, ADODB, EncdDecd;DataSetToJSON function (TDataSet ADataSet:; AJSON: WideString var): Boolean;JSONToDataSet function (WideString AJSON:; TDataSet ADataSet:): Boolean; overload;JSONToDataSet function (WideString AJSON:; TADODataSet ADataSet:): Boolean; overload;JSONToDataSet function (WideString AJSON:; TCustomClientDataSet ADataSet:): Boolean; overload;Implementation(*C:; configuration table Encode; encoding 1:UNICODE 2:UTF-8 0:ANSI default 1 BolbComp binary fields are compressed 0:; 1: default 0 CompMode compression mode 1:RAR 2:7-ZIP 0:ZIP default 2 BolbEncode binary field encoding type 1: 0:BASE64 default 0 T: table T.N: T.D: T.T: column display
xiang_1988 1 0
1
No more~
Follows0
Fans0