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.
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.