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对象将会作为自定义消息传输的格式

版权声明

1、本站所有内容均由互联网收集整理、网友上传，仅供大家参考、学习研究使用，不存在任何商业目的与商业用途。

2、论坛的所有内容都不保证其准确性，完整性，有效性，因本站内容因误导等因素而造成的损失本站不承担连带责任。

3、本站以《2013 中华人民共和国计算机软件保护条例》第二章 “软件著作权” 第十七条为原则：为了学习和研究软件内含的设计思想和原理，通过安装、显示、传输或者存储软件等方式使用软件的，可以不经软件著作权人许可，若有用户需要商用本站资源，请务必联系版权方购买正版授权！

这东西我收了！

感谢楼主提供这么好的论坛！

这东西我收了！

这东西我收了！

传奇论坛里面相对来说比较好的一个！感谢站长分享的技术教程。

新手上路不用愁，碰到传奇架设问题可以来这搜索。

很多架设问题在这里可以找到，真是太好啦。

感谢站长分享开区一条龙教程，新手能学习到很多知识。

在这里可以学到很多传奇一条龙开区时遇到的问题。