【结】系统核心库FreeFunc方法报错

hyf1984 · 发表于 2008-9-1 15:06:16

我在功能B中OnClose时用RunFunc(Context,'',lMainFuncURL,'',True,nil,True)方法，运行另外一个功能A。但是时不时就会报错，错误定位在系统核心库的FreeFunc方法的 “Func.Free”这句。请帮忙解决一下，谢谢

jiahaiming · 发表于 2008-9-1 15:30:58

看看具体的错误信息。

hyf1984 · 发表于 2008-9-1 16:08:37

图1

jiahaiming · 发表于 2008-9-1 16:10:42

这样写试试：
RunFunc(Context.parent,'',lMainFuncURL,'',True,nil,True)

hyf1984 · 发表于 2008-9-1 16:11:36

图2

hyf1984 · 发表于 2008-9-1 16:39:24

问题依旧。主要就是报vcl60.bpl, CLRModel.bpl, rtl60.bpl,这几个的错

atiger · 发表于 2008-9-1 17:03:52

楼主，
1、如果屏蔽掉runfunc是否就不会出现任何错误呢？
2、是在执行runfunc后报错吗？还是在操作 lMainFuncURL 这个功能报错呢？

hyf1984 · 发表于 2008-9-1 17:15:33

我怀疑是窗体Close与runfunc有什么冲突。我两个功能都用了runfunc方法，A功能用runfunc让B功能运行并传递参数，然后B功能关闭时在调用runfunc定位回A功能，修改与A功能相关的一些数据。A功能用runfunc不会报错，就是B功能用会报错。

jiahaiming · 发表于 2008-9-1 19:16:45

1、楼主的这个需求不用做成两个功能，只要在一个功能中创建A、B两个窗体就可以了。

2、楼上的问题，怀疑与环境有关。
你的A功能是如何调用的B功能，把代码贴出来我看看。

hyf1984 · 发表于 2008-9-2 09:22:24

1： A功能是一个树形显示流程的图形，点击节点可以调用相应窗体，这些节点的属性和窗体的路径是可维护的，所以才做成各个具体的功能，这样用runfunc调用比较方便。
2： A调用B的代码：SystemCore.TSystemCore.FuncManager.RunFunc(context,'',MDUrl,lParam, nil, False)，B关闭的时候要定位回A（如果A已经关闭则要将A运行）

		自动登录	找回密码
密码			立即注册