远程方法的定义和调用

最新推荐文章于 2024-04-07 20:39:47 发布

weixin_30532973

最新推荐文章于 2024-04-07 20:39:47 发布

阅读量125

点赞数

原文链接：http://www.cnblogs.com/hnxxcxg/archive/2012/02/12/2347693.html

版权

xe datasnap自动支持TParams对象的序列，无需我们手动序列，真的很方便。

远程方法定义示例：

function TServerMethods1.GetData(sql: string;
params: TParams): TDataSet;
begin
cds.Close;
cds.CommandText := '';
cds.CommandText := sql;
cds.Params.Clear;
cds.Params := params;
cds.Open;
Result := cds;
end;

客户端远程调用示例：

function TMySQL.GetData: TDataSet;
begin
fSqlMethod.ServerMethodName := 'TServerMethods1.getData';
fSqlMethod.ParamByName('sql').AsString := fSqlcommand;
fSqlMethod.ParamByName('params').AsParams := fQry.Params;
fSqlMethod.ExecuteMethod;
Result := fSqlMethod.ParamByName('returnparameter').AsDataSet;
end;

转载于:https://www.cnblogs.com/hnxxcxg/archive/2012/02/12/2347693.html