可以使用什么FireDAC组件来替换dbExpress DBXCommand?

时间:2014-03-27 12:51:12

标签: delphi delphi-xe4 datasnap dbexpress firedac

我有一个用Delphi XE4制作的DataSnap客户端和一个DataSnap服务器。我确实使用 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,我需要它。

0 个答案:

没有答案