Conversion between dataset and JSON
2016-08-23
1 0 0
no vote
Other
Earn points
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 displaydelphi
json
dataset
转换
Related Source Codes
MY Function Library
0
0
no vote
DELPHI calls the voice synthesis provided by windo
0
0
no vote
Compare binary file
0
0
no vote
Delphi 7
0
0
no vote
SQL database table structure merge tool
0
0
no vote
No comment