json - JSONObject をパラメータとして JSON リクエストを送信する方法は?

Question

Delphi XE4 で構築された安らかなアプリケーション サーバーがあり、JSONObject のような複雑なパラメーターを持つすべての JSON メソッドは、nil または空のオブジェクトとして受信されます。多くのチュートリアルを読みましたが、なぜ機能しないのかまだわかりません。

「高度なレストクライアントアプリ」と呼ばれるChromeブラウザーのツールを使用して、アプリケーションサーバーをテストしています。

重要な事実:クライアントが Delphi で構築されている場合、それは非常にうまく機能します。クライアントで GET リクエストを使用しようとすると、完全に機能します。

同じコード:

function TServerMethods.cancelDeleteCheque(const aJSONObject: TJSONObject): TJSONObject;
var
  DMCheques: TDMCheques;
  sException: String;
begin
  try
    try
      sException := _EMPTY;
      result := TJSONObject.Create(nil);
      DMCheques := TDMCheques.GetInstance(nil);

      with aJSONObject do
      begin
        DMCheques.AddFilter(Format(' (CDCHENUMERO = %s) AND (NUMEROBANCO = %s) ', [QuotedStr(TJSONString(Get(0).JSONValue).Value),
          QuotedStr(TJSONString(Get(1).JSONValue).Value)]));
        DMCheques.cdsprincipal.Open;
        DMCheques.cdsPrincipal.Delete;
      end;
    except
      on E: Exception do
        sException := E.Message;
    end;
  finally
    if sException <> _EMPTY then
      result.AddPair(_EXCEPTION, TJSONString.Create(sException));

    if Assigned(DMCheques) then
      FreeAndNil(DMCheques);
  end;
end;

次のエラー メッセージが表示されます。aJSONObject パラメータにアクセスしようとすると。

ありがとうございました！