使用TMS WEB Core和JSON

bsxbgnwa 于 2023-04-13 发布在其他

关注(0)|答案(1)|浏览(190)

从一个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的解决方案。

JSON

来源：https://stackoverflow.com/questions/75285006/using-tms-web-core-and-json

1条答案

按热度按时间

tzcvj98z1#

基本上，在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并迭代它的项。

赞(0）回复(0）举报 2023-04-13

我来回答

使用TMS WEB Core和JSON

1条答案

相关问题

热门标签

最新问答