|
|
楼主 |
发表于 2007-6-1 15:56:38
|
显示全部楼层
document.title = BusinessX.DisplayName;
BusinessX.ServerURL = "<%= lSysServer.getSysServerURL()%>"
//BusinessX.ShowSplash();
BusinessX.UpdateVersion();
BusinessX.Init();
var logoned = BusinessX.invokemethod('CheckLogon');
alert(logoned);
//BusinessX.CloseSplash();
//BusinessX.Logon("GLY", "");
//BusinessX.Run("Biz:\System\Init.Func", "", "", "");
//BusinessX.Run("", "", "", "");
//document.body.onbeforeunload=BeforeClose;
document.title = BusinessX.DisplayName;运行时被提示不支持该属性或方法。
{检查是否登陆}
TCheckLogon = class(TBusinessRuntimeServerMethod)
function GetName:String;override;
function Invoke(var Params: array of object):Object;override;
end;
{检查是否已登陆}
function TCheckLogon.GetName:String;
begin
Result := 'CheckLogon';
end;
function TCheckLogon.Invoke(var Params:array of object) bject;
begin
if TSystemCore.Operator <> nil then begin
Result := 'TRUE';
end else begin
Result := 'FALSE';
end;
end;
|
|
发表于 2007-6-1 18:24:24