单点登陆问题

whhy · 发表于 2008-5-14 12:41:53

我该如何做才能跳过登陆对话框，通过传递的账号、密码参数直接登陆到系统中？

atiger · 发表于 2008-5-14 13:36:19

修改这个 function TSystemInterface.ShowLogonForm(var ALogonID, APassword: string): Boolean;
过程
仅仅留一句 Result := True;

begin
  {with TFM_DLDHK.Create(nil) do
try
   eName.Text := ALogonID;
   ePass.Text := APassword;
   if ShowModal = Business.Forms.Controls.mrOK then
   begin
      ALogonID := eName.Text;
      APassword := ePass.Text;}
      Result := True;
   { Forms.Application.ProcessMessages;
   end
   else
      Result := False;
finally
   Free;
end;}
end;

sgmx · 发表于 2008-5-15 18:49:25

我是这么做的：
test.asp
<html>
<body>
<form action="gojustep.asp" method="post">
用户名<input name='user' type='text'>
密码<input name='pwd' type='password'>
<input type="submit" value="提交">
</form>
</body>
</html>

gojustep.asp
<HTML>
<HEAD>
<title>Business业务架构平台</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</HEAD>

<BODY leftmargin="0" topmargin="0">

<OBJECT  id = "X3X"
      classid="clsid:317C9AA7-315B-4D4E-B9CE-2F0A08A7749E"
   codebase="http://10.124.21.69:8081/x3/X3X.CAB#version=3,0,6,3001"
      width="100%"
      height="100%"
      align=center
      hspace=0
      vspace=0
>
</OBJECT>
<%
  username=request("user")
  password=request("pwd")
%>
  <script type="text/javascript">
  X3X.ServerURL = "Socket://10.124.21.69:2048";
  X3X.ShowSplash();
  X3X.UpdateVersion();
  X3X.Init();
  X3X.CloseSplash();
  X3X.Logon("<%=username%>","<%=password%>");
  X3X.Run ("", "", "", "");
  document.title = X3X.DisplayName;
  </script>
</BODY>
</HTML>

运行显示

sgmx · 发表于 2008-5-15 18:52:51

我也按照图片.rar中修改了“业务模型\系统空间\系统运行库\系统初始化”中的如下代码：
procedure TINIT.DoRun;
var
  lContext: TContext;
  lOperator: TOperator;
  lClassURL: TBizClassURL;
begin
  TSystemCore.BeginWaiting;
  try
inherited DoRun;

if (TsystemCore.Operator = nil) then
      if InternalLogon('') then
         Flogoned := True
      else
      begin
         Terminate;
         Exit;
      end;

jiahaiming · 发表于 2008-5-16 08:49:37

楼主，你不要用旧的jsp文件。
在当前版本的business.jsp文件上修改就可以了。

atiger · 发表于 2008-6-4 09:15:19

楼主，还有问题吗?没有就结帖了：）

atiger · 发表于 2008-6-17 09:09:07

此帖结了，有问题，请重新开帖

		自动登录	找回密码
密码			立即注册

单点登陆问题

我碰到同样的问题，我的版本是3012