DLL经典问题，可惜我不会!(100)

[rainxy2000]

为什么我在使用DLL封装MDI子窗体，前面运行都没有问题，可是
一退出就会出现内存错误？？？（使用静态调用，动态的也试过不行）
看到TDEBUG中出错是在TObject.Free段中，我查了各论坛，好像是
Delphi中的堆栈问题，各大侠有没有什么好方法帮助在下?多谢！

library AssModal;
uses
...
var
DllApp:TApplication;

Function AssCall(App:TApplication;FuncID:Integer;Login_Frm:TLogin_Frm):Boolean;stdcall;
Begin
...
Application:=App;
Form1:=TForm1.Create(App.MainForm);
End;

procedure DLLUnloadProc(Reason : Integer);
begin
if Reason = DLL_PROCESS_DETACH then Application := DLLApp;
End;

Exports AssCall;

Begin
DllApp:=Application;
DLLProc := @DLLUnloadProc;
End;

[GoodHope]

你用的是Delphi6吧？Delphi6中好像是DLL在卸载的时候DLLProc也不能执行了。还是推出前，显式恢复DLL中的Application吧。或者干脆用包吧。

[Liusp]

DLL：MDI子窗体应释放，在OnClose事件中加上如下代码：

Action := caFree;

宿主程序中,接收DLL的句柄最好定义为全局变量，在宿主程序关闭时才释放该句柄

[wenzm]

Form1:=TForm1.Create(App.MainForm)动态产生的，应该Action := caFree;
吧！！！

[cxjcsdn]

^

[newwen]

Action := caFree;
我的程序没错啊！
不过我到是经常碰到子窗体中的控件no parent window的错误，是在给子窗体的parent付值后才会出现，不付值不会，另外即使是有此错误时取得的控件的parent.Handle和该控件的父控件的Handle也是一样的，奇怪！

[Liusp]

应该不要给子窗体的Parent付值

[cly402]

应该传递主窗体的Thandle，不要传递Application。

[cly402]

你在主程序调用动态连接库后有没有freeLibrary();如果有，去掉看看。。。