Delphi中使用ISuperObject解析Json数据的实现代码

Delphi中使用中使用ISuperObject解析解析Json数据的实现代码数据的实现代码

主要介绍了Delphi中使用ISuperObject解析Json数据的实现代码,需要的朋友可以参考下

Java、Php等语言中都有成熟的框架来解析Json数据，可以让我们使用很少的代码就把格式化好的json数据转换成程序可识别

的对象或者属性，同时delphi中也有这样的组件来实现此功能，即IsuperObject。如果还没有这个组件的请在网上搜索下载或

者在下面留言处留下你的邮箱向本人索取。

下面先说一下ISuperObject中几个常用的函数

function SO(const s: SOString = ‘{}'): ISuperObject; overload; 此函数传入json数据字符串，并返回一个ISuperObject对象，这

一般是我们解析json时使用的第一个函数，如jObj := SO(jsonstr)。

下面我们看一个演示代码，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

BitBtn1: TBitBtn;

Label1: TLabel;

procedure BitBtn1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

FmMain: TFmMain;

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;