标签：type json对象 try false console 字符串表 设置 port 输出
学习datasnap，json必须掌握。用自身的JSON，就必须熟悉JSON Objects Framework。其中tostring和value区别就是一个坑。
The JSON objects framework supports all JSON types:all descendants of TJSONValue
| TJSONObject |
| TJSONArray |
| TJSONNumber |
| TJSONString |
| TJSONTrue |
| TJSONFalse |
| TJSONNull |
建立一个name：value “Hello”:"World"
var LJSONObject: TJSONObject; begin LJSONObject:= TJSONObject.Create; LJSONObject.AddPair(TJSONPair.Create(TJSONString.Create(‘Hello‘), TJSONString.Create(‘World‘)));
静态类函数ParseJSONValue或函数Parse可用于将字节流解析为等效的JSON值实例。
class function ParseJSONValue(const Data: TBytes; const Offset: Integer): TJSONValue; overload; static;
使用以下代码片段将JSON字符串表示转换为JSON。
const GJSONString = ‘{‘ + ‘ "name": {‘+ ‘ "A JSON Object": {‘ + ‘ "id": "1"‘ + ‘ },‘ + ‘ "Another JSON Object": {‘ + ‘ "id": "2"‘ + ‘ }‘ + ‘ },‘ + ‘ "totalobjects": "2"‘ + ‘}‘;
procedure ConsumeJsonString; var LJSONObject: TJSONObject; begin LJSONObject := nil; try { convert String to JSON } LJSONObject := TJSONObject.ParseJSONValue(TEncoding.UTF8.GetBytes(GJSONString), 0) as TJSONObject; {这个好好看清楚，我们以后需要依葫芦画瓢} { output the JSON to console as String } Writeln(LJSONObject.ToString); finally LJSONObject.Free; end;
{使用parse的code snippet}
procedure ConsumeJsonBytes; var LJSONObject: TJSONObject; begin LJSONObject := nil; try LJSONObject := TJsonObject.Create; { convert String to JSON } LJSONObject.Parse(BytesOf(GJSONString), 0); { output the JSON to console as String } Writeln(LJSONObject.ToString); finally LJSONObject.Free; end; end;
上面的输出结果一样，
{"name":{"A JSON Object":{"id":"1"},"Another JSON Object":{"id":"2"}},"totalobjects":"2"}
在JSON生命周期中，父对象拥有它所包含的任何值，除非将所属属性设置为False。在本例中，JSON对象的销毁跳过了将标记设置为False的每个成员。该特性允许将各种对象组合成更大的对象，同时保留所有权。默认情况下，属性为True，这意味着所有包含的实例都由它们的父实例拥有。
可以克隆所有JSON类型。克隆操作是一个深度克隆。克隆的对象将拥有所有的JSON实例。
服务器方法接受所有JSON类型作为输入、输出或返回参数，但它们不拥有任何JSON类型。在服务器方法执行后释放JSON实例。可以读取JSON对象并对内容作出反应，但如果需要进一步存储，则必须克隆该对象。
标签：type json对象 try false console 字符串表 设置 port 输出
原文地址：https://www.cnblogs.com/usegear/p/12862271.html
