我在服务器端定义了如下函数:
procedure TRDM_RatingCost.Method1(var m1, m2: OleVariant); safecall;
begin
m1:=1;
m2:='ok';
end;
在客户段应该怎么调用呢 Var PResult,CExplain:OleVariant;
XX:integer;
str:string;
begin
TempInterface :=IRDM_RatingCostDisp(IDispatch(SharedConnection.AppServer));
TempInterface.Method1(PResult,CExplain);
xx:=PResult;
str:=CExplain;
showmessage(IntToStr(xx));
showmessage(str);
end;
我是如此调用为什么不对呢,在客户端写,这个函数在调用是可以的
procedure TRDM_RatingCost.Method1(var m1, m2: OleVariant); safecall;
begin
m1:=1;
m2:='ok';
end;
在客户段应该怎么调用呢 Var PResult,CExplain:OleVariant;
XX:integer;
str:string;
begin
TempInterface :=IRDM_RatingCostDisp(IDispatch(SharedConnection.AppServer));
TempInterface.Method1(PResult,CExplain);
xx:=PResult;
str:=CExplain;
showmessage(IntToStr(xx));
showmessage(str);
end;
我是如此调用为什么不对呢,在客户端写,这个函数在调用是可以的
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货