Delphi编写DLL(以及静态和动态方式调用)
作者/cadenza7
什么是DLL？
DLL是Dynamic Link Library(动态链接库)的缩写形式。DLL 是一个包含可由多个程序同时使用的代码和数据的库，DLL不是可执行文件，动态链接提供了一种方法，使进程可以调用不属于其可执行代码的函数，函数的可执行代码位于一个 DLL 中，该 DLL 包含一个或多个已被编译、链接并与使用它们的进程分开存储的函数。DLL 还有助于共享数据和资源，多个应用程序可同时访问内存中单个DLL 副本的内容，DLL 是一个包含可由多个程序同时使用的代码和数据的库。
Delphi编写DLL
静态加载方式调用DLL
动态加载方式调用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，不必长时间占用内存资源。
Delphi编写DLL(以及静态和动态方式调用),布布扣,bubuko.com
原文地址：http://www.cnblogs.com/760044827qq/p/3765178.html
