delphi 解析json java_DELPHI 解析 JSON

JSON Toolkit.

下了DELPHI WEB UTILS,发现这个对解析复杂的JSON的时候会出现错误。

procedure TForm3.bbtn2Click(Sender: TObject);

var

a: TJSONObject;

b: TStringStream;

begin

b := TStringStream.Create();

b.LoadFromFile('a.txt');

a := TJSONObject.create(b.DataString);

end;

在CREAGTE的时候对于复杂的JSON就出错误了。

其实这个UNIT分装的挺好的，其使用方法和JAVA的JSONLIB(net.sf.json)很类似。可惜不能用。

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

接着下了json delphi library

var

js,xs:TlkJSONobject;

ws: TlkJSONstring;

s: String;

i: Integer;

b: TStringStream;

begin

b := TStringStream.Create();

b.LoadFromFile('a.txt');

s := b.DataString;

js := TlkJSON.ParseText(s) as TlkJSONobject;

Memo1.Lines.Add('parent self-type name: ' + js.SelfTypeName);

Memo1.Lines.Add(IntToStr(TlkJSONlist(js.Field['metaData'].Field['fields']).count));

Memo1.Lines.Add(TlkJSONlist(js.Field['metaData'].Field['fields']).Child[1].field['name'].Value);

运行正常。

以后就用这个吧。