delphi - JSON 文字列を解析してエラー応答を検出する

Question

JSON形式を使用して応答するサーバーを使用しています。

リクエストに有効なデータが含まれている場合、次のような文字列で応答します

{"データ":{"結果":[{"ブランチ":"ACCT590006"}]}}

ただし、リクエストのパラメーターが正しくない場合、レスポンスは次のようになります

{"エラー":{"エラー":[{"ドメイン":"グローバル","理由":"無効","メッセージ":"無効なパラメーター"}],"コード":98865,"メッセージ":"パラメータ値が無効です"}}

したがって、問題は、オブジェクトを使用してサーバーの応答にエラー文字列が含まれているかどうかを判断し、TJSONObject さらに JSON 文字列を解析して、このようなメッセージとエラーコードを表示する方法です。

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

score 1 · Accepted Answer

コードから解析するたびに、JSON を少し使用しました (delphi 7)。しかし、私は少し検索しました。ここであなたの質問の答えが見つかるかもしれません: http://edn.embarcadero.com/print/40882

少し適応させるだけで、これはうまくいくはずです。

よろしく、
ラドゥ

1 に答える 1