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

zfang

？新建一个参数，然后拿它的url放到这个代码。

cfcjlu123

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

系统初始化代码中
procedure TInit.SetParamValue(AValue: String);
var
  lParam: TBizParam;
  lBizURL: TBizURL;
  lContextCurrent: TContextCurrent;
begin
  lBizURL := TBizURL.Create;
  lContextCurrent := TContextCurrent.Create(Context);
  try
    lBizURL.URL := 'Biz:SYSTEMSYSPARAMS.PARAMGROUPMKFL.Param';
    lParam := lContextCurrent.GetParam(lBizURL);
    lParam.Value :=  AValue;
  finally
    lBizURL.Free;
  end;

procedure TINIT.DoRun;
var
  I: Integer;
  lContext: TContext;
  lOperator: TOperator;
  lClassURL: TBizClassURL;
  lServiceFuncs: TStrings;
  Param : String;

组件库代码
procedure TOperatorFuncNavBar.LoadFuncs;
var
  lFuncURLs: TStringList;
  lFuncItem: TOperatorFuncItem;
  I: Integer;
  YWKJID:string;
begin
  YWKJID:=GetParamValue('Biz:SYSTEMSYSPARAMS.PARAMGROUPMKFL.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;

系统参数

cfcjlu123

JSP中传入的参数是协同系统的路径，按道理应该平台打开后只出现一个协同系统的业务空间，可是还有其他的业务空间。

cfcjlu123

出现这个

shangxy

lContextCurrent 没有释放
左边业务功能树上其他空间下的功能能显示出来么？还是只有标签页？

cfcjlu123

开始的时候忘记签入了，后来签入之后进不去页面，出现上面截图的错误，然后就死掉。

cfcjlu123

lContextCurrent在哪里释放？

shangxy

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

这里的没有释放

cfcjlu123

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


修改之后，依然那个错误。

shangxy

把参数赋一个空间的URL，然后使用studio调试运行看看是否会出错。