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 を使いたいのですが、必要です。