如何释放动态连接库

[diecode]

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'

[zzWind]

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

[beyondtkl]

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. 要安全性的编程
......

[diecode]

是在Freelibrary(libhandle)的时候报错

[diecode]

楼上的兄弟
问题依旧啊

[beyondtkl]

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;

[richard_ouyang]

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

[diecode]

beyondtkl(大龙驹<*step by step:Cpp&&Crack*>)
程序崩了，执行不到except段，就难在这里啊

richard_ouyang(爱象刀上的苹果)
所有单元都加了

[da18a]

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