Java、Php等語言中都有成熟的框架來解析Json數(shù)據(jù)，可以讓我們使用很少的代碼就把格式化好的json數(shù)據(jù)轉(zhuǎn)換成程序可識別的對象或者屬性，同時delphi中也有這樣的組件來實現(xiàn)此功能，即IsuperObject。如果還沒有這個組件的請在網(wǎng)上搜索下載或者在下面留言處留下你的郵箱向本人索取。
下面先說一下ISuperObject中幾個常用的函數(shù)
function SO(const s: SOString = ‘{}'): ISuperObject; overload; 此函數(shù)傳入json數(shù)據(jù)字符串，并返回一個ISuperObject對象，這一般是我們解析json時使用的第一個函數(shù)，如jObj := SO(jsonstr)。
property O[const path: SOString]: ISuperObject read GetO write PutO; default; 如：jobj.O[‘username']，此函數(shù)被一個ISuperObject對象調(diào)用，方括號內(nèi)的字符串為json中的字段名稱，返回一個ISuperObject對象。
property S[const path: SOString]: SOString read GetS write PutS; 此函數(shù)被一個ISuperObject對象調(diào)用，和O[‘username']不同的是，它返回的是一個SoString，即一個字符串，使用方法 str := jObj.S[‘username']; 同理的還有其他幾個類似的函數(shù)，如I[‘a(chǎn)ge']返回整數(shù)，B[‘isenable']返回布爾型，A[‘users']返回一個TSuperArray數(shù)組
AsString, AsBoolean, AsInteger,AsArray，ISuperObject的函數(shù)，用來把ISuperObject轉(zhuǎn)換成相應的數(shù)據(jù)類型。
下面我們看一個演示代碼，json數(shù)據(jù)如下
{ "retcode": "1", "datafrom": "server", "users": "[{/"id/":1, /"username/": /"liuderu/", /"website/": /"bcoder.com/"},{/"id/":2, /"username/": /"Jeoe/", /"website/": /"baidu.com/"}]"}Delphi版本2010，代碼如下：
unit uFmMain;interfaceuses 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) + '; 數(shù)據(jù)來源：' + 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.一個簡單的Delphi使用ISuperObject解析json的例子：Delphi_Json_jb51.rar
新聞熱點
疑難解答
圖片精選
