Delphi中JSon_SuperObject_使用数据集与JSON对象互转
5星 · 超过95%的资源 需积分: 23 143 浏览量
2016-06-20
23:39:25
上传
评论 2
收藏 59KB DOC 举报 
在 delphi 中，数据集是最常用数据存取方式。因此，必须建立 JSON 与 TDataSet 之间的互
转关系，实现数据之间通讯与转换。值得注意的是，这只是普通的 TDataset 与 JSON 之间
转换，由于 CDS 包含了 Delta 数据包，其数据格式远比普通的 TDataset 更复杂。
数据集字段信息，是一个完整的字典信息。因此，我们在 JSON 必须也建立字典信息，才
能创建数据集的字段信息。我们设置其 JSON 信息如下：
COLS:[字段列表信息]，如：
"Cols":
[{"JsonType":"integer","FieldIndex":0,"FieldType":"Integer","FieldSize":0,"FieldName":"ID","Re
quired":false},
{"JsonType":"string","FieldIndex":1,"FieldType":"String","FieldSize":100,"FieldName":"Title","
Required":false},
{"JsonType":"variant","FieldIndex":2,"FieldType":"Blob","FieldSize":0,"FieldName":"Picture","
Required":false}]
数据信息以 Data 做节点，也是一个数组嵌套记录信息：
"Data":[记录集信息]
废话少说，直接上代码：
unit uDBJson;
interface
uses
SysUtils,Classes,Variants,DB,DBClient,SuperObject;
type
TTableJSon = class
private
const cstFieldType = 'FieldType';
const cstFieldName = 'FieldName';
const cstFieldSize = 'FieldSize';
const cstJsonType = 'JsonType';
const cstRequired = 'Required';
const cstFieldIndex = 'FieldIndex';
const cstCols= 'Cols';
const cstData= 'Data';
public
class function JSonFromDataSet(DataSet:TDataSet):string;
class function CreateFieldByJson(Fields:TFieldDefs;ColsJson:ISuperObject):Boolean;
class function ImportDataFromJSon(DataSet:TDataSet;DataJson:ISuperObject):Integer;
class function CDSFromJSon(CDS:TClientDataSet;Json:ISuperObject):Boolean;
class function GetValue(Json:ISuperObject;const Name:string):Variant;
class function CreateJsonValue(Json:ISuperObject;const Name:string;const
Value:Variant):Boolean;
class function CreateJsonValueByField(Json:ISuperObject;Field:TField):Boolean;
class function GetValue2Field(Field:TField;JsonValue:ISuperObject):Variant;
end;
implementation
剩余18页未读，继续阅读
资源评论
George新2016-06-21下载文件名乱码，可以打开。
