77M2引擎如何使用JSON命令 91M2引擎JSON脚本范例

阳光下泡沫

如何使用JSON

unit Q54;

interface
  uses Classes, SysUtils, JSON; //必须引用JSON单元

procedure Main(Npc: TNormNpc; Player: TPlayObject; Args: TArgs);

implementation

{
  TJSONValue
    TJSONObject:json对象
    TJSONNumber:数值
    TJSONTrue
    TJSONFalse
    TJSONArray:数组
}

procedure Main(Npc: TNormNpc; Player: TPlayObject; Args: TArgs);
const
  json_obj = '{"name":"77m2","version":"2014.6.8","code":100,"date":"2014-06-08","names":["白野猪","黑野猪"],"objs":[{"name":"白野猪","hp":2000},{"name":"黑野猪","hp":500}]}';      
var
  V: TJSONValue;
  O: TJSONObject;
  A: TJSONArray;
  I: Integer;
begin
  //从json字符串中解析json对象
  V := ParseJSONValue(json_obj);
  if V <> nil then
  begin
    try
      if V is TJSONObject then
      begin
        O := V as TJSONObject;
        Npc.MessageBox(Player, O.Values['name'].Value);  //读取name的值

        A := O.Values['objs'] as TJSONArray;
      end;
    finally
      V.Free;
    end;
  end;   

  //直接创建JSON对象,然后写入值
  O := TJSONObject.Create;
  try
    O.AddPair('name', '77m2');  //加入字符串节点
    O.AddPair('IsShared', True); //true  
    O.AddPair('Deleted', False); //false
    O.AddPair('Int', 100); //整型
    O.AddPair('Float', 1.25); //浮点

    A := TJSONArray.Create;  //创建一个数组对象
    A.Add('XXX');
    A.Add('AAA');
    O.AddPair('Array', A); //将数组加到json对象中,加入之后json对象会负责释放这个数组对象,所以不能手工释放被加入到其他json对象的json对象
    Npc.MessageBox(Player, O.ToString);
  finally
    O.Free; //释放json对象O,同时O会负责其内的全部json对象,比如前面加入的数组A
  end;
end;

end.


注意：JSON对象将会作为自定义消息传输的格式

19870808

LZ是天才，坚定完毕

黎映玲

围观 围观 沙发在哪里！！！

dfsdfeic

鼎力支持！！

十里秋香

支持楼主，用户楼主，楼主英明呀！！！

Bobby鄧

发发呆，回回帖，工作结束~

jun19

纯粹路过，没任何兴趣，仅仅是看在老用户份上回复一下

我是佐佐

这么强,支持楼主，佩服

jun1986

回个帖子，下班咯~

萧笠翁寒江雪

好，很好，非常好！