JSON Objects Framework（1）
2021-03-09 21:32
标签：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 建立一个name：value “Hello”:"World" 静态类函数ParseJSONValue或函数Parse可用于将字节流解析为等效的JSON值实例。 使用以下代码片段将JSON字符串表示转换为JSON。 上面的输出结果一样， 在JSON生命周期中，父对象拥有它所包含的任何值，除非将所属属性设置为False。在本例中，JSON对象的销毁跳过了将标记设置为False的每个成员。该特性允许将各种对象组合成更大的对象，同时保留所有权。默认情况下，属性为True，这意味着所有包含的实例都由它们的父实例拥有。 可以克隆所有JSON类型。克隆操作是一个深度克隆。克隆的对象将拥有所有的JSON实例。 服务器方法接受所有JSON类型作为输入、输出或返回参数，但它们不拥有任何JSON类型。在服务器方法执行后释放JSON实例。可以读取JSON对象并对内容作出反应，但如果需要进一步存储，则必须克隆该对象。 JSON Objects Framework（1） 标签：type json对象 try false console 字符串表 设置 port 输出 原文地址：https://www.cnblogs.com/usegear/p/12862271.html
TJSONObject
TJSONArray
TJSONNumber
TJSONString
TJSONTrue
TJSONFalse
TJSONNull
var
LJSONObject: TJSONObject;
begin
LJSONObject:= TJSONObject.Create;
LJSONObject.AddPair(TJSONPair.Create(TJSONString.Create(‘Hello‘),
TJSONString.Create(‘World‘)));
class function ParseJSONValue(const Data: TBytes; const Offset: Integer): TJSONValue; overload; static;
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"}