json - 将 JSON 解析为 TListBox

Question

大家晚上好!

我目前正在尝试为桌面构建一个 CloudFlare 客户端。我已连接到他们的 API 并通过 POST 请求成功检索了 JSON 结果(其结果已输出到 TMemo 中)。我现在想要将这些结果解析到 TListBox 中(例如，请参见粗体区域)。该项目是在 Firemonkey 中设计的。

这是带有一些示例内容的响应的格式化布局；

{
 - response: {
   |- ips: [
      |- {
         ip: "xxx.xxx.xxx.xxx",
         classification: "threat",
         hits: xx,
         latitude: null,
         longitude: null,
         zone_name: "domain-example1"
         },
       - {
         ip: "yyy.yyy.yyy.yyy",
         classification: "robot",
         hits: yy,
         latitude: null,
         longitude: null,
         zone_name: "domain-example2"
         }
       ]
   }
  result : "success",
  msg: null
}

我尝试了几种不同的组件 - SuperObject , Paweł Głowacki's JSON Designtime Parser , Tiny-JSON , LKJSON以及内置的 DBXJSON。但是，我根本没有使用 JSON 的经验，而且我似乎找不到可以开始使用的最基本的示例。其中许多都显示了示例数据，但我尝试过的所有数据似乎都没有按我的预期工作，很可能是因为我误解了它们。我假设这些组件可以工作，所以我需要入门指导。

ips“数组”中有数百个，通常是数千个结果(如果这不正确，我很抱歉，我假设它被称为数组，但同样，我是全新的到 JSON)。

我真正寻找的是某种非常基本的示例代码，我可以从中构建(以及它用于解析等的组件)。

例如，如果我想从 JSON 结果中获取每个 ip，并将每个 IP 作为单独的项目放入 TListBox 中(使用 TListBox.add 方法)，我将如何实现这一目标？

当我说ip时，我指的是值(在上面的格式化布局中，这将是xxx.xxx.xxx.xxx或yyy.yyy .yyy.yyy)。

此外，如果我想通过 JSON 结果中的 IP 查找“记录”(？)并将数据输出到 delphi 数组 - 例如；

Result : Array of String = ['"xxx.xxx.xxx.xxx"','"threat"','xx','null','null','"domain-example1"'];

这可以用 JSON 实现吗？ (如果这被视为一个单独的问题或太不相关，请随时将其编辑掉，而不是作为一个整体关闭问题)。

我最接近的不仅有IP，还有单独的TListItem中的所有其他数据(即response，ips、ip、classification、xxx.xxx.xxx.xxx 以及其他所有内容都有其自己的项目，以及每个项目之间的几个空项目非空项目)。

我确信它做起来非常简单，但是关于 JSON 的信息太多，对于刚接触该格式的人来说有点不知所措。

最诚挚的问候，斯科特·普理查德。

Answer 1

一旦您了解了基本概念，JSON 就非常简单且易于理解。看看http://json.org ，它解释了事情。

JSON中有4个基本概念:

值是任何 JSON 元素:基本字符串或数字、数组或对象。 (除了对之外的任何东西。)

数组应该是一个熟悉的概念:有序的值列表。与 Delphi 数组的主要区别在于 JSON 数组没有定义的元素类型；它们只是“JSON 值的数组。”

对是一个键值对。键可以是字符串或数字，值可以是任意 JSON 值。

对象是 JSON 对的关联映射。您可以从概念上将其视为 TDictionary<string, JSON value> .

因此，如果我想获取这样的 JSON 数据数组，并将其放入 TListBox 中，我会执行类似的操作(DBXJSON 示例，警告:未测试):

procedure TMyForm.LoadListBox(response: TJSONObject);
var
  i: integer;
  ips: TJSONArray;
  ip: TJSONObject;
  pair: TJSONPair;
begin
  ListBox.Clear;
  pair := response.Get('ips');
  if pair = nil then
    Exit;
  ips := pair.value as TJSONArray;
  for i := 0 to ips.size - 1 do
  begin
    ip := ips.Get(i) as TJSONObject;
    pair := ip.Get('ip');
    if pair = nil then
      ListBox.AddItem('???', ip.Clone)
    else ListBox.AddItem(pair.JsonString, ip.Clone);
  end;
end;

然后，您将获得一个 IP 地址列表以及包含完整记录的关联对象，如果用户选择一个，您就可以获得这些记录。 (如果您想将每条记录的全部内容放入列表控件中，请查看 TListView 。它比 TListBox 效果更好。)

如果您想构建一个包含所有值的字符串数组，请执行以下操作:

function JsonObjToStringArray(obj: TJsonObject): TArray<string>;
var
  i: integer;
begin
  SetLength(result, obj.Size);
  for i := 0 to obj.Size - 1 do
    result[i] := obj.Get(i).JsonValue.ToString;
end;

当然，这只是示例代码，但它应该为您提供一些可以构建的东西。