动态调用 Dll 在释放时老是出错 怎么办啊(50分)

dll 主程序<br>function FrmReport(Ahand:THandle; adoconn:TADOConnection;AUnitNamechar):Boolean;stdcall;//<br>begin<br> &nbsp;Result := false;<br> &nbsp;try<br> &nbsp; &nbsp;Application.Handle := Ahand ;<br> &nbsp; &nbsp;showFrm_Report(adoconn, &nbsp;AUnitName);<br> &nbsp;except<br> &nbsp; &nbsp;exit;<br> &nbsp;end;<br> &nbsp;Result := true;<br>end;<br><br>exports<br>FrmReport;<br>－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－<br>调用程序<br> &nbsp;TReport=function (Ahand:THandle; adoconn:TADOConnection;AUnitNamechar):Boolean;stdcall;<br><br>var lhnd:THandle;<br> &nbsp; &nbsp;pp:TReport;<br>begin<br> &nbsp;try<br> &nbsp; &nbsp;lhnd:=LoadLibrary('ReportDll.dll'); {装载DLL}<br> &nbsp; &nbsp;if lhnd = 0 then<br> &nbsp; &nbsp;begin<br> &nbsp; &nbsp; &nbsp;Application.MessageBox(Pchar('调用Dll失败'),'提示',MB_ICONINFORMATION+MB_SYSTEMMODAL);<br> &nbsp; &nbsp; &nbsp;exit;<br> &nbsp; &nbsp;end<br> &nbsp; &nbsp;else<br> &nbsp; &nbsp; &nbsp;begin<br> &nbsp; &nbsp; &nbsp; &nbsp;pp:=GetProcAddress(lhnd,'FrmReport');<br> &nbsp; &nbsp; &nbsp; &nbsp;if pp(Application.Handle,ADOQuery1.Connection,pchar('西科测控')) then exit;<br> &nbsp; &nbsp; &nbsp;end;<br> &nbsp;finally<br> &nbsp; &nbsp;freelibrary(lhnd);<br> &nbsp;end;<br>请大侠们给指导一下

跟踪一下吧，从这段代码看不出来有什么问题。可能还是在DLL的窗口的代码里面。

怎么跟踪啊 老大

pp:=GetProcAddress(lhnd,'FrmReport');<br>==================================================这里似乎应该是:<br> &nbsp; &nbsp; &nbsp; &nbsp;@pp:=GetProcAddress(lhnd,'FrmReport');<br> &nbsp; &nbsp; &nbsp; &nbsp;if pp &lt;&gt; nil then<br> &nbsp; &nbsp; &nbsp; &nbsp;begin<br> &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;if pp(Application.Handle,ADOQuery1.Connection,pchar('西科测控')) then <br> &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;exit;<br> &nbsp; &nbsp; &nbsp; &nbsp;end;

我试过了<br>还是出错

实参:ADOQuery1.Connection与形参adoconn:TADOConnection类型匹配么?

对阿 <br> 在静态调用时为什么不出错啊

报错报在哪一行?.........请不要灌水!

就是 &nbsp;freelibrary(lhnd); 这一行啊

DLL里面创建的窗体没有释放，所以释放DLL时会出错。<br>【注：在DLL窗体的OnClose事件里面写Action:=caFree是无法真正释放这个窗体的。】

请教一下<br>那怎么样才可以正确的释放啊

use sharemem 了吗?

用了啊<br>每一个窗体都用了

============================<br>请教一下<br>那怎么样才可以正确的释放啊<br>============================<br>用FreeAndNil(窗体对象)来释放。

郁闷

为什么不用静态调用另跟踪在dll里面设置run---》parameter在Host Application里面输入你的宿主程序就可以和平时一样调试了

以前我碰到的是TAdoConnection的问题，不知你这个是不是：<br>提供几个我试过的办法，仅供参考；<br>1、在dll初始化时CoInitialize(nil);adoconn.ConnectionObject._AddRef;<br>2、在dll卸载时adoconn.ConnectionObject._Release;

delphi写的dll, vb調用, &nbsp;整型是对的, 但返回字符串就不对, 是什么原因?<br> &nbsp; 做过的朋友提供点建议

给你全集.<br><br>用Delphi制作DLL<br>一 Dll的制作一般步骤<br>二 参数传递<br>三 DLL的初始化和退出清理[如果需要初始化和退出清理]<br>四 全局变量的使用<br>五 调用静态载入<br>六 调用动态载入<br>七 在DLL建立一个TForM<br>八 在DLL中建立一个TMDIChildForM<br>九 示例：<br>十 Delphi制作的Dll与其他语言的混合编程中常遇问题：<br>十一 相关资料<br><br>一 Dll的制作一般分为以下几步：<br>1 在一个DLL工程里写一个过程或函数<br>2 写一个Exports关键字，在其下写过程的名称。不用写参数和调用后缀。<br>二 参数传递<br>1 参数类型最好与window C++的参数类型一致。不要用DELPHI的数据类型。<br>2 最好有返回值[即使是一个过程]，来报出调用成功或失败，或状态。成功或失败的返回值最好为1[成功]或0[失败].一句话，与windows c++兼容。<br>3 用stdcall声明后缀。<br>4 最好大小写敏感。<br>5 无须用far调用后缀，那只是为了与windows 16位程序兼容。<br><br>三 DLL的初始化和退出清理[如果需要初始化和退出清理]<br>1 DLLProc[SysUtils单元的一个Pointer]是DLL的入口。在此你可用你的函数替换了它的入口。但你的函数必须符合以下要求[其实就是一个回调函数]。如下：<br>procedure DllEnterPoint(dwReason: DWORD);far;stdcall;<br>dwReason参数有四种类型：<br>DLL_PROCESS_ATTACH:进程进入时<br>DLL_PROCESS_DETACH进程退出时<br>DLL_THREAD_ATTACH 线程进入时<br>DLL_THREAD_DETACH 线程退出时<br>在初始化部分写:<br> &nbsp;DLLProc := @DLLEnterPoint;<br> &nbsp;DllEnterPoint(DLL_PROCESS_ATTACH);<br>2 如Form上有TdcomConnection组件,就Uses Activex,在初始化时写一句CoInitialize (nil);<br>3 在退出时一定保证DcomConnection.Connected := False,并且数据集已关闭。否则报地址错。<br><br>四 全局变量的使用<br>在widnows 32位程序中，两个应用程序的地址空间是相互没有联系的。虽然DLL在内存中是一份，但变量是在各进程的地址空间中，因此你不能借助dll的全局变量来达到两个应用程序间的数据传递，除非你用内存映像文件。<br><br>五 调用静态载入<br>1 客户端函数声名:<br>1)大小写敏感。<br>2)与DLL中的声明一样。<br> &nbsp; 如： showform(form:Tform);Far;external'yproject_dll.dll';<br>3)调用时传过去的参数类型最好也与windows c++一样。<br>4)调用时DLL必须在windows搜索路径中，顺序是：当前目录；Path路径；windows;widows/system;windows/ssystem32;<br><br>六 调用动态载入<br>1 建立一种过程类型[如果你对过程类型的变量只是一个指针的本质清楚的话，你就知道是怎么回事了]。如：<br>type<br> &nbsp; mypointer=procedure(form:Tform);Far;external;<br>var<br> &nbsp;Hinst:Thandle;<br> &nbsp;showform:mypointer;<br>begin<br> &nbsp; Hinst:=loadlibrary('yproject_dll');//Load一个Dll,按文件名找。<br> &nbsp;showform:=getprocaddress(Hinst,'showform');//按函数名找，大小写敏感。如果你知道自动化对象的本质就清楚了。<br> &nbsp;showform(application.mainform);//找到函数入口指针就调用。<br> &nbsp;Freelibrary(Hinst);<br>end;<br><br>七 在DLL建立一个TForM<br>1 把你的Form Uses到Dll中，你的Form用到的关联的单元也要Uses进来[这是最麻烦的一点，因为你的Form或许Uses了许多特殊的单元或函数]<br>2 传递一个Application参数，用它建立Form.<br><br>八 在DLL中建立一个TMDIChildForM<br>1 Dll中的MDIForm.FormStyle不用为fmMDIChild.<br>2 在CreateForm后写以下两句：<br>function ShowForm(mainForm:TForm):integer;stdcall<br>var<br> &nbsp;Form1: TForm1;<br> &nbsp;ptrLongInt;<br>begin<br> &nbsp;ptr:=@(Application.MainForm);//先把dll的MainForm句柄保存起来，也无须释放，只不过是替换一下<br> &nbsp;ptr^:=LongInt(mainForm);//用主调程序的mainForm替换DLL的MainForm。MainForm是特殊的WINDOW，它专门管理Application中的Forms资源.<br>//为什么不直接Application.MainForm := mainForm,因为Application.MainForm是只读属性<br> &nbsp;Form1:=TForm1.Create(mainForm);//用参数建立<br>end;<br>备注：参数是主调程序的Application.MainForm