精华区文章阅读

发信人: yunguo (liuliu), 信区: Database
标题: 用DELPHI创建DLL--作者：杨虹
发信站: 紫丁香 (Thu Oct 1 11:14:18 1998), 转信

　　摘要：本文论述运用DELPHI创建动态连接库（DLL）及其调用DLL的设计思想和实现方法。

　　关键词：DELPHI DLL 动态连接库

　　一* 引言

　　
出自PASCAL的DELPHI语言以其崭新的特点在众多的语言工具中成为一枝独秀而受到大家的青睐，这些特点如在其中把一切视为“对象”，从而编写面向对象的程序可以重复使用以前的成果；“可视化”编程环境提供图形化工具供用户创建和调整程序中的可视部分；尤为突出的是起一流的代
码编辑器效率和极易扩充的开发平台（可使用各种VBX版本）。动态连接库（DLL）允许WINDOWS应用程序分享资源和代码，DLL是一个能够被所有WINDOWS程序共享的可执行模块。DLL是在运行期间被连接的（是一种动态的连接），而C语言的运行函数库是在可执行文件生成期间通过连接程序�
拥模ㄊ且恢志蔡牧樱� 熟悉VB的同志都知道，VB可以调用DLL，但其本身不能创建DLL，而运用DELPHI则可以方便地定制DLL，并调用其例程。

　　二·创建DLL

　　 DELPHI把一个项目编译成一个DLL是相当简单的。首先，从这个项目中删去除项目单元（.DPR文件）之外的所有单元，然后，对这个项目单元实施以下步骤：

　　1·把该单元顶部的保留字program改为library。

　　2·从该项目的uses子句中删去表单单元。

　　3·在该单元的底部删去begin和end之间所有程序代码。

　　4·在该单元底部的begin之前加入一个export小节。

　　下面的代码（MyDll.Dpr）即为构造的一个DLL：

　　{ MYDLL.DPR}

　　library Mydll;

　　uses

　　dialogs;

　　function Hobbit (value:integer): string; export;

　　begin

　　 case value of

　　 1: result := 'Frodo';

　　 2: result := 'Samwise';

　　 3: result := 'Pippin';

　　 4: result := 'Meriadoc';

　　 else

　　 result := 'Must be an Orc!';

　　 end;

　　end;

　　 function Larger (Val1, Val2: integer): integer; export;

　　begin

　　 if Val1 > Val2 then

　　 result := Val1

　　 else if Val2 > Val1 then

　　 result := val2

　　 else

　　 result := 0;

　　end;

　　 procedure Elephants;export;

　　begin

　　 ShowMessage ('Pink Elephants on Parade');

　　end;

　　exports

　　 Hobbit index 1,

　　 Larger index 2,

　　 Elephants index 3;

　　begin

　　end.

　　下面的代码（MYIMPORT。PAS）是为MYDLL创建引入程序单元：

　　 {Import unit for MyDll.Dll}

　　unit Myimport;

　　interface

　　function Hobbit (value:Integer):string;

　　function Larger (val1,val2:Integer): Integer;

　　procedure Elephants;

　　 implementation

　　function Hobbit (value:Integer):string; external 'Mydll' index 1;

　　function Larger (val1,val2:Integer): Integer; external 'Mydll' index 2;

　　procedure Elephants; external 'Mydll' index 3;

　　end.

　　通过DELPHI的Compile\Build All选项，将以上代码编译成DLL（MyDll.Dll）,以后我们就可以像调用任何其他函数或过程一样来调用这些例程了。

　　三·例成调用

　　在项目的一个表单中加入三个按钮和一个Memo部件，下面即为调用上述DLL的DEKPHI应用程序代码：

　　 { Unit.pas}

　　unit Unit1;

　　 interface

　　uses

　　 SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,

　　 Forms, Dialogs, StdCtrls, myimport;

　　type

　　 TForm1 = class(TForm)

　　 Button1: TButton;

　　 Button2: TButton;

　　 Button3: TButton;

　　 Memo1: TMemo;

　　 procedure Button1Click(Sender: TObject);

　　 procedure Button2Click(Sender: TObject);

　　 procedure Button3Click(Sender: TObject);

　　 private

　　 { Private declarations }

　　 public

　　 { Public declarations }

　　 end;

　　 var

　　 Form1: TForm1;

　　implementation

　　{$R *.DFM}

　　procedure TForm1.Button1Click(Sender: TObject);

　　begin

　　Memo1.lines.add (Hobbit(5));

　　end;

　　procedure TForm1.Button2Click(Sender: TObject);

　　begin

　　Memo1.lines.add (IntToStr(Larger(12,25)) + ' is larger than 12');

　　end;

　　 procedure TForm1.Button3Click(Sender: TObject);

　　begin

　　Elephants;

　　end;

　　end.

　　 { myimport.pas}

　　unit Myimport;

　　interface

　　 function Hobbit (value:Integer):string;

　　function Larger (val1,val2:Integer): Integer;

　　procedure Elephants;

　　implementation

　　function Hobbit (value:Integer):string; external 'Mydll' index 1;

　　function Larger (val1,val2:Integer): Integer; external 'Mydll' index 2;

　　procedure Elephants; external 'Mydll' index 3;

　　end.

　　（图一）为在定制DLL中调用例程的运行结果（WIN95中）。由于篇幅所限，本文没有对所调用的函数或过程及其参数进行详细的解释和说明，读者可查阅有关书籍。

　　参考文献

　　[1] Harold Davis,<>, 宋建云等译，电子工业出版社，1996

　　[2]PASCAL教程

　　

　　

[一九九八年第五期]

--
※ 来源:．紫丁香 bbs.hit.edu.cn．[FROM: jxjd.hit.edu.cn]

Database 版 (精华区)