DLL笔记
DLL笔记
下面以DLL简单程序的测试，来展示DLL的用法和各种注意点：
一个DLL程序：
library Project2;
uses
SysUtils,Classes;
{$R *.res}
function Min(X, Y: Integer): Integer; stdcall;
begin
if X < Y then Min := X else Min := Y;
end;
function Max(X, Y: Integer): Integer; stdcall;
begin
if X > Y then Max := X else Max := Y;
end;
exports
Min,
Max;
begin
end.
l 一个调用程序：
unit DLLTest;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
const
DLL='project2.DLL';
type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
function Min(X, Y: Integer): Integer; stdcall; external DLL;
function Max(X,Y:Integer):Integer; stdcall; external DLL;
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text:=IntToStr(Min(3,5));
end;
end.
输出结果当然是3。
l 另一个调用程序：
unit DLLTest;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
const
DLL='project2.DLL';
type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
function Min(X, Y: Integer): Integer; stdcall; external DLL;
function Max(X, Y: Integer): Integer; stdcall; external DLL;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text:=IntToStr(Min(3,5));
end;
end.
输出结果也是3。
结论：无论在Interface还是implementation部分声明，都可以，但区别当然也是很明显的，声明在Interface的可以被其他单元调用，而声明在implementation的，只能在自己的单元中被调用。要可以被其他单元调用，还有别一种形式，代码如下：
unit DLLTest;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
const
DLL='project2.DLL';
type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
function Min(X, Y: Integer): Integer; stdcall;
function Max(X, Y: Integer): Integer; stdcall;
var
Form1: TForm1;
implementation
{$R *.dfm}
function Min; external DLL;
function Max; external DLL;
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text:=IntToStr(Min(3,5));
end;
end.
l 将其中一个函数的大小写变一下：
function min(X, Y: Integer): Integer; stdcall; external DLL;
程序出现错误，说明对于DLL的函数声明是大小写敏感的。
l 现在将DLL文件的Exports块修改如下：
exports
Min name ‘Max’,
Max name ‘Min’;
再将上面调用程序运行一遍，输出结果是5，说明，如上声明之后，在DLL程序中的Min函数，它输出为Max了，而Max则输输出为Min了。
l 再将Exports块改为如下形式：
exports
Min name index 1,
Max name index 2;
再将调用程序的的声明变为如下：
function Min; external DLL index 2;
//function Max; external DLL;
运行结果为5，则说明当DLL程序声明Index后，外部程序调用时如果也用Index，则调用DLL哪个函数由Index来决定。如果DLL没有在函数输出后面加Index，则外部程序加上Index无效。
l 将调用程序的函数声明变为如下：
function Min; external DLL name 'Max';
function Max; external DLL name 'Min';
则程序运行结果是5，说明如果用了name,则外部函数实际对应的是DLL中和Name后面的字符串相同的函数，大小敏感。
｛三｝C基本类型与Delphi类型的对应
//整型
INT64 = Int64 有符号64位整数
INT = Integer 有符号32位整数
LONG = Longint 有符号32位整数
WPARAM = Longint 有符号32位整数
LPARAM = Longint 有符号32位整数
LRESULT = Longint 有符号32位整数
HANDLE = Loingint 有符号32位整数
UINT = LongWord 无符号32位整数
DWORD = DWORD 无符号32位整数
SHORT = Smallint 有符号16位整数
WORD = Word 无符号16位整数
BYTE = Byte 无符号8位整数
//浮点型
FLOAT = Single 占4个字节
DOUBLE = Double 占8个字节
//字符型
CHAR = Char
WCHAR = WideChar;
PWChar = PWideChar;
LPSTR = PAnsiChar;
LPCSTR = PAnsiChar;
LPCTSTR = PAnsiChar;
LPTSTR = PAnsiChar;
LPWSTR = PWideChar;
LPCWSTR = PWideChar;
//布尔型
BOOL = LongBool; 4个字节
bool = Boolean; 1个字节