【结贴】用 ocx直接运行一个功能**

huixiangtao

lContextCurrent := TContextCurrent.Create(Context);  在SetParamValue中不会报错，
但是这句话写在getparamvalue中，我38楼的那个函数中，就报错。我就把它该成了
lContextCurrent := TContextCurrent.Create(nil); 就不报语法错误了，这两句话有什么区别？我这样写，行吗？

shangxy

TContextCurrent.Create(BizSys.GlobalContext)这样

huixiangtao

我按照29楼的方法做了一遍，
1.这种网页登录方式不可以单步调试吧？
2，我设了个断点，初始化运行，发现lfuncURLS[0]的值为：biz:\COLLABORATION\AUTOMAKEREMINDERTASK.FUNC，显而易见，lfuncURLS里面还包含系统的功能呢，我的代码这样写：
procedure TOperatorFuncNavBar.LoadFuncs;
var
  lFuncURLs: TStringList;
  lFuncItem: TOperatorFuncItem;
  I: Integer;
  YWKJID:string;
begin
  YWKJID:=GetParamValue('Biz:\SYSTEM\DICT\YWCSZ1.ParamGroup\YWKJID.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;
那么我用YWKJID的值，用pos方法，过滤lfuncURLs，
不是也会把系统的这些功能给过滤掉吗？

shangxy

1.可以设置调试的时候使用ie浏览器，或者你可以再系统初始化的时候把那个参数先写死一个空间的url。
2.
if stringutils.Pos(YWKJID,lFuncURLs)<>0 then
    begin
      lFuncItem := TOperatorFuncItem(lFuncURLs.Objects[I]);
      FAllocatedFuncs.Add(lFuncItem.FuncURL.FileName);
      end;
这样以后他只会参数指定空间下的所有功能在业务功能树中显示出来，其他的不会。当然任务中心等功能也不会在业务功能树中显示出来了，如果需要就在做一下处理了。

huixiangtao

谢谢，我继续试，
工具--->选项，中有个在浏览器中调试，就是用这个设置使用Ie浏览器调试吧

shangxy

是的。你点击初始化运行就会启动一个ie

huixiangtao

我做了一遍，也单步调试了，现在在组件库中可以正确得到，run方法中传过来的第二个参数，用44楼的代码跟踪下来，发现只有TXK业务空间下的功能执行了那两句，其他的功能都没有执行那两句。可问题是，最后在business上并没有显示出我的TXK业务空间下的功能，一个都没有显示。business上只有一个工作台和一个协同办公，并且在协同办公模块标签下没有任何东西，不知道怎么回事？

shangxy

对，只会加载TXK业务空间下的功能，其他的空间下的空能不会加载到功能树上。

还有你在业务系统管理的配置中给这个空间单独分配了么？如果你没有单独让一个空间用功能树左边一个标签显示出来，并且协同平台中没有其它选项那么就不会有了。

huixiangtao

初始化运行，用ie浏览器调试，那运行的时候，浏览器怎么知道使用我的business.jsp,还是business1.jsp呢，这个是怎么判断的呢？

shangxy

这个应该既不是Business.jsp
它会自动创建一个start.html文件来运行。