json - 使用 TMS WEB Core 和 JSON

Question

从 VCL 项目开始到 TMS WEB Core，我无法再使用“System.JSON”。

已声明:

LJsonValue: TJsonValue;
LJsonArray: TJsonArray;
LJSonString: TJsonString;

如何翻译VCL行

LJsonValue := LJsonValue.GetValue<TJSonValue>('choices');
LJSonString := LJSonArray.Items[0].GetValue<TJSONString>('text');

用于 TMS WEB 核心？我找不到对 JSON 不满意的解决方案。

Answer 1

基本上，在 TMS Web Core 中，您可以使用 WEBLib.JSON-Unit。这样你就可以将你的 VCL 代码翻译成这样:

uses WEBLib.JSON;

...  
var
  LJsonValue: TJSObject;
  LJsonValue2: TJSObject;
  LJsonArray: TJSArray;
  LString: String;
begin
  ...
  LJsonValue2 := TJSJSON.parseObject(LJsonValue.Properties['choices']);
  LString := String(TJSJSON.parseObject(LJsonArray[0]).Properties['text']);

使用 JS 单元中的函数 TJSJSON.parseObject，您可以将 JSValue 解析为 TJSObject 并这样您就可以访问底层 JSON 节点的所有属性。

您还可以将 TJSObject 转换为 TJSArray 并迭代它的项目。