Delphi中C++的DLL的调用

　　调用DLL有两种方法，一种是在应用程序装载时调用，另一种是在应用程序运行时调用。

　　(1) 装载时调用DLL

　　在调用DLL的Pas文件中，对DLL函数进行外部声明，声明应位于Implementation后，形式如下：

Implementation
Function functionname(argment):Boolean;far;External 'DllName';

例如，Function AdvDVP_GetNoOfDevices(pNoOfDevs: PINT):Integer ; stdcall;External 'xxx.dll';xxx为待测的dll名称。

这里有两个问题：第一，参考书上的指针数据类型，type 指针类型名称=：^ type，如

pNoOfDevs: ^Integer是通不过的，必须改为pNoOfDevs: PINT。

第二，如果是通过新建了一个unit来专门声明待测试的所有函数，变量等，则不能只在Implementation声明，否则，编译出现未声明的identifier的error。

要有两部分：

interface   uses windows;

Function AdvDVP_InitSDK():Integer ; stdcall;

implementation

function AdvDVP_InitSDK; External 'xxx.dll';//xxx为待测试的dll名称

其中External关键字后面的引号内是DLL的文件名，该文件一般应放在系统的system目录下，或与调用它的项目同一目录。声明以后即可在Pas文件任何地方引用DLL函数。

否则，如果在工程下，直接声明，那么只要implementation下添加下面代码就可以了：

Function AdvDVP_InitSDK():Integer ; stdcall;  external 'DVP7010B.dll';

在form中，添加button，并直接调用函数就可以了。

   ret := AdvDVP_InitSDK();

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

　　(2) 运行时调用DLL

　　DLL的另一种调用方法是在运行时调用。这种方法要调用到Windows的API函数LoadLibrary，GetProcAddress，FreeLibrary等。此方法主要用于调用其它语言，特别是C＋＋编译的DLL。

首先在欲调用DLL的程序Type类型声明处加入一句：

type

TAdvDVP_InitSDK=Function:Integer; stdcall;

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

　　然后定义如下变量∶

var

   AdvDVP_InitSDK:TAdvDVP_InitSDK;

  Handle:THandle;

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

begin

 Handle:=LoadLibrary('xxx.dll'); //xxx为待测试的dll名称

if Handle<>0 then

begin

@AdvDVP_InitSDK:=GetProcAddress(Handle,'AdvDVP_InitSDK');

end

else

Application.MessageBox('加载dll出错 ', mb_OK);

end;
　　下面可直接调用DLL了：

var

   ret: Integer;

   I :Integer;

   res:Integer;

begin

   ret := AdvDVP_InitSDK();

   if ret=1 Then

   begin

   Application.MessageBox('Initing SDK succeeded.', 'Look', mb_OK);

   end;

   MessageValue.Text := IntToStr(ret);

end;

　　调用完以后，用FreeLibrary释放DLL占用的内存：

FreeLibrary(Handle);