Delphi 2007的SuperObject解析大容量JSON数据是否存在兼容问题？

问题解决参考 #

Delphi 2007 本身不提供原生的 TJSONObject 组件，官方原生JSON解析类是从Delphi 2010版本开始随Data.DBXJSON单元引入的，无法直接在Delphi 2007环境中使用。

你遇到的数组元素超过6个就解析失败的问题，基本都是当前使用的SuperObject版本存在bug导致的：旧版本的SuperObject存在硬编码的缓冲区大小限制、数组长度解析逻辑漏洞，刚好会触发7个1KB以上对象的解析异常。

你可以按以下优先级尝试解决：

• 替换适配Delphi 2007的最新稳定版SuperObject单元
  后续修复版本已经取消了不合理的大小硬编码，修复了数组解析的溢出问题，绝大多数同类问题替换单元后重新编译即可解决。
• 检查解析代码逻辑
  确认你调用解析接口时的写法符合规范，参考示例代码：

  uses
    SuperObject;
  
  procedure ParseJson(const JsonStr: string);
  var
    RootObj: ISuperObject;
    DataArr: TSuperArray;
    i: Integer;
  begin
    // 第二个参数设为True表示解析时自动处理UTF-8编码
    RootObj := TSuperObject.ParseString(PChar(JsonStr), True);
    if not Assigned(RootObj) then
    begin
      // 解析失败的错误处理
      Exit;
    end;
    DataArr := RootObj['result.data.data'].AsArray;
    for i := 0 to DataArr.Length - 1 do
    begin
      // 逐个处理数组内的对象
      // 示例：读取对象内的字段值
      // DataArr.O[i].S['field_name']
    end;
  end;
  

• 替换其他兼容Delphi 2007的JSON库
  如果更新SuperObject后问题仍然存在，可以选择lkJSON等第三方JSON解析库，都是完全兼容Delphi 2007版本的。

你问题中涉及的JSON结构参考：

{
  "result": {
    "data": {
      "succeeded": true,
      "message": "",
      "data": [
        {...},
        {...},
        {...},
        {...},
        {...},
        {...},
        {...}
      ]
    },
    "status": {
      "statusCode": 200
    }
  },
  "status": {
    "statusCode": 200,
    "message": "OK"
  }
}

内容的提问来源于stack exchange，提问作者Pedram Pakzad