DLL笔记

转载 2006年05月26日 14:20:00

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个字节

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Dll(动态链接库)学习笔记

  • 2012年02月09日 14:16
  • 47KB
  • 下载

MinGW 与 MSVC 生成 DLL 各种情况的折腾笔记

写这篇博客,主要是刚折腾 MinGW,相关内容网上的资料不全,而且错误很多 其实之前我根本没把这个当回事,我就想 MinGW 跟 Linux 上的 GNU 编译器不会有差别,但是事实却不是这样。。。...

DLL笔记PART1

  • 2012年11月20日 13:05
  • 89KB
  • 下载

动态链接库DLL学习笔记

  • 2010年01月26日 11:04
  • 29KB
  • 下载

菜鸟笔记:c/c++中关于lib与dll文件的生成与使用。

当我们的软件大到一定程度的时候,就要考虑将软件划分为多个模块,从而降低软件的复杂度以及复用部分资源。模块的主要表现形式有很多种,其中最常用的就是lib和dll文件。下面简单讲一下lib和dll的生成和...

DLL笔记.part2

  • 2012年11月20日 13:05
  • 723B
  • 下载

DLL(VC++)学习笔记(详细注释)

  • 2012年11月18日 11:33
  • 3.13MB
  • 下载

MFC学习笔记11 DLL知识 创建静态库

DLL 与 静态链接库DLL是跨语言的,各种语言编写的DLL都可以相互调用。静态链接库编译的链接阶段将库函数嵌入到应用程序的内部。动态链接库对公用的库函数,系统只有一个拷贝(一般是位于系统目录的*.D...
  • xundh
  • xundh
  • 2017年11月29日 22:20
  • 30

C#调用成功调用C++ dll笔记

正文开始:C#是一种托管(managed)的面向对象语言,而C++默认为非托管(native)。因此由C++生成的dll文件也应分为托管C++dll与非托管C++dll两种。以下将分别说明。 1. 生...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:DLL笔记
举报原因:
原因补充:

(最多只允许输入30个字)