【搞定】单点登录的错误**

sutun_liguan

如题。版本2918
代码如下
  X3X.Logon("lh", "");
  X3X.Run("Biz:\SYSTEM\Init.Func", "", "", "");
   document.body.onbeforeunload=BeforeClose;
  document.title = X3X.DisplayName;
用IE打开后，选择注销，弹出“不能注销”的对话框。退出IE弹出下图错误

sutun_liguan

还有下面这个对话框

sutun_liguan

将所有加载项禁止后（除起步科技的）。又多了个对话框。显示如下信息Access violation at address 402D956A in module 'dsnap60.bpl'. Read of address 06A27A1C

alang

你屏蔽掉注销呢？

lixy

按下面修改 业务模型\系统空间\系统运行库\系统核心库 中的一个函数，注意修改完后编译、签入、刷新缓存

static procedure TSYSTEMCORE.SetOperator(AOperator: TOperator);
begin
  if not FCanRelogon or (FOperator <> nil) then
    raise Exception.Create('已经登录');

  FOperator := AOperator;

  FSetOperator := True;
  //FCanRelogon := Borland.Delphi.Windows.GetModuleHandle('rtdbg.dll') <> 0;
  FCanRelogon := True;
end;

sutun_liguan

谢谢 lixy。可以了，可不可以解释下为什么要这样

lixy

系统缺陷了，一直没改掉.
刚才我测试了一下是不是这个缺陷造成的，如果不改的话，关闭平台也会报错的。
但这个只针对单点登陆的。直接登陆不用改也不会报错。