Delphi解析VIN解码API JSON响应时遇类型转换错误求助

1. NHTSA VIN API响应的典型结构 #

先明确API返回的JSON格式（以官方标准响应为例）：

{
"Count": 1,
"Message": "Results returned successfully",
"SearchCriteria": "VIN:1GTR1VE0XDZ123456",
"Results": [
{
"ModelYear": "2013",
"Make": "GMC",
"Model": "Sierra",
// 其他冗余字段省略
}
]
}

2. 错误原因 #

“Invalid class typecast”本质是JSON类型强制转换错误：

• 你可能把Results这个数组类型的节点当成了对象来转换
• 或者访问字段时用错了类型转换方法（比如把字符串字段当成对象）
• 也可能是字段名拼写错误，导致找不到节点后强行转换空值

3. 正确的解析代码（基于Delphi自带System.JSON单元） #

先引入必要单元 #

uses System.JSON, System.SysUtils;

完整解析函数 #

procedure ParseNHTSAResponse(const JSONString: string);
var
  RootObj: TJSONObject;
  ResultsArray: TJSONArray;
  ResultObj: TJSONObject;
  ModelYear, Make, Model: string;
begin
  try
    // 第一步：把JSON字符串解析为根对象
    RootObj := TJSONObject.ParseJSONValue(JSONString) as TJSONObject;
    if not Assigned(RootObj) then
    begin
      ShowMessage('JSON数据无效');
      Exit;
    end;

    try
      // 第二步：获取Results数组（注意这是数组，不是单个对象）
      ResultsArray := RootObj.GetValue<TJSONArray>('Results');
      if not Assigned(ResultsArray) or (ResultsArray.Count = 0) then
      begin
        ShowMessage('未查询到车辆信息');
        Exit;
      end;

      // 第三步：取数组第一个元素（一个VIN对应一条结果）
      ResultObj := ResultsArray.Items[0] as TJSONObject;
      if not Assigned(ResultObj) then
      begin
        ShowMessage('结果格式异常');
        Exit;
      end;

      // 第四步：提取目标字段，用GetValue避免强制转换错误
      ModelYear := ResultObj.GetValue<string>('ModelYear', '未知');
      Make := ResultObj.GetValue<string>('Make', '未知');
      Model := ResultObj.GetValue<string>('Model', '未知');

      // 输出结果
      ShowMessage(Format('年份: %s 品牌: %s 车型: %s', [ModelYear, Make, Model]));
    finally
      RootObj.Free; // 必须释放JSON对象，防止内存泄漏
    end;
  except
    on E: Exception do
      ShowMessage('解析出错: ' + E.Message);
  end;
end;

4. 关键注意事项 #

• 别瞎强制转换：不要用RootObj.GetValue('Results') as TJSONArray这种写法，改用GetValue<TJSONArray>，类型不匹配时会返回nil，不会直接抛错。
• 字段名大小写敏感：NHTSA的API字段名是严格区分大小写的，比如ModelYear不能写成modelyear，否则会取不到值。
• 先验证JSON有效性：如果你的API响应有格式问题，ParseJSONValue会返回nil，这时候可以先把响应字符串复制到在线JSON校验工具里检查。

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