我有一个用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,我需要它。