在Delphi中调用VC++创建的动态链接库的实例<br>（一）实验环境<br>本实例的编程工具及运行环境为：Windows 98，VC++6.0，Delphi 5.0 。<br>（二）实验内容<br>1．用VC++6.0建立一个动态链接库MaxMin.DLL，该库中包含有两个函数：返回三个整数中最大整数的函数Max1( )和返回三个整数中最小整数的函数Min1( )。<br>2．用Delphi编写测试程序调用动态链接库MaxMin.DLL中的两个函数。<br>（三）实验步骤<br>1．用VC++6.0建立动态链接库MaxMin.DLL<br>第一步：启动VC++6.0，选择“File/New/MFC AppWizzard(Dll)”,工程名设为“MaxMin”，按“确定”钮后，选择“Regular DLL Using shared MFC DLL”,按“Finish”钮后，即创造了一个DLL的框架工程。<br>第二步：选择“File/New”,在出现的对话框中选择“C/C++ Header File”，在文件名处输入“MyDLL”,按“确定”钮，即创建了一个空的头文件“MyDLL.h”。在该文件中输入以下两行内容：<br>extern "C" _declspec(dllexport) int Min1(int x,int y,int z);<br>extern "C" _declspec(dllexport) int Max1(int x,int y,int z);<br>选择“File/Save”保存该文件的内容。<br>第三步：选择“File/New”,在出现的对话框中选择“C/C++ Source File”， 在文件名处输入“MyDLL”,按“确定”钮，即创建了一个空的源文件“MyDLL.cpp”。在该文件中输入以下内容：<br>#include "stdafx.h"<br>#include "MyDll.h"<br>extern "C" __declspec(dllexport) int Min1(int x,int y,int z)<br>{<br>if ((x<=y) & (x<=z)) return x;<br>else if ((y<=x) & (y<=z)) return y;<br>else return z; /*找出x，y，z中的最小整数*/<br>}<br><br>extern "C" __declspec(dllexport) int Max1(int x,int y,int z)<br>{<br>if ((x>=y) & (x>=z)) return x;<br>else if ((y>=x) & (y>=z)) return y;<br>else return z; /*找出x，y，z中的最大整数*/<br>}<br>选择“File/Save”保存该文件的内容。<br>第四步：按下运行图标“！”，即生成了MyDLL.DLL（在当前工程目录的DEBUG子目录下）。<br><br>2．用Delphi编写调用MaxMin.DLL的测试程序<br>调用动态链接库有两种方法，即隐式调用和显式调用。<br>（1）隐式调用<br>第一步：启动Delphi，选择“New Application”，生成一个空的应用程序，在Form的“Name”属性处输入“TestVcDLLForm”，Caption属性处输入“VC++的DLL隐式调用测试”，在Form中放入控件如表1所示（其中所有的Edit控件的“Text”属性均设为空）：<br> <br><br>（表1：所用到的控件及其属性） <br> <br><br>（图1：应用程序屏幕效果）<br>最后设计的Form的屏幕效果如图1所示。选择“File/Save all”，在“Save unit1 as”对话框中将源文件名设为“main.pas”，按“保存”钮；在“Save Project1 as”对话框中将工程名设为“TestVcDLL”，按“保存”钮。<br>第二步：选择“File/New…”，在出现的“New Item”对话框中选择“unit”,按“OK”钮，生成一个空的源文件，在该文件中输入以下内容：<br>unit MaxMin;<br><br>interface<br>function Min1(x,y,z:Integer):Integer; stdcall;<br>function Max1(x,y,z:Integer):Integer; stdcall;<br><br>implementation<br>function Min1;external 'MaxMin.DLL' name 'Min1';<br>function Max1;external Max'Min.DLL' name 'Max1';<br>end.<br>选择“File/Save As…”,将上述文件存为“MaxMin.pas”。<br>第三步：在Main.pas文件中，在“implementation”语句后加入：<br>uses<br>MaxMin;<br>第四步：在Form上双击“运行”按钮对该按钮的“Click”事件编程，代码如下：<br>procedure TTestVcDLLForm.btnRunClick(Sender: TObject);<br>begin<br>edtMax.Text:=IntToStr(Max1(StrToInt(edtInt1.Text),<br>StrToInt(edtInt2.Text),StrToInt(edtInt3.Text))); //调用动态链接库中的函数Max1<br>edtMin.Text:=IntToStr(Min1(StrToInt(edtInt1.Text),<br>StrToInt(edtInt2.Text),StrToInt(edtInt3.Text))); //调用动态链接库中的函数Min1<br>end;<br>保存该文件。<br>第五步：将上述1.中VC++6所建立的动态链接库“MaxMin.DLL”拷入Delphi的当前工作目录中。<br>第六步：运行。结果如图2所示。<br> <br><br>图2：隐式调用DLL运行结果<br> <br><br>图3：显式调用DLL运行结果 <br>（2）显示调用<br>第一步：同隐式调用。只是将Form的“Caption”属性改为“VC++的DLL显式调用测试”。<br>第二步：选择“File/New…”，在出现的“New Item”对话框中选择“unit”,按“OK”钮，生成一个空的源文件，在该文件中输入以下内容：<br>unit Unit1;<br><br>interface<br><br>type<br>TMin1=function(x,y,z:Integer):Integer; stdcall;<br>TMax1=function(x,y,z:Integer):Integer; stdcall;<br>THandle=Integer;<br><br>implementation<br><br>end.<br>选择“File/Save As…”,将上述文件存为“MaxMin.pas”。<br>第三步：在Main.pas文件中，在“implementation”语句后加入：<br>uses<br>MaxMin;<br>第四步：在Form上双击“运行”按钮对该按钮的“Click”事件编程，代码如下：<br>procedure TTestVcDLLForm.btnRunClick(Sender: TObject);<br>var<br>Handle:THandle;<br>Min1:TMin1;<br>Max1:TMax1;<br>begin<br>Handle:=LoadLibrary('MaxMin.dll'); //将“MaxMin.dll”的文件映象映射进调用进程的地址空间<br>if Handle<>0 then<br>begin<br>@Min1:=GetProcAddress(Handle,'Min1'); //取得DLL中函数Min1( )的地址<br>@Max1:=GetProcAddress(Handle,'Max1'); //取得DLL中函数Max1( )的地址<br>if (@Max1<>nil) and (@Min1<>nil) then<br>begin<br>edtMin.Text:=IntToStr(Min1(StrToInt(edtInt1.Text),<br>StrToInt(edtInt2.Text),StrToInt(edtInt3.Text))); //调用动态链接库中的函数Min1<br>edtMax.Text:=IntToStr(Max1(StrToInt(edtInt1.Text),<br>StrToInt(edtInt2.Text),StrToInt(edtInt3.Text))); //调用动态链接库中的函数Max1<br>end else ShowMessage('调用函数“GetProcAddress”时出错！');<br>FreeLibrary(Handle); //从进程的地址空间中解除“MaxMin.dll”文件的映射<br>end;<br>end;<br>保存该文件。<br>第五步：将上述1.中VC++6所建立的动态链接库“MaxMin.DLL”拷入Delphi的当前工作目录中。<br>第六步：运行。结果如图3所示。<br><br>以上实例均编译通过，运行正确。
