Delphi编写DLL(以及静态和动态方式调用)

Delphi编写DLL(以及静态和动态方式调用)

作者/cadenza7

什么是DLL？

DLL是Dynamic Link Library(动态链接库)的缩写形式。DLL 是一个包含可由多个程序同时使用的代码和数据的库，DLL不是可执行文件，动态链接提供了一种方法，使进程可以调用不属于其可执行代码的函数，函数的可执行代码位于一个 DLL 中，该 DLL 包含一个或多个已被编译、链接并与使用它们的进程分开存储的函数。DLL 还有助于共享数据和资源，多个应用程序可同时访问内存中单个DLL 副本的内容，DLL 是一个包含可由多个程序同时使用的代码和数据的库。

Delphi编写DLL

library MyDLL;
uses
SysUtils,
Classes;
{$R *.res}
//function MySquare(num:integer):integer;
//加上stdcall表示此DLL文件可以供除Delphi以外程序调用，比如VB、C++等等
//函数MySquare()用于计算一个整数的平方
function MySquare(num:integer):integer;stdcall;
begin
Result:=num*num;
end;
exports
//输出MySquare()函数，必须输出，否则在程序中调用时会提示"无法找到此函数的入口点"
MySquare;
begin
end.

静态加载方式调用DLL

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
//静态调用
function MySquare(i:integer):integer; stdcall; external 'MyDLL.dll';
//静态调用使用别名方式
function MyAsSqr(i:integer):integer; stdcall; external 'MyDLL.dll' name 'MySquare';
var
Form1: TForm1;
//静态调用时也可以定义在这里
//function MySquare(i:integer):integer; stdcall; external 'MyDLL.dll';

implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(IntToStr(MySquare(5)));
ShowMessage(IntToStr(MyAsSqr(6)));
end;
end.

动态加载方式调用DLL

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
//Memo1: TMemo;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
//动态调用
TMySquare = function(i:integer):integer; stdcall;
var
Form1: TForm1;

implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
num: integer;
HndDLL: THandle;
//为便于演示代码，此处使用Func来命名
Func: TMySquare;
//实际开发中我更习惯使用此方式命名
//MySquare: TMySquare;
begin
HndDLL := LoadLibrary('MyDLL.dll');
try
//注意'MySquare'为DLL中的原始名称
@Func := GetProcAddress(HndDLL, 'MySquare');
//@MySquare:= GetProcAddress(HndDLL, 'MySquare');
if Assigned(@Func) then
//if not (@Func=nil) then
begin
num := Func(7);
ShowMessage(IntToStr(num)) ;
//self.Memo1.Lines.Add(IntToStr(num));
end;
finally
FreeLibrary(HndDLL);
end;
end;
end.

http://blog.csdn.net/cadenza7/article/details/6318103#

静态加载：简单方便。

动态加载：相对复杂一些，需要显示地获取函数调用地址，但比较灵活，对于不常用的代码，使用时LoadLibrary，不用时FreeLibrary，不必长时间占用内存资源。