Xe7 System.Json解析数据格式

一、Demo一解析嵌套数组

Json数据

{"code":1,"msg":"","data":{"GradeInfo":[{"gradeid":1,"gradename":"普通介绍人","graderate":0.02}],"UserList":[{"stype":"User","userid":"119110"},{"stype":"User","userid":"11911044"},{"stype":"User","userid":"119110444"},{"stype":"User","userid":"121121"},

{"stype":"User","userid":"13211111113"},{"stype":"User","userid":"abcadsfa"},{"stype":"Customer","userid":"admin"},{"stype":"Shoper","userid":"Shop2222"}]}}

var

 Jsobj:TJSONObject;

 i,j:Integer;

 Jarr:TJSONArray;

 temp:string;

 v:string;

 Jsvalue:Tjsonvalue ;

begin

    Jsobj:=TJSONObject.ParseJSONValue(Memo1.Text)  as TJSONObject;

    temp:=Jsobj.GetValue('data').ToString;

    Jsobj:=TJSONObject.ParseJSONValue(temp)  as TJSONObject;

    jarr := TJSONArray(Jsobj.GetValue('UserList'));

       for i :=  to Jarr.Size- do

      begin

        v:=(Jarr.Items[i].ToString);

         Jsobj:=TJSONObject.ParseJSONValue(v)  as TJSONObject;

//         for j := 0 to Jsobj.Count do

//         begin

           ShowMessage(Jsobj.GetValue('userid').ToString);

         //end;

end;

end;

二 Demo二

Delphi XE5带了system.json单元，原生提供了json支持类。下面是解析json用法说明：

最简单的JSON大致像这样

{

"date":"周二(今天, 实时：12℃)",

"dayPictureUrl":"http://api.map.baidu.com/images/weather/day/duoyun.png",

"nightPictureUrl":"http://api.map.baidu.com/images/weather/night/duoyun.png",

"weather":"多云",

"wind":"北风微风",

"temperature":"15 ~ 6℃"

}

对于这种格式比较简单的json，解析是非常容易的

StrJson := RESTResponse1.Content;

JSONObject := TJSONObject.ParseJSONValue(TEncoding.UTF8.GetBytes(StrJson), ) as TJSONObject;

JSONObject.getValue('date');

就可以得到date的值。如果像下面的这样结构比较复杂的json,就需要首先分析清楚这个json的格式才能获取成功。

{

"error":0,

"status":"success",

"date":"2014-03-04",

"results":

[{"currentCity":"成都",

  "weather_data":[

{

"date":"周二(今天, 实时：12℃)",

"dayPictureUrl":"http://api.map.baidu.com/images/weather/day/duoyun.png",

"nightPictureUrl":"http://api.map.baidu.com/images/weather/night/duoyun.png",

"weather":"多云",

"wind":"北风微风",

"temperature":"15 ~ 6℃"

},

{

"date":"周三",

"dayPictureUrl":"http://api.map.baidu.com/images/weather/day/yin.png",

"nightPictureUrl":"http://api.map.baidu.com/images/weather/night/xiaoyu.png",

"weather":"阴转小雨",

"wind":"北风微风",

"temperature":"14 ~ 7℃"

},

{

"date":"周四",

"dayPictureUrl":"http://api.map.baidu.com/images/weather/day/xiaoyu.png",

"nightPictureUrl":"http://api.map.baidu.com/images/weather/night/xiaoyu.png",

"weather":"小雨",

"wind":"北风微风",

"temperature":"12 ~ 7℃"

},

{

"date":"周五",

"dayPictureUrl":"http://api.map.baidu.com/images/weather/day/xiaoyu.png",

"nightPictureUrl":"http://api.map.baidu.com/images/weather/night/xiaoyu.png",

"weather":"小雨",

"wind":"南风微风",

"temperature":"9 ~ 6℃"

}

]

}

]}

这是一个嵌套结构，最外层是一个记录，包含"error", "status", "date", "results"四个字段，前三个都是简单的键值对，而“results”是一个数组，目前只有一个元素，即一条记录，这条记录的字段是"currentCity"和"weather_data"，再进一步"weather_data"又是一个组数，它有4个元素或者记录，每条记录里包含 "date"， "dayPictureUrl"，"nightPictureUrl"， "weather"，"wind"， "temperature"字段。

要想取出里面的"weather_data",利用目前的DBXJSON里的TJSONObject是不能直接取出来的，例如这样

StrJson := RESTResponse1.Content;

JSONObject := TJSONObject.ParseJSONValue(TEncoding.UTF8.GetBytes(StrJson), )

as TJSONObject;

weather := JSONObject.GetValue('weather_data');

需要一步一步的走，由于最外面是一个简单的json,可以先取出results,然后再取weather_data。

var

JSONObject: TJSONObject;

LItem: TJSONValue;

LJPair: TJSONPair;

weather: TJSONArray;

StrJson: String;

result: String;

i: Integer;

begin

StrJson := 'xxxxxxx';//假定是上面那个json

JSONObject := TJSONObject.ParseJSONValue(TEncoding.UTF8.GetBytes(StrJson), )

as TJSONObject;

JSONObject := (JSONObject.GetValue('results') as TJSONArray).Get()

as TJSONObject;

weather := JSONObject.GetValue('weather_data') as TJSONArray;

for i :=  to weather.size -  do //应该是4条记录

begin

    LItem := (weather.Get(i) as TJSONObject).GetValue('weather'); //得到weather的值

    result := result '|' LItem.Value;

end;

end

这段代码只是为了说明使用方法，没有做类型检查，最好在进行类型转换之前用is TJSONArray先判断是不是数组。

原文地址

补充，在原文中，作者没有提到，如何检查一个指定的串值是否存在，比如下面这行代码：

weather := JSONObject.GetValue('weather_data');

如果'weather_data'不存在，JSONObject.GetValue方法是要产生异常的，那么，该如何检查weath_data是否存在呢？

先声明一个

var

  jsonvalue: Tjsonvalue;

然后，利用JSONObject.TryGetValue方法来检查。

    if jsonObject.TryGetValue('weather_data', jsonvalue) then

...

如果weath_data存在，可以进一步通过jsonvalue.value取出其值。

注意，这个jsonvalue不用建立与释放。

--

网友发现上文中可能遇到的json串码问题，并给出了解决代码，Delphi <wbr>XE6 <wbr>原生解析jsonDelphi <wbr>XE6 <wbr>原生解析json！

procedure TForm1.Button2Click(Sender: TObject);

var

  LJsonArr   : TJSONArray;

  LJsonValue : TJSONValue;

  LItem     : TJSONValue;

  StrJson,S :string;

begin

   StrJson := RESTresponse1.Content;

   LJsonArr    := TJSONObject.ParseJSONValue(TEncoding.UTF8.GetBytes(StrJson),) as TJSONArray;

   for LJsonValue in LJsonArr do

   begin

      for LItem in TJSONArray(LJsonValue) do

        S :=Format('%s : %s',[TJSONPair(LItem).JsonString.Value, TJSONPair(LItem).JsonValue.Value]);

   end;

end;

三、Demo三

{

  功能：DelphiXE7中使用JSON

  ------------------------------------------------------------------------------

  说明：

  1,使用Delphi自己带的JSON(system.json)。

  2,这仅仅是一个简单例子，以后还会增加演示功能。

  ------------------------------------------------------------------------------

  注意：

  1,JSON类创建后，里面所有元素不用管释放，JSON类自己管理，千万不要画蛇添足啊！！！！！！

  ------------------------------------------------------------------------------

  作者：孙玉良 QQ：14667479 Email：sunylat@163.com  修改时间：2014/11/23 00:13

  ------------------------------------------------------------------------------

  开发工具：Delphi XE7

  测试手机：华为荣耀X1

}

unit Unit1;

interface

uses

  System.SysUtils, System.Types, System.UITypes, System.Classes,

  System.Variants,

  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.StdCtrls,

  FMX.Layouts, FMX.Memo;

type

  TForm1 = class(TForm)

    Panel1: TPanel;

    Memo1: TMemo;

    Panel2: TPanel;

    Button1: TButton;

    Button2: TButton;

    Memo2: TMemo;

    Button3: TButton;

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure FormCreate(Sender: TObject);

    procedure Button3Click(Sender: TObject);

    procedure FormResize(Sender: TObject);

  private

    { Private declarations }

    // 重新设置button按钮

    procedure ResetButton;

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

const

  // 演示用的JSON

  jsonString = '{"name":"张三", "other":["中国","程序员"]}';

implementation

{$R *.fmx}

uses

  System.json; // Dephi自带的JSON单元

procedure TForm1.Button1Click(Sender: TObject);

var

  JSONObject: TJSONObject; // JSON类

  i: Integer; // 循环变量

  temp: string; // 临时使用变量

  jsonArray: TJSONArray; // JSON数组变量

begin

  if Trim(Memo1.Text) = '' then

  begin

    ShowMessage('要解析数据不能为空！');

  end

  else

  begin

    JSONObject := nil;

    try

      { 从字符串生成JSON }

      JSONObject := TJSONObject.ParseJSONValue(Trim(Memo1.Text)) as TJSONObject;

      if JSONObject.Count >  then

      begin

        { 1,遍历JSON数据 }

        Memo2.Lines.Add('遍历JSON数据：' + ##);

        Memo2.Lines.Add('JSON数据数量：' + IntToStr(JSONObject.Count));

        for i :=  to JSONObject.Count -  do

        begin

          if i =  then

          begin

            temp := JSONObject.Get(i).ToString + ##;;

          end

          else

          begin

            temp := temp + JSONObject.Get(i).ToString + ##;

          end;

        end;

        { output the JSON to console as String }

        Memo2.Lines.Add(temp);

        Memo2.Lines.Add('------------------------------');

        { 2,按元素解析JSON数据 }

        Memo2.Lines.Add('按元素解析JSON数据：' + ##);

        temp := 'name = ' + JSONObject.Values['name'].ToString + ##;

        Memo2.Lines.Add(temp);

        // json数组

        jsonArray := TJSONArray(JSONObject.GetValue('other'));;

        if jsonArray.Count >  then

        begin

          // 得到JSON数组字符串

          temp := 'other = ' + JSONObject.GetValue('other').ToString + ##;

          // 循环取得JSON数组中每个元素

          for i :=  to jsonArray.Size -  do

          begin

            temp := temp + IntToStr(i + ) + ' : ' + jsonArray.Items[i]

              .Value + ##;

          end;

        end;

        Memo2.Lines.Add(temp);

      end

      else

      begin

        temp := '没有数据！';

        Memo2.Lines.Add(temp);

      end;

    finally

      JSONObject.Free;

    end;

  end;

end;

// 清空显示数据

procedure TForm1.Button2Click(Sender: TObject);

begin

  Memo1.Text := '';

  Memo2.Text := '';

end;

// 设置要解析的JSON数据

procedure TForm1.Button3Click(Sender: TObject);

begin

  Memo1.Text := jsonString;

end;

// 设置要解析的JSON数据

procedure TForm1.FormCreate(Sender: TObject);

begin

  Memo1.Text := jsonString;

end;

procedure TForm1.FormResize(Sender: TObject);

begin

  // 重新设置button按钮

  self.ResetButton;

end;

// 重新设置button按钮

procedure TForm1.ResetButton;

var

  buttonWidth: Integer;

begin

  buttonWidth := self.Width div ;

  Button1.Width := buttonWidth;

  Button2.Width := buttonWidth;

  Button3.Width := buttonWidth;

end;

end.

巴特西

Xe7 System.Json解析数据格式

最新文章

热门文章