论坛 › 『传奇技术』 › 77M2引擎如何使用JSON命令 91M2引擎JSON脚本范例

阳光下泡沫 发表于 2020-2-14 05:50:13

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 发表于 2020-2-14 10:39:45

LZ是天才，坚定完毕

黎映玲 发表于 2020-2-14 12:58:49

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

dfsdfeic 发表于 2020-2-23 05:35:54

鼎力支持！！

十里秋香 发表于 2020-2-27 06:04:55

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

Bobby鄧 发表于 2020-3-13 05:14:58

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

jun19 发表于 2020-3-19 00:09:36

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

我是佐佐 发表于 2020-4-11 09:48:00

这么强,支持楼主，佩服

jun1986 发表于 2020-4-15 18:16:47

回个帖子，下班咯~

萧笠翁寒江雪 发表于 2020-4-21 05:58:28

好，很好，非常好！

查看完整版本: 77M2引擎如何使用JSON命令 91M2引擎JSON脚本范例