Z
zzutlink
Unregistered / Unconfirmed
GUEST, unregistred user!
应用层的method定义为:
procedure CheckLogin(const LoginName, Password: WideString;
out Flag: OleVariant);
safecall;
客户端调用:
var
Flag:Variant;
LoginName,Password:string ;
begin
DCOMConnection1.AppServer.CheckLogin(LoginName,Password,Flag);
为什么Flag一定要设为variant,我设为Boolean时就出错,谢谢各位先!
procedure CheckLogin(const LoginName, Password: WideString;
out Flag: OleVariant);
safecall;
客户端调用:
var
Flag:Variant;
LoginName,Password:string ;
begin
DCOMConnection1.AppServer.CheckLogin(LoginName,Password,Flag);
为什么Flag一定要设为variant,我设为Boolean时就出错,谢谢各位先!