1

Delphi XE4 で作成された DataSnap クライアントと DataSnap サーバーがあります。私はdbExpressを使用していますが、それをFireDACに変更したいと考えています。なぜなら、現時点では XE4 を XE5 に移行しており、FireDAC は私のプロジェクトに入れたいものの 1 つだからです。

問題は、dbExpress を FireDAC に移行する方法がわからないことです。FireDAC には dbExpress DBXCommand コンポーネントと同様のコンポーネントがありますか?

たとえば、そのコードを使用すると、次のようになります。

function getDataTest(const pint_Integer : integer;
                     const pbol_Boolean : boolean;
                     const p_json       : TjsonObject
                     const pstr_string  : string):TJSONObject;

var
  dbxC : TDBXCommand;
begin

  dbxC := FscDataSnap.DBXConnection.CreateCommand;
  dbxC.CommandType  := TDBXCommandTypes.DSServerMethod;
  dbxC.Text         := 'TdssMethodsTest.getData';
  dbxC.prepare;

  dbxC.Parameters[0].Value.SetInt32(pint_Integer);
  dbxC.Parameters[1].Value.SetBoolean(pbol_Boolean);
  dbxC.Parameters[2].Value.SetJSONValue(p_json,true);
  dbxC.Parameters[3].Value.SetJSONValue(pstr_string);

  dbxC.ExecuteUpdate;

  result := TJSONObject(dbxC.Parameters[4].Value.GetJSONValue);

end;

同じコマンドを使用したいのですが、FireDAC を使用しています。

FireDAC で dbExpress DBXCommand を置き換えて (上記のコードで使用する方法で) 適切に使用するには、どの FireDAC コンポーネントを使用できますか?

Obs: 本当に JSON を使いたいのですが、必要です。

4

0 に答える 0