77M2传奇引擎如何使用JSON命令91M2引擎JSON脚本范例
如何使用JSON
unitQ54;
interface
usesClassesSysUtilsJSON;//必须引用JSON单元
procedureMain(Npc:TNormNpc;Player:TPlayObject;Args:TArgs);
implementation
{
TJSONValue
TJSONObject:json对象
TJSONNumber:数值
TJSONTrue
TJSONFalse
TJSONArray:数组
}
procedureMain(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);
ifV<>nilthen
begin
try
ifVisTJSONObjectthen
begin
O:=VasTJSONObject;
Npc.MessageBox(PlayerO.Values['name'].Value);//读取name的值
A:=O.Values['objs']asTJSONArray;
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(PlayerO.ToString);
finally
O.Free;//释放json对象O同时O会负责其内的全部json对象比如前面加入的数组A
end;
end;
end.
注意：JSON对象将会作为自定义消息传输的格式