📄 022.htm

📁 Delphi书籍--Delphi网上教程
💻 HTM
字号:
<HTML><HEAD><meta http-equiv="Content-Type" content="text/html; charset=GB2312"><TITLE>-->DELPHI专题文档－程序应用-->在DELPHI应用程序中使用DLL</TITLE>
<META NAME="keywords" CONTENT=" DELPHI专题文档－程序应用 在DELPHI应用程序中使用DLL">
<META NAME="description" CONTENT=" - DELPHI专题文档－程序应用 - 在DELPHI应用程序中使用DLL">

<style>
<!--
#page {position:absolute; z-index:0; left:0px; top:0px}
.tt3 {font: 9pt/12pt "宋体"}
.tt2 {font: 12pt/15pt "宋体"}
a {text-decoration:none}
a:hover {color: blue;text-decoration:underline}
-->
</style>
</HEAD>
<a href="index6.html">返回</a>

<body text="#000000" aLink=#9900ff link=#006699 vLink=#006699 bgcolor="#FFFFFF" leftmargin="3" topmargin="3" marginheight="3" marginwidth="3">
<TABLE WIDTH="100%" CELLPADDING=10 CELLSPACING=0 BORDER=0>
<TR>

<TD class="tt2" bgcolor="#F5F8F8" width="84%"><center><B><FONT style="FONT-SIZE: 16.5pt" COLOR="#FF6666" FACE="楷体_GB2312">在DELPHI应用程序中使用DLL</FONT></B></center>
<hr color="#EE9B73" size="1" width="94%">
<p class="tt2">Delphi与VisualBasic、VisualFoxPro等软件一样，属于RAD工具（快速应用开发工具）。适合开发32位或16位／32位混合应用程序。Delphi所使用的程序语言是ObjectPascal，是结构化、面向对象的编译型语言，具有高执行效率、可重用性、易维护性，及较强的异常处理能力、类封装能力等。VB与Delphi相比，VB不能对程序进行编译，只能解释执行，更重要的不同是Delphi具有较强的继承性，Delphi的应用程序可编译DLL模块，VB却无法编译，只能调用C编译的DLL。而Delphi不仅可调用C＋＋产生的DLL模块，同样C＋＋程序也可调用Delphi所产生的DLL部件。这样交互调用，无须重复开发，大大缩短了生产周期。<br>
　　 一、用Delphi创建DLL<br> 
　　Delphi的DLL创建并不复杂，下面向大家介绍Delphi的DLL创建方法。<br>
　　1、首先创建一个新的DLL项目（NewProject），因为DLL与调用它的主程序要分开编译。如果DLL模块已经建立在调用它的项目中（Project），则将它的窗体（Form）从Project移出，另建一个新的项目（NewProject）。只需从File菜单选中NewProject项，然后将DLL的Pas模块文件加入到项目中，再将其自动建立的Form1删除即可。<br>
　　2、在DLL的DPR文件中把Program关键字改为Library，申明为动态链接库，在USES语句后面加入ExPorts语句，指明调用DLL的函数名。<br>
　　3、如果主程序的DPR文件已有DLL窗体CreateForm的语句，则将其去掉。<br>
　　4、在DLL的Pas文件中Type．．．．．．End后加入该DLL的函数或过程的声明，形式如：<br>
　　FunctionName（argment）：Boolean；export；<br>
　　该函数或过程应加入窗体的Create和Free（产生和释放）方法。<br>
　　5、对项目进行编译即可。<br>
　　 二、DLL的调用<br> 
　　调用DLL有两种方法，一种是在应用程序装载时调用，另一种是在应用程序运行时调用。首先介绍装载时DLL的调用：<br>
　　（1）装载时调用DLL<br>
　　在调用DLL的Pas文件中，对DLL函数进行外部声明，声明应位于Implementation的Uses语句后，形式如下：<br>
　　Implementation<br>
　　Uses Dialogs；<br> 
　　Function Name（argment）：Boolean；far；External′Call
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -