调用出错,Types of actual and formula var parameters must be identical.
JB7 2008-07-17 05:30:46 IKFSvrMgr = interface(IAppServer)
['{3B6266CB-6114-4205-A611-567D8AB0A8FD}']
procedure CU(const KCO: WideString; const UID: WideString; const PWD: WideString;
const DOGSEQ: WideString; out USERSEQ: OleVariant; out RLTMSG: OleVariant;
out VT: OleVariant); safecall;
procedure PS(const USERSEQ: WideString; const PID: WideString; const TP: WideString;
out RLT: OleVariant; out RtnMsg: OleVariant); safecall;
end;
通过接口接用部分:
var
tmpInterface:IKFSvrMgrDisp;
tmpResult1:OleVariant;
tmpResult2:OleVariant;
kco:STRING;
userid:STRING;
pwd:STRING;
gdogid:STRING;
gvr:STRING;
Begin
if sCn.Connected =False then
BEgin
showmessage('访问应用服务器时发生错误!'+chr(13)+'请检查服务器是否正常,'+chr(13)+'网络是否正常,'+
'如果问题还没有解决,请联系软件供应商!');
tmpResult1:='0';
tmpResult2:='连接应用服务器失败!';
EXIT;
End;
IF sCn.Connected THEN
Begin
tmpInterface:=IKFSvrMgrDisp(IDispatch(scn.AppServer));
tmpInterFace.CU( kco , userid , pwd , gDogID , tmpResult1 , tmpResult2 , gVr );
ENd;
End;
报错:
Types of actual and formula var parameters must be identical.