学习unigui【17】-数据集和JSON互相转换-DataSetConverter4D 开源项目

合集 - unigui(25)

1.unidbgrid的rowedit=true2022-09-062.unigui的demo-\Demos\Desktop\DBAppDemo\SimpleDemo.dproj【11】2021-05-313.unigui的session【1】2018-05-024.unigui菜单【3】2018-08-035.unigui的ini文件读写【6】2018-09-206.unigui导出TMS.Flexcel【5】2018-08-137.unigui+fastreport 打印【4】2018-08-118.unigui显示uniTreeVview使用TUniTreeNode内存泄漏的问题【14】2023-12-169.unigui显示websocket服务端向客户端发送信息【15】2023-12-25

10.学习unigui【17】-数据集和JSON互相转换-DataSetConverter4D 开源项目2024-02-01

11.学习unigui【18】unidbgrid的GridsGroupingSorting2024-02-0212.学习unigui【19】unidbgrid的Group By This Field汉化2024-02-0213.学习unigui【20】unistringGrid2024-02-2714.学习unigui【21】unistringGrid的标题栏动态增加2024-02-2915.学习unigui【22】unistringGrid的标题栏双击事件2024-03-0116.学习unigui【23】uniDBGrid的使用摘要2024-03-0917.学习unigui【25】关于图标2024-05-3018.学习unigui【24】Echart的使用：多个坐标系2024-04-2019.学习unigui【26】关于Unigui控件的个性化CSS框架2024-05-3120.学习unigui【27】像pg的jsonb一样编辑json。2024-06-0321.unigui的菜单树补习【2】treeview2018-08-0122.unigui的程序编译后自动运行傻傻的手动【7】2021-04-2823.unigui的ServerModule的重要属性【8】2021-04-2924.unigui的错误delphi clientHeight:property clientheight does not exist【10】2021-05-0325.学习unigui【28】UniGUI接收POST/GET2024-10-16

收起

学习unigui过程中，出现使用json和fdquery等数据交换的太多场景要求。

感谢开源DataSetConverter4D提供轮子。

直接抄demo：

{Convert DataSet to JSON：}
uses 
  DataSetConverter4D, 
  DataSetConverter4D.Impl;    
 
var
  ja: TJSONArray;
  jo: TJSONObject;
begin
  fCdsCustomers.DataSetField := nil;
  fCdsCustomers.CreateDataSet;
 
  fCdsCustomers.Append;
  fCdsCustomers.FieldByName('Id').AsInteger := 1;
  fCdsCustomers.FieldByName('Name').AsString := 'Customers 1';
  fCdsCustomers.FieldByName('Birth').AsDateTime := StrToDateTime('22/01/2014 14:05:03');
  fCdsCustomers.Post;
 
  fCdsCustomers.Append;
  fCdsCustomers.FieldByName('Id').AsInteger := 2;
  fCdsCustomers.FieldByName('Name').AsString := 'Customers 2';
  fCdsCustomers.FieldByName('Birth').AsDateTime := StrToDateTime('22/01/2014 14:05:03');
  fCdsCustomers.Post;
 
  //Convert all records    
  ja := TConverter.New.DataSet(fCdsCustomers).AsJSONArray;
  
  //Convert current record
  jo := TConverter.New.DataSet.Source(fCdsCustomers).AsJSONObject;
 
  ja.Free;
  jo.Free;
end;

{Convert JSON to DataSet：}
uses 
  DataSetConverter4D, 
  DataSetConverter4D.Impl;  
 
JSON_ARRAY =
        [{
            "Id": 1,
            "Name": "Customers 1",
            "Birth": "2014-01-22 14:05:03"
        }, {
            "Id": 2,
            "Name": "Customers 2",
            "Birth": "2014-01-22 14:05:03"
        }]      
              
JSON_OBJECT =
        {
            "Id": 2,
            "Name": "Customers 2",
            "Birth": "2014-01-22 14:05:03"
        }
var
  ja: TJSONArray;
  jo: TJSONObject;
begin
  fCdsCustomers.CreateDataSet;
 
  ja := TJSONObject.ParseJSONValue(TEncoding.ASCII.GetBytes(JSON_ARRAY), 0) as TJSONArray;
  jo := TJSONObject.ParseJSONValue(TEncoding.ASCII.GetBytes(JSON_OBJECT), 0) as TJSONObject;
 
  //Convert one record
  TConverter.New.JSON(jo).ToDataSet(fCdsCustomers);
 
  fCdsCustomers.EmptyDataSet;
 
  //Convert all records
  TConverter.New.JSON.Source(ja).ToDataSet(fCdsCustomers);
 
  ja.Free;
  jo.Free;
end;

感谢：https://blog.csdn.net/sensor_WU/article/details/119730146