VC调用Delphi的DLL时遇到的问题及解决

在开发的过程，有时会遇到用VC调用Delphi的DLL的时候：

1、调用过程

Delphi的DLL不是标准的DLL，所以，VC调用时会有限制。

大致包括过程：

1） 声明指向函数的指针，并定义函数指针；

typedef BOOL (__stdcall * lpPlateTemplateFun)(double *, PWCHAR);//导入模板DLL函数

lpPlateTemplateFun PlateTemplateFun; //函数指针

注意：这里的调用方式要用__stdcall;没有这个Delphi的DLL，VC调用会出错。

2） 导入动态链接库（DLL），一般是动态导入（因为Delphi默认生成是DLL没有LIB，但也可以转）

hDll = LoadLibrary(_T("recognise_plate.dll"));//导入DLL

if (NULL == hDll)
{
AfxMessageBox(_T("导入DLL失败"));
return ;
}
else
{
AfxMessageBox(_T("导入DLL成功"));
}

3） 获取DLL的接口函数，并用指针指向

PlateTemplateFun = (lpPlateTemplateFun)GetProcAddress(hDll,"Template_Data");/

if(NULL==PlateTemplateFun)
{
AfxMessageBox(TEXT("获取DLL(Template_Data)地址失败！"));
return ;
}
else
{
AfxMessageBox(TEXT("获取DLL(Template_Data)地址成功！"));
}

4） 调用DLL接口函数

if(PlateTemplateFun(D3Array,C_Data))//调用接口
{

。。。

}

2、传递数组、缓存或指针地址

再次重申，Delphi的DLL不是标准的DLL，其内存数组的结构和VC的数组的结构不一致，所以，VC和Delphi之间不能直接传递数组（了解不深，见谅！暂可这么理解，如有高手愿听详解）。

那是不是说在VC和Delphi之间就不能传递类似数组的缓存区了呢？

答案是可以传递的。

他们之间传递一定要用“地址”进行传递，即传递的是地址。

比如：VC中开辟一块缓存区（可以是栈空间（比如数组）；可以是堆空间（比如用molloc或new申请的空间）），进行初始化后（默认是随机值，最好进行这步），将地址传递给Delphi，Delphi收到地址，进行填充数据，传递回来。

上面是例子，是我实战中的例子，没有改动。传递的就是指针地址（我用的是堆空间）。

有人说了，你刚才说了，不能传递数组，后来你又传递数组，这不是前后矛盾吗？

NO！我前面说的是不能直接传递数组，意思是在让你在思想上放弃传递数组的概念，传递是的地址！！！

下面是我用到的地址的定义：

double *D3Array;//
int g_iDataLength=40;
PWCHAR C_Data;
C_Data = new WCHAR[g_iDataLength];
memset(C_Data,0,g_iDataLength);

D3Array = new double[100*100*100];

memset(D3Array,0,100*100*100);

这些是我给公司做程序时的全部代码，全部贴出来了。其实，我们之前传递的就是用数组，我的同事用Delphi，我用VC，他用Delphi调用他的DLL没问题；我开辟了一块内存，向另一个VC函数传递数组也没问题。问题就出在Delphi和VC之间数组的不通用上了。

我们解决这个问题正好用了一周，相信还有许多朋友遇到了类似的问题，希望本文能给您提供帮助，也好不白费我的一片苦心。

本人水平有限，望见谅！