调用咏南中间件插件演示


function GetSvrData(const accountNo, defineId: WideString; inParams: OleVariant): OleVariant; virtual; abstract;
// accountNo,帐套编号
// defineId=3位插件编号+2位自定义编号,defineId必须是唯一的
// inParams,TDataSet.Params的OLEVARIANT序列,如果没有输入参数就赋值NULL,否则 PackageParams()序列TPARAMS为OLEVARIANT
// 返回:NULL--默认不返回结果,非NULL--返回结果数据

客户端调用这个远程方法来调用服务端插件
客户端调用示例:
示例一:
clientdataset1.data:= GetSvrData('0', '12301', null);
示例二:

var

  p:tparams;
begin

p:=tparams.create(nil);
p.Clear;
p.CreateParam(ftString, 'paramName', ptInput).Value := 'xxx';
clientdataset1.data:= GetSvrData('0', '12301', PackageParams(p));

p.free;
end;

posted @ 2016-06-14 10:05  delphi中间件  阅读(449)  评论(0编辑  收藏  举报