FreeLibrary问题,高手请进!

[StarRains]

程序构成: Proj.exe、lib1.dll、lib2.dll ：
调用关系：运行Proj.exe --> 显式调用lib1.dll(LoadLibrary) --> 显示窗体 --> 隐式调用Lib2.dll执行相关操作 --> 关闭窗体 --> 释放lib1.dll(FreeLibrary);

问题： 在释放lib1.dll时提示 invalid pointer Operation ，去除lib1.dll中对lib2.dll的引用后系统正常运行？

windows中的动态链接库也存在相互调用关系呀，不知是怎样的机制？

[Liusp]

我怀疑FreeLibrary这个函数有BUG，因外我在做程序时经常碰到这样的错误，一使用FreeLibrary来释放DLL就出错，而注释掉这条语句，一切正常！

[StarRains]

但不释放系统资源也不是办法呀，FreeLibrary在VC中也经常用，好像不存在BUG，Windows系统中Dll这样应用也比较常见，没有问题呀？

[StarRains]

大侠们,有谁可以解决?

[StarRains]

救命!!

[Borlandor]

放在这里：

initialization
LoadLibrary(...);
finalization
FreeLibrary(...);

[StarRains]

borlandor可以详细说明一下吗,不胜感谢!

[Borlandor]

//Please try it!

Var DLLHandle: THandle;

implemention

procedure TForm1.AnyYourProcedure;
begin
{You can use DLLHandle here}
end;

......


initialization
DLLHandle := LoadLibrary(...);

finalization
FreeLibrary(DLLHandle);
end.

[StarRains]

问题出在dll中再调用Dll,不论对Lib1.dll的FreeLibrary操作在何处执行,或干脆注释掉,但关闭程序时就会出错!

[Borlandor]

这样可以的呀！

我曾经用过的，而且在第一个DLL中包括了线程。不过只是显式调用了第二个DLL。

[StarRains]

解决了，问题不在Freelibrary，而是对ShareMem单元的引用上，多谢 borlandor、 liusp 的热心帮助！

[StarRains]

在Delphi应用Dll还要注意些什么？需要写入口函数DLLMain吗？望指教一二！

[StarRains]

我第二个Dll类似vc中的函数库，里面都是公用函数，不想显示调用！能否象引用Windows Api 一样调用它？

[Borlandor]

你先用EXE隐式调用第二个DLL试一试。

[Borlandor]

///////////完整的例子///////////

unit Main;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
Edit2: TEdit;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

// function GetInteger(I:Integer): Integer;stdcall;external 'DLLOne.dll';
// function GetDouble(F:Double): Double;stdcall;external 'DLLOne.dll';

TGetDouble = function (F:Double): Double; stdcall;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var D: Double;
DLLHandle: THandle;
Func: TGetDouble;
begin

DLLHandle := LoadLibrary('DLLOne.dll');
try
@Func := GetProcAddress(DLLHandle, 'GetDouble');

//Edit1.Text := IntToStr(GetInteger(2));
//D := GetDouble(2.2);
if Assigned(@Func) then
begin
D := Func(2.2);
Edit2.Text := FloatToStr(D);
end;

finally
FreeLibrary(DLLHandle);
end;
end;

end.


library DLLOne;

uses
SysUtils,
Classes;

{$R *.res}

function GetDoubleExt(F:Double): Double;stdcall;external 'DLLTwo.dll';
function GetInt(I:Integer): Integer;stdcall;external 'DLLTwo.dll';

function GetInteger(I:Integer): Integer;stdcall;
begin
Result := GetInt(I);
end;

function GetDouble(D:Double): Double;stdcall;
begin
Result := GetDoubleExt(D);
end;

exports
GetInteger,
GetDouble;

begin
end.


library DLLTwo;

uses
SysUtils,
Classes;

{$R *.res}
function GetDoubleExt(D:Double):Double ;stdcall;
begin
Result := D;
end;
function GetInt(I:Integer): Integer;stdcall;
begin
Result := I;
end;

exports
GetDoubleExt,
GetInt;

begin
end.