怎样正确释放DLL(50分)

LSS · 1999-10-29

我在程序中动态调用DLL，用LOADLIBRARY 在用FREELIBRARY释放时出错，出来个CPU调试窗口， 如果不用FREELIBRARY可以使用,怎样正确释放DLL

Another_eYes · 1999-10-29

hehe, 95%是因为你的声明函数不对(哪里漏了stdcall了吧?)

cAkk · 1999-10-29

这种问题问eyes算找对人了.

cytown · 1999-10-29

LSS · 1999-10-29

<pre><pre class="text"> Another_eYes：多谢！ 但是请说的详细一些，我手头查不到关于STDCALL的资料（本人E文不行） 我的程序如下： DLL: Function rk(AliasName,UserName,Password:String;HWD:integer;Personid:string):integer;export; 主模块： procedure TForm1.Button1Click(Sender: TObject); type TRk=Function(AliasName,Username,password:String;Hwd:integer;Personid:string):integer; var RkFunc:TRk;     hLib:THandle; begin   hLib:=LoadLibrary('RkModule.Dll');   if hLib&lt;32 then begin      Application.MessageBox('不是一个有效的WIN32程序','提示信息',mb_ok+MB_ICONINFORMATION);      exit;   end;   RkFunc:=TRK(GetProcAddress(hLib,'RK'));   if RkFunc('aa','bb','cc',Application.Handle,'dd')=-1 then      Application.MessageBox('调用模块产生错误','提示信息',mb_ok+MB_ICONERROR);   FreeLibrary(hLib); end; 请问应加在何处，作用是什么， </pre>

Another_eYes · 1999-10-29

RkFunc:=TRK(GetProcAddress(hLib,'RK')); 改成 @RkFunc := getprocaddress(hLib, 'RK');试试

Jams · 1999-10-29

>>

LSS · 1999-11-04

Another_eYes:按你的说法不行，出错，请帮忙看看

kokusan · 1999-11-04

我试运行了一下，没发现你的程序有什么错误。可能是这儿 GetProcAddress(hLib,'RK')，而exports中写成了rk小写。                      ^^ 另外，我用的D5+NT.

Another_eYes · 1999-11-04

最好能把rk中的代码贴上来看看.

LSS · 1999-11-05

////////////////// library RkModule; uses   Forms,   Func in 'Func.pas'; exports   RK index 1 name 'RK'; begin end. /////////////////// unit Func; interface uses   forms,SysUtils,Classes, dbtables,RkSel,Rkl,RKb; Function RK(AliasName,UserName,Password:String;HWD:integer;Personid:string):integer;export; var   CurrentPersonID,CurrentPersonName,DefaultSourceLibId,DefaultSourceLibName:String; implementation Function RK(AliasName,UserName,Password:String;HWD:integer;Personid:string):integer;export; begin   try     Application.handle:=HWD;     Application.CreateForm(TForm_Buy, Form_Buy);     Application.CreateForm(TForm_rk, Form_rk);     Application.CreateForm(TForm2, Form2);     Form_buy.Database1.AliasName:=Uppercase(AliasName);     Form_buy.Database1.Params.Clear;     Form_buy.Database1.Params.Add(UserName);     Form_buy.Database1.Params.Add(Password);     Form_buy.Database1.Connected:=true;     CurrentPersonID:=Personid;     form_buy.showmodal;     Form_buy.Database1.Connected:=false;     Form2.Free;     Form_rk.free;     form_buy.free;     result:=0;   except     result:=-1;   end; end; end. 请问贴这些够不够,我用的是D4+WIN98+SqlServer7.0 程序在运行到FreeLibrary时出来CPU窗口，进行不下去了 如果嫌分少，可再加，绝不矢言 如果需要将全部程序和库发送过去也行

LSS · 1999-11-05

我没用Stdcall，一加上程序调用出错 我在导出函数名是用的是大写

Jetideas · 1999-11-05

DLL例程和调用例程都要声明成StdCall。 例程间参数一致，少用Index。 例程参数少用String(尽量不用！)，用Pchar代替，很重要！！ 如要用string，DLL和调用例程都要加上ShareMem单元(DELPHIMM.DLL)， 还要加在Uses的最前面。

Another_eYes · 1999-11-05

看来问题就在string了，申明成shortstring试试. 最好是pchar. 另, dll中: application.handle := hwnd; 这句纯属多余, 去掉它.

LSS · 1999-11-05

您说的非常正确，换为pchar后就好使了，不加stdcall为何也好使? 在调用DLL的函数后马上调用FreeLibrary为何出错: MAIN 在 0167:bff889e1 的模块  KERNEL32.DLL 中导致无效页错误。 Registers: EAX=c00309f8 CS=0167 EIP=bff889e1 EFLGS=00010212 EBX=03caff8c SS=016f ESP=03bafff4 EBP=03bb0000 ECX=816656b0 DS=016f ESI=81672b7c FS=46ef EDX=bff768d5 ES=016f EDI=03bb00a8 GS=0000 Bytes at CS:EIP: 53 56 8b 0d e0 ad fc bf 57 33 f6 8b 38 8b 19 89 Stack dump: 在中间加一段延时或放一个messagebox后就不出错了，是何原因， 是否没有使用完就释放的原因？ 这个问题解决完马上加分

LSS · 1999-11-08

Another_eYes及众大侠： RkFunc:=TRK(GetProcAddress(hLib,'RK')); if RkFunc(pchar(Database1.AliasName),pchar(Database1.Params[0]),pchar(Database1.Params[1]),pchar('000001'))=-1 then    Application.MessageBox('调用入库模块产生错误','提示信息',mb_ok+MB_ICONERROR); For i:=1 to 100000 do Application.ProcessMessages; FreeLibrary(hLib); 为何加入延时就不出毛病了， 有何办法能判断调用执行完毕再进行释放hlib

Another_eYes · 1999-11-08

dll中:     Form2.Free;     Form_rk.free;     form_buy.free; 都改成formXXX.release;

LSS · 1999-11-09

多谢Another_eYes 大侠在众多问题的鼎力相助， 不过换成release仍然不好使 >>application.handle := hwnd; 这句纯属多余, 去掉它. 如果不加上这句，所调用的DLL会开一新窗口，并且仍能切换回原调用的窗口， 由于新窗口是SHOWMODAL，原窗口的一切事件都不响应。 加上这一句麻烦事又来了，调用完毕后，原窗口自动极小化，并且窗口状态 为normal,必须使用HIDE，再使用SHOW，才能使原窗口复原，请问是怎么回事？ 问了这么多问题实在不好意思，结束问题时我会再加100给您，谢谢谢谢谢谢

Another_eYes · 1999-11-09

你的要求究竟是什么? 你不是调用了form2.showmodal吗? 原窗事件当然不会响应了.

LSS · 1999-11-10

我的要求是 1、在使用application.handle := hwnd时， 如关闭调用的DLL后，原窗口保持原状态，而非极小化， 2、不使用延时，调用后释放不出错 是不是有点烦

怎样正确释放DLL(50分)

LSS

Unregistered / Unconfirmed

Another_eYes

Unregistered / Unconfirmed

cAkk

Unregistered / Unconfirmed

cytown

Unregistered / Unconfirmed

LSS

Unregistered / Unconfirmed

Another_eYes

Unregistered / Unconfirmed

Jams

Unregistered / Unconfirmed

LSS

Unregistered / Unconfirmed

kokusan

Unregistered / Unconfirmed

Another_eYes

Unregistered / Unconfirmed

LSS

Unregistered / Unconfirmed

LSS

Unregistered / Unconfirmed

Jetideas

Unregistered / Unconfirmed

Another_eYes

Unregistered / Unconfirmed

LSS

Unregistered / Unconfirmed

LSS

Unregistered / Unconfirmed

Another_eYes

Unregistered / Unconfirmed

LSS

Unregistered / Unconfirmed

Another_eYes

Unregistered / Unconfirmed

LSS

Unregistered / Unconfirmed

Similar threads