CSDN博客

img yuanqingfei

在DELPHI应用程序中使用DLL

发表于2004/9/21 21:44:00  1761人阅读

分类: 〖Delphi〗

 

--------------------------------------------------------------------------------
http://tech.sina.com.cn 2000/12/12 11:40 软件世界 林凌
  Delphi与VisualBasic、VisualFoxPro等软件一样,属于RAD工具(快速应用开发工具)。适合开发32位或16位/32位混合应用程序。Delphi所使用的程序语言是ObjectPascal,是结构化、面向对象的编译型语言,具有高执行效率、可重用性、易维护性,及较强的异常处理能力、类封装能力等。VB与Delphi相比,VB不能对程序进行编译,只能解释执行,更重要的不同是Delphi具有较强的继承性,Delphi的应用程序可编译DLL模块,VB却无法编译,只能调用C编译的DLL。而Delphi不仅可调用C++产生的DLL模块,同样C++程序也可调用Delphi所产生的DLL部件。这样交互调用,无须重复开发,大大缩短了生产周期。

  1、用Delphi创建DLL

  Delphi的DLL创建并不复杂,下面向大家介绍Delphi的DLL创建方法。

  1〕首先创建一个新的DLL项目(NewProject),因为DLL与调用它的主程序要分开编译。如果DLL模块已经建立在调用它的项目中(Project),则将它的窗体(Form)从Project移出,另建一个新的项目(NewProject)。只需从File菜单选中NewProject项,然后将DLL的Pas模块文件加入到项目中,再将其自动建立的Form1删除即可。

  2〕在DLL的DPR文件中把Program关键字改为Library,申明为动态链接库,在USES语句后面加入ExPorts语句,指明调用DLL的函数名。

  3〕如果主程序的DPR文件已有DLL窗体CreateForm的语句,则将其去掉。

  4〕在DLL的Pas文件中Type......End后加入该DLL的函数或过程的声明,形式如:

  FunctionName(argment):Boolean;export;

  该函数或过程应加入窗体的Create和Free(产生和释放)方法。

  5〕对项目进行编译即可。

  2、DLL的调用

  调用DLL有两种方法,一种是在应用程序装载时调用,另一种是在应用程序运行时调用。首先介绍装载时DLL的调用:

  (1)装载时调用DLL

  在调用DLL的Pas文件中,对DLL函数进行外部声明,声明应位于Implementation的Uses语句后,形式如下:

  Implementation

  Uses Dialogs;

  Function Name(argment):Boolean;far;External′CallName′;

  ......

  其中External关键字后面的引号内的字串是DLL的文件名。声明以后即可在Pas文件任何地方引用DLL函数。

  装载时调用DLL的优点是速度较快,程序间也可共享代码。

  (2)运行时调用DLL

  DLL的另一种调用方法是在运行时调用。要调用到Windows的API函数:loadlibrary,Getprocaddress等。主要用于调用DELPHI和其它语言,特别是C++编译的DLL。

  假定你的DLL包括一个函数:

  FunctionMyFunc(aparam:word):string;export;

  首先在程序Type类型声明处加入一句:

  Type

  TMyfunc=function(aparam:word):string;

  此句的作用如同C++中声明的函数指针。

  然后定义如下变量∶

  Var

  aptr:TFarproc;

  lhnd:THandle;

  s:string;

  其中Aptr,lhnd两变量声明必须有,s是DLL函数返回值,视情况而定。

  在调用DLL处加入如下语句进行DLL装载:

  lhnd:ΚLoadlibrary(′路径/DLL文件名′);

  {如lhnd:ΚLoadlibrary(′c:/aa/bb.dll′);

  aptr:=GetprocAddress(lhnd,′Myfunc′);

  下面可直接调用DLL了:

  s:=TMyfunc(bptr)(60);{根据函数填相应的变量参数}

  调用完以后,用FreeLibrary释放DLL占用的内存:

  FreeLibrary(lhnd);

  下面给出一个DLL的创建以及运行时调用的示例,该DLL主要用来检查输入的口令是否正确,窗体含有一个Edit编辑框,两个按钮Button,一个标签Label,在编辑框内输入口令,根据比较结果返回真假值。

  {main.pas主程序(运行时调用DLL)}

  unit Main;

  interface

  uses WinTypes,WinProcs,Classes,Graphics,Forms,Controls,StdCtrls,ExtCtrls;

  type

  TForm1=class(TForm)

  Edit1:TEdit;

  Label1:TLabel;

  Button1:TButton;

  Bevel1:TBevel;

  GroupBox1:TGroupBox;

  StatusLbl:TLabel;

  procedure Button1Click(Sender:TObject);

  end;

  TGetPass=function(aa:string):boolean;

  var

  Form1:TForm1;

  getpass:TGetpass;

  lhnd:THandle;

  aptr:TFarproc;

  implementation

  uses Dialogs;

  {$R*.DFM}

  {Import routine from DLL.Takes password to matchand returns boolean.}

  {function GetPassword(Password:string):Boolean;far;external′CHKPWORD′;}

  {Call password check routine,show status informcaption.}

  procedure TForm1.Button1Click(Sender:TObject);

  begin

  if Edit1.Text=′′then

  begin

  MessageDlg(′Entersamplepasswordfirst′,mtInformation,[mbOK],0);

  Edit1.SetFocus;

  end

  else

  begin

  lhnd:=loadlibrary(′Chkpword.dll′);

  aptr:=getprocaddress(lhnd,′GetPassword′);

  if TGetpass(aptr)(Edit1.Text) then

  StatusLbl.Caption:=′Verifiedpassword′

  else

  StatusLbl.Caption:=′Invalid password′;

  freelibrary(lhnd);

  end;

  end;

  end.

  {dllform.pasDLL模块}

  unit Dllform;

  interface

  uses WinTypes,WinProcs,Classes,Graphics,Forms,Controls,Buttons,SysUtils,StdCtrls;

  type

  TPasswordForm=class(TForm)

  Edit1:TEdit;

  Label1:TLabel;

  BitBtn2:TBitBtn;

  BitBtn1:TBitBtn;

  end;

  function GetPassword(Password:string):Boolean;export;

  implementation

  uses Dialogs;

  {$R*.DFM}

  function GetPassword(Password:string):Boolean;

  var

  PasswordForm:TPasswordForm;

  begin

  Result:=False;

  PasswordForm:=TPasswordForm.Create(Application);

  try

  with PasswordForm do

  if ShowModal=mrOK then

  if UpperCase(Edit1.Text)<>UpperCase(Password) then

  MessageDlg(′Invalid Password′,mtWarning,[mbOK],0)

  else

  Result:=True;

  finally

  PasswordForm.Free;

  end;

  end;

  end.


 

0 0

相关博文

我的热门文章

img
取 消
img