JSON Objects Framework

Posted 2020-11-28 USEGEAR

学习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对象并对内容作出反应，但如果需要进一步存储，则必须克隆该对象。