释放对象

[xin_qing0]

我写了一个带FORM的DLL，放到主程序下面被调用，当关闭主程序后，资源管理器中主程序仍然在运行，需要在资源管理器里再将主程序关闭，为什么会出现这种情况，是因为我DLL里有对象没有释放掉？

我是这么写的：

frmTest := nil;
try
frmTest := TfrmTest .Create(nil);
frmTest.ShowModal;
finally
FreeAndNil(frmTest);
end;

[bdmh]

关闭时干吗了，dll是否释放，是否执行了死循环

[亮剑_]

DLL是静态调用还是动态加载，程序退出时是如何处理的

[xin_qing0]

from上显示的一张报表，用QUICKREPORT做的，frmTest.ShowModal 应该改为frmTest.QuickRep1.Preview;
调用完应该走 finally
FreeAndNil(frmTest);
end;
主程序的代码我是看不见的，
是动态调用

[xin_qing0]

如果我没有frmTest := TfrmTest .Create(nil);
而是frmTest := nil; 接着直接FreeAndNil(frmTest);

这样是不对的吧

[xin_qing0]

自己顶

[xjwy]

try
if not Assigned(frmTest) then frmTest := TfrmTest .Create(nil);
frmTest.ShowModal;
finally
FreeAndNil(frmTest);
end;
这样好些。

[xin_qing0]

谢谢！
frmTest := nil;
FreeAndNil(frmTest);

中间没有Create,会有问题吗

[xin_qing0]

还是自己顶

[newfang]

关键不是这点儿代码，还有主程序调用dll那里，看你是怎么写的……

[vincent_cheung]

1、ShowMadal改为Show
2、在frmTest OnClose下写代码释放frmTest内所有资源
3、在frmTest OnClose下Action:=CaFree;

三个方法，我没测过，你自己试一下，测完记得把结果发上来

[xin_qing0]

我没有用ShowMadal,因为from上显示的是一张报表，用QUICKREPORT做的，所以我直接用frmTest.QuickRep1.Preview;

[右脚小拇指]

[Quote=引用 7 楼 xin_qing0 的回复:]
谢谢！
frmTest := nil;
FreeAndNil(frmTest);

中间没有Create,会有问题吗
[/Quote]


不会有问题， FreeAndNil 函数内部自己也会判断处理

[starluck]

[Quote=引用楼主 xin_qing0 的回复:]
我写了一个带FORM的DLL，放到主程序下面被调用，当关闭主程序后，资源管理器中主程序仍然在运行，需要在资源管理器里再将主程序关闭，为什么会出现这种情况，是因为我DLL里有对象没有释放掉？

我是这么写的：

frmTest := nil;
try
frmTest := TfrmTest .Create(nil);
frmTest.ShowModal;
fi……
[/Quote]

Application.createForm 第一个建立的FORM是哪一个？

[xin_qing0]

自己顶，呵呵

[xjwy]

还有什么呢问题那？这个帖子现在还在？

[xin_qing0]

问题还是没解决，主程序仍需在资源管理器里关闭

[nkym0626]

顶起来

[ddzjok]

dll应该没问题，可能是别的程序的问题吧。