【结贴】[请求]模块分离求助

cfcjlu123

系统初始化代码

procedure TINIT.SetParamValue(AValue: String);
var
  lParam: TBizParam;
  lBizURL: TBizURL;
  lContextCurrent: TContextCurrent;
begin
  lBizURL := TBizURL.Create;
  lContextCurrent := TContextCurrent.Create(BizSys.GlobalContext);
  try
    lBizURL.URL := 'Biz:\SYSTEM\SYSPARAMS.PARAMGROUP\MKFL.Param';
    lParam := lContextCurrent.GetParam(lBizURL);
    lParam.Value :=  AValue;
  finally
    lBizURL.Free;
    lContextCurrent.Free;
  end;
end;

procedure TINIT.DoRun;
var
  I: Integer;
  lContext: TContext;
  lOperator: TOperator;
  lClassURL: TBizClassURL;
  lServiceFuncs: TStrings;
  Param: String;
begin
  Param := Parameters;
  showmessage(Param);
  SetParamValue(Param);
  TSystemCore.BeginWaiting;

组件库代码

procedure TOperatorFuncNavBar.LoadFuncs;
var
  lFuncURLs: TStringList;
  lFuncItem: TOperatorFuncItem;
  I: Integer;
  YWKJID:string;
begin
  YWKJID:=GetParamValue('Biz:\SYSTEM\SYSPARAMS.PARAMGROUP\MKFL.Param');
  lFuncURLs := TStringList.Create;
  FAllocatedFuncs.BeginUpdate;
  try
    TContextUtils.GetAllocatedFuncs(FContext, lFuncURLs);

    FAllocatedFuncs.Clear;
    for I := 0 to lFuncURLs.Count - 1 do
    begin
    if stringutils.Pos(YWKJID,lFuncURLs)<>0 then
    begin
      lFuncItem := TOperatorFuncItem(lFuncURLs.Objects[I]);
      FAllocatedFuncs.Add(lFuncItem.FuncURL.FileName);
      end;
    end;
  finally
    FAllocatedFuncs.EndUpdate;
    lFuncURLs.Free;
  end;
end;

没列出的地方就是没有其他更改，不算方法声明，看看哪有问题。系统参数组，系统参数中，建立了系统参数MKFL

cfcjlu123

您写的那个是Set方法吧，Get方法该怎么写

zfang

http://bbs.justep.com/forum.php?mod=viewthread&tid=28468
38楼中 不就有么？你参考着你的业务去写。具体该怎么写我也不清楚。

cfcjlu123

jsp中代码
X3X.Params = "<%= params%>";
  X3X.UpdateVersion();
  X3X.ShowSplash();
  X3X.Init();
  X3X.Logon("050456","050456");
  X3X.CloseSplash();
  X3X.Run("Biz:\System\Init.func", "Biz:AMIS", "", "");
  document.body.onbeforeunload=BeforeClose;
  document.title = X3X.DisplayName;

依然只加载了协同系统的业务空间，但是里面没有功能，访问过程中出现

cfcjlu123

还有

shangxy

你先在系统初始中把参数用一个常量来赋值，比如使用：Biz:\AMIS来给参数赋值，然后先从studio中调试运行如果没有问题，在用ie来运行。

cfcjlu123

按照你的方法，又出现这个

cfcjlu123

组件库代码中 lContextCurrent := TContextCurrent.Create(nil);我把括号里改成了BizSys.GlobalContext然后运行出现

cfcjlu123

现在不报错误，但是在给定的业务空间URL下，仍然平台只加载协同控件，但是里面没有功能
procedure TINIT.DoRun;
var
  I: Integer;
  lContext: TContext;
  lOperator: TOperator;
  lClassURL: TBizClassURL;
  lServiceFuncs: TStrings;
  Param: String;
begin
     Param:= 'Biz:\AMIS';
  // Param:= Parameters;
  // showmessage(Param);
     SetParamValue(Param);
  TSystemCore.BeginWaiting;

cfcjlu123

从浏览器访问的话依然还是之前的问题