Delphi中使用ISuperObject解析Json数据
发布时间:2020-12-15 09:41:51 所属栏目:大数据 来源:网络整理
导读:Java、Php等语言中都有成熟的框架来解析Json数据,可以让我们使用很少的代码就把格式化好的json数据转换成程序可识别的对象或者属性,同时delphi中也有这样的组件来实现此功能,即IsuperObject。如果还没有这个组件的请在网上搜索下载或者在下面留言处留下你
Java、Php等语言中都有成熟的框架来解析Json数据,可以让我们使用很少的代码就把格式化好的json数据转换成程序可识别的对象或者属性,同时delphi中也有这样的组件来实现此功能,即IsuperObject。如果还没有这个组件的请在网上搜索下载或者在下面留言处留下你的邮箱向本人索取。
下面先说一下ISuperObject中几个常用的函数
下面我们看一个演示代码,json数据如下 ? { "retcode": "1","datafrom": "server","users": "[{"id":1,"username": "liuderu","website": "bcoder.com"},{"id":2,"username": "Jeoe","website": "baidu.com"}]" } Delphi版本2010,代码如下: unit uFmMain; interface uses Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,StdCtrls,ComCtrls,Buttons,superobject; type TFmMain = class(TForm) Memo1: TMemo; ListView1: TListView; BitBtn1: TBitBtn; Label1: TLabel; procedure BitBtn1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var FmMain: TFmMain; implementation {$R *.dfm} procedure TFmMain.BitBtn1Click(Sender: TObject); var jRet,jUsers: ISuperObject; aryUsers: TSuperArray; retCode: integer; strUsers: string; i: integer; begin jRet := SO(Memo1.Text); if (jRet.O[‘retcode‘] <> nil) then begin retCode := jRet.O[‘retcode‘].AsInteger; Label1.Caption := ‘返回值:‘ + IntToStr(retCode) + ‘; 数据来源:‘ + jRet.O[‘datafrom‘].AsString; if(jRet.O[‘retcode‘].AsInteger = 1) then begin strUsers := jRet.O[‘users‘].AsString; jUsers := SO(strUsers); aryUsers := jUsers.AsArray; for I := 0 to aryUsers.Length - 1 do begin with ListView1.Items.Add do begin Caption := aryUsers[i].O[‘id‘].AsString; SubItems.Add(aryUsers[i].O[‘username‘].AsString); SubItems.Add(aryUsers[i].O[‘website‘].AsString); end; end; end; end; end; end. ?
原文地址:
http://bcoder.com/delphi/parse-json-data-in-delphi-by-using-isuperobject?
(编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |