Delphi中JSonSuperObject使用数据集与JSON对象互转.docx
《Delphi中JSonSuperObject使用数据集与JSON对象互转.docx》由会员分享，可在线阅读，更多相关《Delphi中JSonSuperObject使用数据集与JSON对象互转.docx（30页珍藏版）》请在冰点文库上搜索。
Delphi中JSonSuperObject使用数据集与JSON对象互转
在delphi中，数据集是最常用数据存取方式。
因此，必须建立JSON与TDataSet之间的互转关系，实现数据之间通讯与转换。
值得注意的是，这只是普通的TDataset与JSON之间转换，由于CDS包含了Delta数据包，其数据格式远比普通的TDataset更复杂。
数据集字段信息，是一个完整的字典信息。
因此，我们在JSON必须也建立字典信息，才能创建数据集的字段信息。
我们设置其JSON信息如下：
COLS:
[字段列表信息]，如：
"Cols":
[{"JsonType":
"integer","FieldIndex":
0,"FieldType":
"Integer","FieldSize":
0,"FieldName":
"ID","Required":
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":
[记录集信息]
废话少说，直接上代码：
unituDBJson;
interface
uses
SysUtils,Classes,Variants,DB,DBClient,SuperObject;
type
TTableJSon=class
private
constcstFieldType='FieldType';
constcstFieldName='FieldName';
constcstFieldSize='FieldSize';
constcstJsonType='JsonType';
constcstRequired='Required';
constcstFieldIndex='FieldIndex';
constcstCols='Cols';
constcstData='Data';
public
classfunctionJSonFromDataSet（DataSet:
TDataSet）:
string;
classfunctionCreateFieldByJson（Fields:
TFieldDefs;ColsJson:
ISuperObject）:
Boolean;
classfunctionImportDataFromJSon（DataSet:
TDataSet;DataJson:
ISuperObject）:
Integer;
classfunctionCDSFromJSon（CDS:
TClientDataSet;Json:
ISuperObject）:
Boolean;
classfunctionGetValue（Json:
ISuperObject;constName:
string）:
Variant;
classfunctionCreateJsonValue（Json:
ISuperObject;constName:
string;constValue:
Variant）:
Boolean;
classfunctionCreateJsonValueByField（Json:
ISuperObject;Field:
TField）:
Boolean;
classfunctionGetValue2Field（Field:
TField;JsonValue:
ISuperObject）:
Variant;
end;
implementation
usesTypInfo,encddecd;
{TTableJSon}
classfunctionTTableJSon.CDSFromJSon（CDS:
TClientDataSet;
Json:
ISuperObject）:
Boolean;
var
ColsJson:
ISuperObject;
begin
Result:
=False;
ifJson=nilthen
Exit;
CDS.Close;
CDS.Data:
=Null;
//创建字段
ColsJson:
=Json.O[cstCols];
CreateFieldByJson（CDS.FieldDefs,ColsJson）;
ifCDS.FieldDefs.Count>0then
CDS.CreateDataSet;
ImportDataFromJSon（CDS,Json.O[cstData]）;
Result:
=True;
end;
classfunctionTTableJSon.CreateFieldByJson（Fields:
TFieldDefs;
ColsJson:
ISuperObject）:
Boolean;
var
SubJson:
ISuperObject;
ft:
TFieldType;
begin
Result:
=False;
Fields.DataSet.Close;
Fields.Clear;
forSubJsoninColsJsondo
begin
ft:
=TFieldType（GetEnumValue（TypeInfo（TFieldType）,'ft'+SubJson.S[cstFieldType]））;
ifft=ftAutoIncthen//自增字段不能录入，必须更改
ft:
=ftInteger;
Fields.Add（SubJson.S[cstFieldName],ft,SubJson.I[cstFieldSize],SubJson.B[cstRequired]）;
end;
Result:
=True;
end;
classfunctionTTableJSon.CreateJsonValue（Json:
ISuperObject;
constName:
string;constValue:
Variant）:
Boolean;
begin
Result:
=False;
Json.O[Name]:
=SO（Value）;
Result:
=True;
end;
classfunctionTTableJSon.CreateJsonValueByField（Json:
ISuperObject;
Field:
TField）:
Boolean;
begin
Result:
=False;
ifFieldIsTDateTimeFieldthen
Json.O[Field.FieldName]:
=SO（Field.AsDateTime）
elseifFieldisTBlobFieldthen
Json.S[Field.FieldName]:
=EncodeString（Field.AsString）
else
Json.O[Field.FieldName]:
=SO（Field.Value）;
Result:
=True;
end;
classfunctionTTableJSon.GetValue（
Json:
ISuperObject;constName:
string）:
Variant;
begin
caseJson.DataTypeof
stNull:
Result:
=Null;
stBoolean:
Result:
=Json.B[Name];
stDouble:
Result:
=Json.D[Name];
stCurrency:
Result:
=Json.C[Name];
stInt:
Result:
=Json.I[Name];
stString:
Result:
=Json.S[Name];
end;
end;
classfunctionTTableJSon.GetValue2Field（Field:
TField;JsonValue:
ISuperObject）:
Variant;
begin
ifJsonValue.DataType=stNullthen
Result:
=Null
elseifFieldisTDateTimeFieldthen
Result:
=JavaToDelphiDateTime（JsonValue.AsInteger）
elseif（FieldisTIntegerField）or（FieldisTLargeintField）then
Result:
=JsonValue.AsInteger
elseifFieldisTNumericFieldthen
Result:
=JsonValue.AsDouble
elseifFieldisTBooleanFieldthen
Result:
=JsonValue.AsBoolean
elseifFieldisTStringFieldthen
Result:
=JsonValue.AsString
elseifFieldisTBlobFieldthen
Result:
=DecodeString（JsonValue.AsString）
end;
classfunctionTTableJSon.ImportDataFromJSon（DataSet:
TDataSet;
DataJson:
ISuperObject）:
Integer;
var
SubJson:
ISuperObject;
i:
Integer;
iter:
TSuperObjectIter;
begin
ifnotDataSet.Activethen
DataSet.Open;
DataSet.DisableControls;
try
forSubJsoninDataJsondo
begin
DataSet.Append;
ifObjectFindFirst（SubJson,iter）then
begin
repeat
ifDataSet.FindField（iter.Ite.Current.Name）<>nilthen
DataSet.FindField（iter.Ite.Current.Name）.Value:
=
GetValue2Field（
DataSet.FindField（iter.Ite.Current.Name）,
iter.Ite.Current.Value）;
untilnotObjectFindNext（iter）;
end;
DataSet.Post;
end;
finally
DataSet.EnableControls;
end;
end;
classfunctionTTableJSon.JSonFromDataSet（DataSet:
TDataSet）:
string;
procedureGetFieldTypeInfo（Field:
TField;varFieldtyp,JsonTyp:
string）;
begin
Fieldtyp:
=GetEnumName（TypeInfo（tfieldtype）,ord（Field.DataType））;
Delete（Fieldtyp,1,2）;
ifFieldisTStringFieldthen
JsonTyp:
='string'
elseifFieldisTDateTimeFieldthen
JsonTyp:
='integer'
elseif（FieldisTIntegerField）or（FieldisTLargeintField）then
JsonTyp:
='integer'
elseifFieldisTCurrencyFieldthen
JsonTyp:
='currency'
elseifFieldisTNumericFieldthen
JsonTyp:
='double'
elseifFieldisTBooleanFieldthen
JsonTyp:
='boolean'
else
JsonTyp:
='variant';
end;
var
sj,aj,sj2:
ISuperObject;
i:
Integer;
Fieldtyp,JsonTyp:
string;
List:
TStringList;
begin
sj:
=SO（）;
//创建列
aj:
=SA（[]）;
List:
=TStringList.Create;
try
List.Sorted:
=True;
fori:
=0toDataSet.FieldCount-1do
begin
sj2:
=SO（）;
GetFieldTypeInfo（DataSet.Fields[i],Fieldtyp,JsonTyp）;
sj2.S[cstFieldName]:
=DataSet.Fields[i].FieldName;
sj2.S[cstFieldType]:
=Fieldtyp;
sj2.S[cstJsonType]:
=JsonTyp;
sj2.I[cstFieldSize]:
=DataSet.Fields[i].Size;
sj2.B[cstRequired]:
=DataSet.Fields[i].Required;
sj2.I[cstFieldIndex]:
=DataSet.Fields[i].Index;
aj.AsArray.Add（sj2）;
List.Add（DataSet.Fields[i].FieldName+'='+JsonTyp）;
end;
sj.O['Cols']:
=aj;
//创建数据集的数据
DataSet.DisableControls;
DataSet.First;
aj:
=SA（[]）;
whilenotDataSet.Eofdo
begin
sj2:
=SO（）;
fori:
=0toDataSet.FieldCount-1do
begin
//sj2.S[IntToStr（DataSet.Fields[i].Index）]:
=VarToStrDef（DataSet.Fields[i].Value,''）;
ifVarIsNull（DataSet.Fields[i].Value）then
sj2.O[DataSet.Fields[i].FieldName]:
=SO（Null）
else
begin
CreateJsonValueByField（sj2,DataSet.Fields[i]）;
end;
end;
aj.AsArray.Add（sj2）;
DataSet.Next;
end;
sj.O['Data']:
=aj;
Result:
=sj.AsString;
finally
List.Free;
DataSet.EnableControls;
end;
end;
end.
调用示例：
//数据集转JSON对象或JSON文本
var
json:
TTableJSon;
s:
string;
begin
S:
=json.JSonFromDataSet（ADODataSet1）;
//在用TStringStream读入字符串S，存成文本，看看其格式.
end;
//JSON对象或文本，装载到数据集
var
json:
ISuperObject;
begin
json:
=TSuperObject.ParseFile（'json.txt',False）;
TTableJSon.CDSFromJSon（cdsJSON,json）;
end;
JSON不能完全替代XML，但绝对是未来的大势所趋，其优点是简单、体积小、解析更快、解析占用资源更少。
在delphi中，数据集是最常用数据存取方式。
因此，必须建立JSON与TDataSet之间的互转关系，实现数据之间通讯与转换。
值得注意的是，这只是普通的TDataset与JSON之间转换，由于CDS包含了Delta数据包，其数据格式远比普通的TDataset更复杂。
下面的程序，或许你有不同的想法，如果你的想法更好更快，欢迎一起讨论。
今天是2009年最后的几十分钟，重要的并不是写博客，而是想向大家说一声“新年好运，事业有成”！
数据集字段信息，是一个完整的字典信息。
因此，我们在JSON必须也建立字典信息，才能创建数据集的字段信息。
我们设置其JSON信息如下：
COLS:
[字段列表信息]，如：
"Cols":
[{"JsonType":
"integer","FieldIndex":
0,"FieldType":
"Integer","FieldSize":
0,"FieldName":
"ID","Required":
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":
[记录集信息]
废话少说，直接上代码：
unituDBJson;
interface
uses
SysUtils,Classes,Variants,DB,DBClient,SuperObject;
type
TTableJSon=class
private
constcstFieldType='FieldType';
constcstFieldName='FieldName';
constcstFieldSize='FieldSize';
constcstJsonType='JsonType';
constcstRequired='Required';
constcstFieldIndex='FieldIndex';
constcstCols='Cols';
constcstData='Data';
public
classfunctionJSonFromDataSet（DataSet:
TDataSet）:
string;
classfunctionCreateFieldByJson（Fields:
TFieldDefs;ColsJson:
ISuperObject）:
Boolean;
classfunctionImportDataFromJSon（DataSet:
TDataSet;DataJson:
ISuperObject）:
Integer;
classfunctionCDSFromJSon（CDS:
TClientDataSet;Json:
ISuperObject）:
Boolean;
classfunctionGetValue（Json:
ISuperObject;constName:
string）:
Variant;
classfunctionCreateJsonValue（Json:
ISuperObject;constName:
string;constValue:
Variant）:
Boolean;
classfunctionCreateJsonValueByField（Json:
ISuperObject;Field:
TField）:
Boolean;
classfunctionGetValue2Field（Field:
TField;JsonValue:
ISuperObject）:
Variant;
end;
implementation
usesTypInfo,encddecd;
{TTableJSon}
classfunctionTTableJSon.CDSFromJSon（CDS:
TClientDataSet;
Json:
ISuperObject）:
Boolean;
var
ColsJson:
ISuperObject;
begin
Result:
=False;
ifJson=nilthen
Exit;
CDS.Close;
CDS.Data:
=Null;
//创建字段
ColsJson:
=Json.O[cstCols];
CreateFieldByJson（CDS.FieldDefs,ColsJson）;
ifCDS.FieldDefs.Count>0then
CDS.CreateDataSet;
ImportDataFromJSon（CDS,Json.O[cstData]）;
Result:
=True;
end;
classfunctionTTableJSon.CreateFieldByJson（Fields:
TFieldDefs;
ColsJson:
ISuperObject）:
Boolean;
var
SubJson:
ISuperObject;
ft:
TFieldType;
begin
Result:
=False;
Fields.DataSet.Close;
Fields.Clear;
forSubJsoninColsJsondo
begin
ft:
=TFieldType（GetEnumValue（TypeInfo（TFieldType）,'ft'+SubJson.S[cstFieldType]））;
ifft=ftAutoIncthen//自增字段不能录入，必须更改
ft:
=ftInteger;
Fields.Add（SubJson.S[cstFieldName],ft,SubJson.I[cstFieldSize],SubJson.B[cstRequired]）;
end;
Result:
=True;
end;
classfunctionTTableJSon.CreateJsonValue（Json:
ISuperObject;
constName:
string;constValue:
Variant）:
Boolean;
begin
Result:
=F
升级会员 