如何释放动态连接库

Question

procedure dlltest;
var
libhandle : THandle ;
begin
    libhandle := LoadLibrary('test.dll');
    Freelibrary(libhandle);
end;程序报如下错：
raised too many consecutive exceptions :'
access violation at 0x00000000
read of address 0x00000000'

Answer 1

你是在LoadLibrary('test.dll')的时候报错？
如果是这样你要看看动态库中的方法有没有导出。

Answer 2

access violation at 0x00000000 ...
看提示信息 为0地址呀 这是不能访问的
你应该
procedure dlltest;
var
libhandle : THandle ;
begin
    libhandle := LoadLibrary('test.dll');
    if libhandle <> 0 then
    begin
      Freelibrary(libhandle);
    end;
end;
1. 学会看提示信息
2. 要安全性的编程
......

Answer 3

是在Freelibrary(libhandle)的时候报错

Answer 4

procedure dlltest;
var
libhandle : THandle ;
begin
    libhandle := LoadLibrary('test.dll');
    if libhandle <> 0 then
    begin
      try
         Freelibrary(libhandle);
      except
         ShowMessage(IntToStr(GetLastError())); // 看看错误代码是多少。。
      end;
    end;
end;

Answer 5

我看不是你这里的问题而是你的动态链接库的问题。你在动态链接库里面的释放有问题，而且你可能调用的方法有问题。
在调用string参数的时候需要特别加一个单元，请查找一下

Answer 6

beyondtkl(大龙驹<*step by step:Cpp&&Crack*>) 
程序崩了，执行不到except段，就难在这里啊 richard_ouyang(爱象刀上的苹果)
所有单元都加了

Answer 7

dll 里面如果创建了 form 或者其他 对象 请先释放掉  然后再 Freelibrary