飞
飞扬人生
Unregistered / Unconfirmed
GUEST, unregistred user!
本人在开发com+应用时,利用其安全机制进行用户认证.
服务端程序 mts模块
Tclogin = class(TMtsAutoObject, Iclogin)
procedure Tclogin.Login(var role: OleVariant);
begin
//怎么启动安全机制？？？？？
role:='非法或安全机制未启动';
if issecurityenabled then
begin
if iscallerinrole('manager') then
role:='manager';
if ObjectContext.iscallerinrole('user') then
role:='user';
end;
setcomplete;
end;
客户端调用
machname:='xyg';
login:=coclogin.CreateRemote(machname);
login.Login(vuser);
user:=vuser;
showmessage(user);
本人以manager角色登陆
调用时user里的内容一直都是'非法或安全机制未启动',
说明objectcontext没有启动安全机制
请问高手该如何解决????????
服务端程序 mts模块
Tclogin = class(TMtsAutoObject, Iclogin)
procedure Tclogin.Login(var role: OleVariant);
begin
//怎么启动安全机制？？？？？
role:='非法或安全机制未启动';
if issecurityenabled then
begin
if iscallerinrole('manager') then
role:='manager';
if ObjectContext.iscallerinrole('user') then
role:='user';
end;
setcomplete;
end;
客户端调用
machname:='xyg';
login:=coclogin.CreateRemote(machname);
login.Login(vuser);
user:=vuser;
showmessage(user);
本人以manager角色登陆
调用时user里的内容一直都是'非法或安全机制未启动',
说明objectcontext没有启动安全机制
请问高手该如何解决????????