delphi 动态加载dll

引入文件 


DLL比较复杂时，能够为它的声明专门建立一个引入单元，这会使该DLL变得更加容易维护和查看。引入单元的格式以下：
　　unit MyDllImport; {Import unit for MyDll.dll }
　　interface
　　procedure MyDllProc;

…

implementation
　 　procedure MyDllProc;external 'MyDll' index 1;

…

end.

这样之后想要使用MyDll中的例程时，只要简单的在程序模块中的uses子句中加上MyDllImport便可。其实这仅仅是种方便开发的技巧，你们打开Windows等引入windows API的单元，能够看到相似的作法。 

动态（显式）调用DLL 


前面讲述静态调用DLL时提到，DLL会在启动调用程序时即被调入。因此这样的作法只能起到公用DLL以及减少运行文件大小的做用，并且DLL装载出错会马上致使整个启动过程终止，哪怕该DLL在运行中只起到微不足道的做用。

使用动态调用DLL的方式，仅在调用外部例程时才将DLL装载内存（引用记数为0时自动将该DLL从内存中清除），从而节约了内存空间。并且能够判断装载是否正确以免调用程序崩溃的状况，最多损失该例程功能而已。

动态调用虽然有上述优势，可是对于频繁使用的例程，因DLL的调入和释放会有额外的性能损耗，因此这样的例程则适合使用静态引入。

调用范例 

DLL动态调用的原理是首先声明一个函数/过程类型并建立一个指针变量。为了保证该指针与外部例程指针一致以确保赋值正确，函数/过程的声明必须和外部例程的原始声明兼容（兼容的意思是一、参数名称能够不同；二、参数/返回值类型至少保持能够相互赋值，好比原始类型声明为Word，新的声明能够为Integer，假如传递的实参老是在Word的范围内，就不会出错）。

接下来经过windows API函数LoadLibrary引入指定的库文件，LoadLibrary的参数是DLL文件名，返回一个THandle。若是该步骤成功，再经过另外一个API函数GetProcAddress得到例程的入口地址，参数分别为LoadLibrary的指针和例程名，最终返回例程的入口指针。将该指针赋值给咱们预先定义好的函数/过程指针，而后就可使用这个函数/过程了。记住最后还要使用API函数FreeLibrary来减小DLL引用记数，以保证DLL使用结束后能够清除出内存。这三个API函数的Delphi声明以下：

Function LoadLibrary(LibFileName:PChar):THandle;

Function GetProcAddress(Module:THandle;ProcName:PChar):TfarProc;

Procedure FreeLibrary(LibModule:THandle);

将前面静态调用DLL例程的代码更改成动态调用，以下所示：

type

TDllProc = function (PathName : Pchar):boolean;stdcall;

var

LibHandle: THandle;

DelPath : TDllProc;

begin

LibHandle := LoadLibrary(PChar('FileOperate.dll'));

if LibHandle >= 32 then begin

try

DelPath := GetProcAddress(LibHandle,PChar('DeleteDir'));

if DirectoryExists(ShellTreeView.Path) then

if Application.MessageBox(Pchar('肯定删除目录'+QuotedStr(ShellTreeView.Path)+'吗？'), 'Information',MB_YESNO) = IDYes then

if DelPath(PChar(ShellTreeView.Path)) then

showmessage('删除成功');

finally

FreeLibrary(LibHandle);

end;

end;

end;

16位DLL的动态调入

下面将演示一个16位DLL例程调用的例子，该例程是windows9x中的一个隐藏API函数。代码混合了静态、动态调用两种方式，除了进一步熟悉外，还能够看到调用16位DLL的解决方法。先解释一下问题所在：

我要实现的功能是得到win9x的“系统资源”。在winNT/2000下是没有“系统资源”这个概念的，由于winNT/2000中堆栈和句柄再也不象win9X那样被限制在６４Ｋ大小。为了取该值，可使用win9x的user dll中一个隐藏的API函数GetFreeSystemResources。 

该DLL例程必须动态引入。若是静态声明的话，在win2000里执行就会当即出错。这个兼容性不解决是不行的。因此必须先判断系统版本，若是是win9x再动态加载。检查操做系统版本的代码是： 

var 

OSversion : _OSVERSIONINFOA; 

FWinVerIs9x: Boolean; 

begin 

OSversion.dwOSVersionInfoSize　:=　sizeof(_OSVERSIONINFOA);
GetVersionEx(OSversion);
FWinVerIs9x　:=　OSversion.dwPlatformId　=　VER_PLATFORM_WIN32_WINDOWS; 

End; 

以上直接调用API函数，已在Windows单元中被声明。 



function LoadLibrary16(LibraryName: PChar): THandle; stdcall; external kernel32 index 35;

procedure FreeLibrary16(HInstance: THandle); stdcall; external kernel32 index 36;

function GetProcAddress16(Hinstance: THandle; ProcName: PChar): Pointer; stdcall; external kernel32 index 37;



function TWinResMonitor.GetFreeSystemResources(SysResource: Word): Word;

type

TGetFreeSysRes = function (value : integer):integer;stdcall;

TQtThunk = procedure();cdecl;

var

ProcHandle : THandle;

GetFreeSysRes : TGetFreeSysRes;

ProcThunkH : THandle;

QtThunk : TQtThunk;

ThunkTrash: array[0..$20] of Word;

begin
Result := 0;
ThunkTrash[0] := ProcHandle;
if FWinVerIs9x then begin
ProcHandle := LoadLibrary16('user.exe');
if ProcHandle >= 32 then begin
GetFreeSysRes := GetProcAddress16(ProcHandle,Pchar('GetFreeSystemResources'));
if assigned(GetFreeSysRes) then begin
ProcThunkH := LoadLibrary(Pchar('kernel32.dll'));
if ProcThunkH >= 32 then begin
QtThunk := GetProcAddress(ProcThunkH,Pchar('QT_Thunk'));
if assigned(QtThunk) then
asm
push SysResource //push arguments
mov edx, GetFreeSysRes //load 16-bit procedure pointer
call QtThunk //call thunk
mov Result, ax //save the result
end;
end;
FreeLibrary(ProcThunkH);

end;
end;
FreeLibrary16(ProcHandle);
end
else Result := 100;
end;
首先，LoadLibrary16等三个API是静态声明的（也能够动态声明，我这么作是为了减小代码）。因为LoadLibrary没法正常调入16位的例程（微软啊！），因此改用 LoadLibrary1六、FreeLibrary1六、GetProcAddress16，它们与LoadLibrary、FreeLibrary、GetProcAddress的意义、用法、参数都一致，惟一不一样的是必须用它们才能正确加载16位的例程。 

在定义部分声明了函数指针TGetFreeSysRes 和TQtThunk。Stdcall、cdecl参数定义堆栈的行为，必须根据原函数定义，不能更改。 

假如相似通常的例程调用方式，跟踪到这一步：if　assigned(GetFreeSysRes)　then　begin GetFreeSysRes已经正确加载而且有了函数地址，却没法正常使用GetFreeSysRes(int)!!! 
因此这里动态加载（理由也是在win2k下没法执行）了一个看似多余的过程QT_Thunk。对于一个32位的外部例程，是不须要QT_Thunk的， 可是，对于一个16位的例程，就必须使用如上汇编代码（不清楚的朋友请参考Delphi语法资料） 
asm 
push SysResource 
mov edx, GetFreeSysRes 
call QtThunk 
mov Result, ax
end; 
它的做用是将压入参数压入堆栈，找到GetFreeSysRes的地址，用QtThunk来转换16位地址到32位，最后才能正确的执行并返回值！ 
以上16位DLL的部分在小仓系列中曾经提到过
Delphi开发DLL常见问题 
字符串参数 
前面曾提到过，为了保证DLL参数/返回值传递的正确性，尤为是为C++等其余语言开发的宿主程序使用时，应尽可能使用指针或基本类型，由于其余语言与Delphi的变量存储分配方法多是不同的。C++中字符才是基本类型，串则是字符型的线形链表。因此最好将string强制转换为Pchar。
若是DLL和宿主程序都用Delphi开发，且使用string（还有动态数组，它们的数据结构相似）做为导出例程的参数/返回值，那么添加ShareMem为工程文件uses语句的第一个引用单元。ShareMem是Borland共享的内存管理器Borlndmm.dll的接口单元。引用该单元的DLL的发布须要包括Borlndmm.dll，不然就得避免使用string。 
初始化COM库 
若是在DLL中使用了TADOConnection之类的COM组件，或者ActiveX控件，调用时会提示 “标记没有引用存储”等错误，这是由于没有初始化COM。DLL中不会调用CoInitilizeEx，初始化COM库被认为是应用程序的责任，这是Borland的实现策略。
你须要作的是一、引用Activex单元，保证CoInitilizeEx函数被正确调用了
二、在单元级加入初始化和退出代码：
initialization
Coinitialize(nil);
finalization
CoUninitialize;
end.
三、 在结束时记住将链接和数据集关闭，不然也会报地址错误。
在DLL中创建及显示窗体 
凡是基于窗体的Delphi应用程序都自动包含了一个全局对象Application，这点你们是很熟悉的。值得注意的是Delphi建立的DLL一样有一个独立的Application。因此如果在DLL中建立的窗体要成为应用程序的模式窗体的话，就必须将该Application替换为应用程序的，不然结果难以预料（该窗体建立后，对它的操做好比最小化将不会隶属于任何主窗体）。在DLL中要避免使用ShowMessage而用MessageBox。
建立DLL中的模式窗体比较简单，把Application.Handle属性做为参数传递给DLL例程，将该句柄赋与Dll的Application.Handle，而后再用Application建立窗体就能够了。
无模式窗体则要复杂一些，除了建立显示窗体例程，还必须有一个对应的释放窗体例程。对于无模式窗体须要十分当心，建立和释放例程的调用都需在调用程序中获得控制。这有两层意思：一要防止同一个窗体实例的屡次建立；二由应用程序建立一个无模式窗体必须保证由应用程序释放，不然假如DLL中有另外一处代码先行释放，再调用释放例程将会失败。
下面是DLL窗体的代码：
unit uSampleForm;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ExtCtrls, StdCtrls;

type
TSampleForm = class(TForm)
Panel: TPanel;
end;
procedure CreateAndShowModalForm(AppHandle : THandle;Caption : PChar);export;stdcall;
function CreateAndShowForm(AppHandle : THandle):LongInt;export;stdcall;
procedure CloseShowForm(AFormRef : LongInt);export;stdcall;
implementation
{$R *.dfm}

//模式窗体

procedure CreateAndShowModalForm(AppHandle : THandle;Caption : PChar);

var
Form : TSampleForm;
str : string;
begin
Application.Handle := AppHandle;
Form := TSampleForm.Create(Application);
try
str := Caption;
Form.Caption := str;
Form.ShowModal;
finally
Form.Free;
end;
end;
//非模式窗体
function CreateAndShowForm(AppHandle : THandle):LongInt;
var
Form : TSampleForm;
begin
Application.Handle := AppHandle;
Form := TSampleForm.Create(Application);
Result := LongInt(Form);
Form.Show;
end;
procedure CloseShowForm(AFormRef : LongInt);
begin
if AFormRef > 0 then
TSampleForm(AFormRef).Release;
end;
end.
DLL工程单元的引出声明：
exports
CloseShowForm,
CreateAndShowForm,
CreateAndShowModalForm;
应用程序调用声明：
procedure CreateAndShowModalForm(Handle : THandle;Caption : PChar);stdcall;external 'FileOperate.dll';

function CreateAndShowForm(AppHandle : THandle):LongInt;stdcall;external 'FileOperate.dll';

procedure CloseShowForm(AFormRef : LongInt);stdcall;external 'FileOperate.dll';
除了普通窗体外，怎么在DLL中建立TMDIChildForm呢？其实与建立普通窗体相似，不过此次须要传递调用程序的Application.MainForm做为参数：

function ShowForm(mainForm:TForm):integer;stdcall
var
Form1: TForm1;
ptr:PLongInt;
begin
ptr:=@(Application.MainForm);//先把DLL的MainForm句柄保存起来，也无须释放，只不过是替换一下
ptr^:=LongInt(mainForm);//用调用程序的mainForm替换DLL的MainForm
Form1:=TForm1.Create(mainForm);//用参数创建
end;
代码中用了一个临时指针的缘由在Application.MainForm是只读属性。MDI窗体的FormStyle不用设为fmMDIChild。
引出DLL中的对象
从DLL窗体的例子中能够发现，将句柄作为参数传递给DLL，DLL能指向这个句柄的实例。一样的道理，从DLL中引出对象，基本思路是经过函数返回DLL中对象的指针，将该指针赋值到宿主程序的变量，使该变量指向内存中某对象的地址。对该变量的操做即对DLL中的对象的操做。
本文再也不详解代码，仅说明须要注意的几点规则：
一、 应用程序只能访问对象中的虚拟方法，因此要引用的对象方法必须声明为虚方法；
二、 DLL和应用程序中都须要相同的对象及方法定义，且方法定义顺序必须一致；
三、 DLL中的对象没法继承；
四、 对象实例只能在DLL中建立。
声明虚方法的目的不是为了重载，而是为了将该方法加入虚拟方法表中。对象的方法与普通例程是不一样的，这样作才能让应用程序获得方法的指针。

DLL毕竟是结构化编程时代的产物，基于函数级的代码共享，实现对象化已经力不从心。如今相似DLL功能，但对对象提供强大支持的新方式已经获得广泛应用，象接口（COM/DCOM/COM+）之类的技术。进程内的服务端程序从外表看就是一个dll文件，但它不经过外部例程引出应用，而是经过注册发布一系列接口来提供支持。它与DLL从使用上有两个较大区别：须要注册，经过建立接口对象调用服务。能够看出，DLL虽然经过一些技巧也能够引出对象，可是使用不便，并且经常将对象化强制转为过程化的方式，这种状况下最好考虑新的实现方法。