Delphi中如何调用VC++创建的动态链接库
肖运勇 |
01-10-29 下午 02:06:09
|
Delphi以其独特的面向控件的开发方式、强大的数 据库功能、快速的编译技术以及简单易学的编程特性,使得它自发布之日起即格外引人注目,许多程序员也因此将它作为首选的开发工具。然而,Delphi在科 学计算、低端编程等方面的功能不如VC++。VC++功能强大、齐全,但是整个系统比较复杂、庞大,尤其对于初学者来说比较难学,其用户界面的开发远不如 Delphi那样方便、快捷。那么,我们能否将两者的优点结合起来呢?答案是肯定的!具体做法是:将涉及到比较低级的操作、计算等方面的程序用VC++写 成函数放在动态链接库中,而涉及到界面及与用户交互的编程则用Delphi来实现,最后只需在Delphi中调用VC++编写的动态链接库即可。 |
动态链接库(DLL,即 “Dynamic-Link Library”)是一个能够被应用程序和其它的DLL调用的过程和函数的集合体,它里面包含的是公共代码或资源。DLL是Windows的基石,所有的Win32 API函数都包含在DLL中。 |
1、一个DLL可以提供给不同的程序使用,如果有多个程序使用相同的DLL,也只需将DLL在内存中装载一次,这样就节省了内存开销。 |
2、DLL可以使我们的编程更加模块化,将功能相对独立的模块编成一个动态链接库,这样改动程序时不需将整个程序重新编译,只需重新编译所改动的模块。 |
3、使用了DLL组件包可以大大减小可执行文件的规模。 |
4、对于一个大型的、不断更新的应用程序,可以将许多重复的功能写成DLL,用主程序调用,这样既减少了开发的工作量,又提高了访问速度。 |
5、DLL独立于编程语言,大多数WINDOWS编程环境都允许主程序调用DLL中的函数。即可以用VC++、VB、PowerBuilder、 Delphi、汇编语言等建立DLL,然后在不同语言编制的应用程序中调用它。这样就给多人使用不同的编程语言开发项目提供了极大的方便。 |
二、在Delphi中调用VC++创建的动态链接库的实例 |
本实例的编程工具及运行环境为:Windows 98,VC++6.0,Delphi 5.0 。 |
1.用VC++6.0建立一个动态链接库MaxMin.DLL,该库中包含有两个函数:返回三个整数中最大整数的函数Max1( )和返回三个整数中最小整数的函数Min1( )。 |
2.用Delphi编写测试程序调用动态链接库MaxMin.DLL中的两个函数。 |
1.用VC++6.0建立动态链接库MaxMin.DLL |
第一步:启动VC++6.0,选择“File/New/MFC AppWizzard(Dll)”,工程名设为“MaxMin”,按“确定”钮后,选择“Regular DLL Using shared MFC DLL”,按“Finish”钮后,即创造了一个DLL的框架工程。 |
第二步:选择“File/New”,在出现的对话框中选择“C/C++ Header File”,在文件名处输入“MyDLL”,按“确定”钮,即创建了一个空的头文件“MyDLL.h”。在该文件中输入以下两行内容: |
extern "C" _declspec(dllexport) int Min1(int x,int y,int z); |
extern "C" _declspec(dllexport) int Max1(int x,int y,int z); |
第三步:选择“File/New”,在出现的对话框中选择“C/C++ Source File”, 在文件名处输入“MyDLL”,按“确定”钮,即创建了一个空的源文件“MyDLL.cpp”。在该文件中输入以下内容: |
extern "C" __declspec(dllexport) int Min1(int x,int y,int z) |
if ((x<=y) & (x<=z)) return x; |
else if ((y<=x) & (y<=z)) return y; |
else return z; /*找出x,y,z中的最小整数*/ |
extern "C" __declspec(dllexport) int Max1(int x,int y,int z) |
if ((x>=y) & (x>=z)) return x; |
else if ((y>=x) & (y>=z)) return y; |
else return z; /*找出x,y,z中的最大整数*/ |
第四步:按下运行图标“!”,即生成了MyDLL.DLL(在当前工程目录的DEBUG子目录下)。 |
2.用Delphi编写调用MaxMin.DLL的测试程序 |
第一步:启动Delphi,选择“New Application”,生成一个空的应用程序,在Form的“Name”属性处输入“TestVcDLLForm”,Caption属性处输入“VC ++的DLL隐式调用测试”,在Form中放入控件如表1所示(其中所有的Edit控件的“Text”属性均设为空): |
|
(表1:所用到的控件及其属性)
|
|
最后设计的Form的屏幕效果如图1所示。选择“File/Save all”,在“Save unit1 as”对话框中将源文件名设为“main.pas”,按“保存”钮;在“Save Project1 as”对话框中将工程名设为“TestVcDLL”,按“保存”钮。 |
第二步:选择“File/New…”,在出现的“New Item”对话框中选择“unit”,按“OK”钮,生成一个空的源文件,在该文件中输入以下内容: |
function Min1(x,y,z:Integer):Integer; stdcall; |
function Max1(x,y,z:Integer):Integer; stdcall; |
function Min1;external 'MaxMin.DLL' name 'Min1'; |
function Max1;external Max'Min.DLL' name 'Max1'; |
选择“File/Save As…”,将上述文件存为“MaxMin.pas”。 |
第三步:在Main.pas文件中,在“implementation”语句后加入: |
第四步:在Form上双击“运行”按钮对该按钮的“Click”事件编程,代码如下: |
procedure TTestVcDLLForm.btnRunClick(Sender: TObject); |
edtMax.Text:=IntToStr(Max1(StrToInt(edtInt1.Text), |
StrToInt(edtInt2.Text),StrToInt(edtInt3.Text))); //调用动态链接库中的函数Max1 |
edtMin.Text:=IntToStr(Min1(StrToInt(edtInt1.Text), |
StrToInt(edtInt2.Text),StrToInt(edtInt3.Text))); //调用动态链接库中的函数Min1 |
第五步:将上述1.中VC++6所建立的动态链接库“MaxMin.DLL”拷入Delphi的当前工作目录中。 |
第一步:同隐式调用。只是将Form的“Caption”属性改为“VC++的DLL显式调用测试”。 |
第二步:选择“File/New…”,在出现的“New Item”对话框中选择“unit”,按“OK”钮,生成一个空的源文件,在该文件中输入以下内容: |
TMin1=function(x,y,z:Integer):Integer; stdcall; |
TMax1=function(x,y,z:Integer):Integer; stdcall; |
选择“File/Save As…”,将上述文件存为“MaxMin.pas”。 |
第三步:在Main.pas文件中,在“implementation”语句后加入: |
第四步:在Form上双击“运行”按钮对该按钮的“Click”事件编程,代码如下: |
procedure TTestVcDLLForm.btnRunClick(Sender: TObject); |
Handle:=LoadLibrary('MaxMin.dll'); //将“MaxMin.dll”的文件映象映射进调用进程的地址空间 |
@Min1:=GetProcAddress(Handle,'Min1'); //取得DLL中函数Min1( )的地址 |
@Max1:=GetProcAddress(Handle,'Max1'); //取得DLL中函数Max1( )的地址 |
if (@Min1<>nil) and (@Min1<>nil) then |
edtMin.Text:=IntToStr(Min1(StrToInt(edtInt1.Text), |
StrToInt(edtInt2.Text),StrToInt(edtInt3.Text))); //调用动态链接库中的函数Min1 |
edtMax.Text:=IntToStr(Max1(StrToInt(edtInt1.Text), |
StrToInt(edtInt2.Text),StrToInt(edtInt3.Text))); //调用动态链接库中的函数Max1 |
end else ShowMessage('调用函数“GetProcAddress”时出错!'); |
FreeLibrary(Handle); //从进程的地址空间中解除“MaxMin.dll”文件的映射 |
第五步:将上述1.中VC++6所建立的动态链接库“MaxMin.DLL”拷入Delphi的当前工作目录中。 |
动态链接库为不同编程环境下的应用程序之间的连接提供了方便,节省了内存,提高了速度,同时也丰富了PowerScript语言的编程能力。动态链接库是 Windows下程序组织的一种重要方式,使用动态链接库可以极大地保护用户在不同开发工具、不同时期所做的工作;利用动态链接库,用户可以逐步去构筑自 己的程序模块库,为今后的工作积累素材。
分享到:
相关推荐
在Delphi中调用VC++创建的动态链接库,程序中包含创建动态链接库工程和delphi调用工程。
动态链接库(DLL)的编译实例,包括_cdecl和stdcall两种常见函数调用约定的实现,并且解决了名字修改问题,在实例代码中有详细的说明!2.针对不同的函数调用约定,以及动态调用DLL库和静态调用DLL库分别提供了调用实例...
【动态链接库】VC++2010中创建和使用动态链接库dll 代码的简单例子 有生成和使用2个工程文件。
对动态链接库,我们还需建立如下概念: (1)DLL 的编制与具体的编程语言及编译器无关 只要遵循约定的 DLL 接口规范和调用方式,用各种语言编写的 DLL 都可以 相互调用。譬如 Windows 提供的系统 DLL(其中包括...
1.概论 先来阐述一下DLL(Dynamic Linkable Library)的概念,你可以简单的把DLL看成一种仓库,它提供给你一些可以直接拿来用的...MFC扩展DLL采用MFC的动态链接版本创建,它只能被用MFC类库所编写的应用程序所调用。
DELPHI 动态链接库封装窗体与调用的例子,可供学习DELPHI入门者使用,非常简单而实用。
C#调用Delphi动态链接库,返回大容量xml数据
亲测可用!delphi实现的结果与java以及qt一致。
VC++/Delphi编写动态连接库 含测试用例 C#调用VC++/Delphi DLL(含源代码) 小巧可用,源码已经调试通过,含部分注释 适合dll编程的入门人员 有不住之处,希望各位海涵!
使用Delphi编写静态调用动态链接库(DLL),完成三个数的大小对比,求出最大值,最小值。
Delphi调用TSC动态链接库的例子。 此代码为网络收集,如果侵犯了版权,请邮件告知
delphi 动态链接库封装窗体与动态调用
delphi动态库的创建,以及该动态库简单调用.
delphi中调用 xmldelphi中调用 xml
Delphi中动态链接库两种调用方,很有用的
delphi控制twain设备需要的动态链接库Eztw32.dll
delphi 动态调用dll 最实用的调用dll的方法。
DelphiDll创建与调用源码 使用delphi生成动态连接库文件 并使用动态连接库
内含多个动态链接库 dll 的经典实例(delphi),封装了单元,做软件用到多线程时,复制一下这个代码就行了,非常方便好用。网上delphi动态链接库的实例比较少,有了这个,就不用怕了!!..
本文档说明了Delphi调用c++ dll的一些技术细节,讲述了如何调用c++的动态链接库接口技术