调用咏南中间件插件演示

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;

转载于:https://www.cnblogs.com/hnxxcxg/p/5583025.html