三层里的应用服务器上的方法可以用数组做参数吗?(30分)

  • 主题发起人 主题发起人 xygz
  • 开始时间 开始时间
X

xygz

Unregistered / Unconfirmed
GUEST, unregistred user!
用一个一维数组,从客户端调用的时候,编译通不过
procedure TClientMain.Button4Click(Sender: TObject);
var vArray: array[1..20] of OleVariant;
vState: OleVariant;
begin
vState:=False;
vArray[1]:=xxx;
...
vArray[20]:=xxx;
try
DCOMConnection1.AppServer.coupon(vArray,vState);
if vState=true then
begin
showmessage('Ok!');
end
else
showmessage('写入数据库时发生错误,请检查数据重新提交!');
except
showmessage('连接服务器时发生错误!');
end;
end;

[Error]:Type not allowed in Variant dispatch call.
 
用VarArrayCreate
 
接受答案了.
 
后退
顶部