从外部系统自动登陆到X3系统**

zhdkelly

1、Business.jsp
  X3X.ServerURL = "<%= url%>"
  X3X.ShowSplash();
  X3X.UpdateVersion();
  X3X.Init();
  X3X.CloseSplash();
  X3X.logon("JB_GLC","");//用户名和密码
  X3X.Run("", getParameter("userid"), "", "");
加了logon后，访问的时候还是弹出用户输入框。

shangxy

run函数增加一个参数看看
X3X.Run("Biz\\System\\Init.func", "", "", "")

atiger

http://bbs.justep.com/forum.php?mod=viewthread&tid=25000

zhdkelly

报错

lixy

你少写个冒号，在biz后面

zhdkelly

从外部系统登陆到X3时候，假如用户名或者密码输入错误的话，弹出提示框：如下截图：

lixy

你的需求是什么？

zhdkelly

现在是点击确定按钮后，页面全是空的，我的目的是点击确定按钮后还是显示登陆框，

atiger

看3楼的连接，

shangxy

系统初始化功能中添加如下代码：

  Ttestocx = class(TBusinessRuntimeServerMethod)
    function GetName: string; override;
    function Invoke(var Params: array of object): object; override;
  end;

function Ttestocx.GetName: string;
begin
  Result := 'testocx';
end;

function Ttestocx.Invoke(var Params: array of object): object;
var
  up: array of string;
  s ,lPersonID: String;
begin
  s := objectHelper.ToString(Params[0]);
  if s <> nil then
  up :=s.Split([';']);//用户名和密码中不能有“;”号^_^
  lPersonID :='';
  lPersonID := Opr.OperatorLoader.FindPersonID(up[0], up[1], True);
  if  lPersonID ='' then
    Result := '0'
  else
    Result := '1';
end;


var
  FInitInstance: TInit;
  FInternalDisableAutoLogon: Boolean;
  CreateFunc: TCreateFunc;
     Flxy:TBusinessRuntimeServerMethod; //add
{ TInit }

static procedure TINIT.Init;
begin
............
  //创建对象实例
  flxy:= Ttestocx.Create;
//注册这个对象
  BizRtSrvr.BusinessRuntimeServer.RegisterMethod(flxy);
end;

static procedure TINIT.Uninit;
begin
.....
  //反注册对象
  BizRtSrvr.BusinessRuntimeServer.UnregisterMethod(flxy);
//释放对象
  flxy.Free;
end;