1

我有一个 DataSnap 客户端和一个 DataSnap 服务器，用 Delphi XE4 制作。我确实使用了dbExpress，但我想将其更改为FireDAC，因为目前我正在将 XE4 迁移到 XE5，而 FireDAC 是我希望在我的项目中拥有的东西之一。

问题是我不知道如何将 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