【结贴】SystemCore.TSystemCore.FuncManager.RunFunc函数问题？**

007

用函数打开一个模态的流程入口功能:''Biz:BLXTGLXTGZRWSL.Func''，之后代码流转， SystemCore.TSystemCore.FuncManager.RunFunc(Context,'','Biz:BLXTGLXTGZRWSL.Func','',false,nil,true);   当整个应用程序关闭后弹出异常如图。如果把函数最后参数改为false不会有异常。不知是不是有什么关于流程的资源没有释放还是其他什么原因？

atiger

呵呵，这个楼主很容易判断出来的，
你做一个普通的功能，就写这一句代码，然后测试看看，

如果测试还是有问题，那么把你调用的功能中的代码先屏蔽掉看看，

如果代码都屏蔽还是有问题，请告知你用的版本号是多少？
并是否修改过系统空间和协同空间下的内容

RunFunc这个调用应该是没有问题的，这个测试过

007

测试过，调用另外的非流程功能是没有问题的。可我一楼的功能是流程的某功能环节，就有问题了。所以怀疑是不是某些关于流程的资源没有释放。

zfang

runfunc流程的入口，如果是ShowModal的方式的话会有问题。

lixy

楼主你这个问题类似
http://bbs.justep.com/forum.php?mod=viewthread&tid=17746
不能showmodel去流转任务,会出很多问题的.

007

试了一下，单独跑流程也是有问题的。
到了系统核心库的这个函数：
procedure TFuncManager.FreeFunc(Func: TFunc);
var
  P: TContext;
  F: TFlowControl;
begin
  F := nil;
  try
    try
      P := Func.Context.Parent;
      if (P <> nil) and (P.Owner is TFlowControl) then
        F := TFlowControl(P.Owner);
    finally
      Func.Free;
    end;
  finally
    if F <> nil then F.Free;
  end;
end;
其中到了 Func.Free; 这句就有问题了。发现F这个对象为空~~！

zfang

请楼主看一下5楼。

007

哎~~！换成SystemCore.TSYSTEMCORE.FuncManager.RunFunc(Context.Parent, '', 'Biz:\BLXTGLXT\GZRWSL.Func', '', nil, true)可以了。

lixy

哦，我们理解错了。以为是是5楼那样用的。结贴