[Delphi] uJSON 라이브러리

 

ex)

JSONObject.getJSONObject('test').getJSONArray('list').getJSONObject(0).keys.Strings[0]
JSONObject.getJSONObject('test').getJSONArray('list').getJSONObject(I).get('name').toString

===========================================================================================

procedure TForm1.Test;
var
  JSONObject: TJSONObject;
begin

  JSONObject := TJSONObject.create('json데이타내용');

  for i := 0 to JSONObject.getJSONArray('리스트').length - 1 do
  begin

    ShowMessage(JSONObject.getJSONArray('리스트').getJSONObject(i).get('이름').toString);

  end;

end;

===========================================================================================

procedure TForm1.Test1;
var
  obj_Json: TJSONObject;
  s: string;
begin

  Memo1.Clear;

  obj_json := tjsonobject.create;
  obj_json.put('namestring', 'namevalue');
  s := obj_json.toString;
  obj_json.free;

  obj_json := tjsonobject.create(s);
  s := obj_json.getString('namestring');

  obj_json.free;

  Memo1.Lines.Add(s);

end;

===========================================================================================

procedure TForm1.Test2;
var
  mJson, sJson: TJsonObject;
  aJson: TJSONArray;
begin

  Memo1.Clear;

  try

    mJson := TJsonObject.create;
    sJson := TJsonObject.create;
    aJson := TJSONArray.create;

    mJson.put('topRank', aJson);
    aJson.put(sJson);
    sJson.put('ch_userid', 'cup');
    sJson.put('prgid', 'prg');
    sJson.put('runtime', 'run');
    sJson.put('thumbnail_path', 'resol');

    Memo1.Lines.Add(mJson.toString);

    Memo1.Lines.Add(sJson.getString('prgid'));

  finally

    mJson.Free;

  end;

end;

uJSON.pas