TQJson序列和还原clientdataset.data
2015-03-11 12:26
671 查看
TQJson是QDAC开源项目的JSON对象,其特点是跨平台,功能强大。
序列
procedure TForm2.Button2Click(Sender: TObject);
var
AJson: TQJson;
begin
AJson := TQJson.Create;
try
AJson.AsVariant := ClientDataSet1.Data;
if SaveDialog1.Execute then
AJson.SaveToFile(SaveDialog1.FileName, teUtf8, true);
finally
AJson.Free;
end;
end;
还原
procedure TForm2.Button3Click(Sender: TObject);
var
AJson: TQJson;
function Json2Bytes: TBytes;
var
I: Integer;
begin
SetLength(Result, AJson.Count);
for I := 0 to AJson.Count - 1 do
Result[I] := AJson[I].AsInteger;
end;
begin
AJson := TQJson.Create;
try
if OpenDialog1.Execute then
begin
AJson.LoadFromFile(OpenDialog1.FileName);
ClientDataSet1.Close;
ClientDataSet1.Data := Json2Bytes;
end;
finally
AJson.Free;
end;
end;
序列
procedure TForm2.Button2Click(Sender: TObject);
var
AJson: TQJson;
begin
AJson := TQJson.Create;
try
AJson.AsVariant := ClientDataSet1.Data;
if SaveDialog1.Execute then
AJson.SaveToFile(SaveDialog1.FileName, teUtf8, true);
finally
AJson.Free;
end;
end;
还原
procedure TForm2.Button3Click(Sender: TObject);
var
AJson: TQJson;
function Json2Bytes: TBytes;
var
I: Integer;
begin
SetLength(Result, AJson.Count);
for I := 0 to AJson.Count - 1 do
Result[I] := AJson[I].AsInteger;
end;
begin
AJson := TQJson.Create;
try
if OpenDialog1.Execute then
begin
AJson.LoadFromFile(OpenDialog1.FileName);
ClientDataSet1.Close;
ClientDataSet1.Data := Json2Bytes;
end;
finally
AJson.Free;
end;
end;
相关文章推荐
- TQMsgPack序列还原clientdataset.data
- JsonDataObjects序列和还原
- JsonDataObjects序列和还原
- TClientDataSet 手动修改Data数据
- [Angular] Fetch non-JSON data by specifying HttpClient responseType in Angular
- Net 3.5 用DataContractJsonSerializer实现Json序列和反序列例子
- firedac的数据序列和还原单元(Data.FireDACJSONReflect.pas)之字符串序列和还原
- .Net 3.5 用DataContractJsonSerializer实现Json序列和反序列
- DATASNAP数据序列之FIREDAC的TFDJSONDataSets
- DATASNAP高效的FIREDAC数据序列和还原
- Use Apache HttpClient to Post json data
- 无法对ClientDataSet.XMLData进行赋值
- Net 3.5 用DataContractJsonSerializer实现Json序列和反序列例子
- Java HttpClient 发送multipart/form-data带有Json文件的Post请求
- clientdataset<---->json
- Net 3.5 用DataContractJsonSerializer实现Json序列和反序列例子
- Net 3.5 用DataContractJsonSerializer实现Json序列和反序列例子
- TClientDataSet[21]: 使用 ADT(Abstract Data Type) 字段
- clientdataset<---->json
- clientdataset<---->json