delphi - 解析 JSON 字符串以检测错误响应

Question

我正在使用使用 JSON 格式响应的服务器。

当请求包含有效数据时，它们会使用如下字符串进行响应

{"data":{"results":[{"Branch":"ACCT590006"}]}}

但是如果请求的参数不正确，响应会像这样

{"error":{"errors":[{"domain":"global","reason":"invalid","message":"Invalid Params"}],"code":98865,"message":"Invalid param value"}}

所以问题是我如何使用 TJSONObject 确定服务器的响应何时包含错误字符串对象并另外解析 JSON 字符串以显示消息和错误代码，如下所示。

Failed reason : invalid 
Message : Invalid params 
Code: 98865 
message : invalid param value.

Answer 1

每次我从代码(delphi 7)解析时，我都使用过一些 JSON。但我查了一下，在这里你可能会找到你问题的答案: http://edn.embarcadero.com/print/40882

经过一些调整，这应该可以工作。

最诚挚的问候，
拉杜