在VB中调用C/C++语言编写的dll，数组参数的传递

动态链接库（dll）的好处就不多说了，这里就把如何在VB中调用VC写的dll函数的方法介绍一下，供有需要的朋友们参考，同时也免得自己以后忘了。

初次接触DLL的用户经常会遇到一个问题：在VC环境下创建的DLL，在VC里运行的好好的，可在VB应用程序中调用时却老是出现"调用约定错误"、"找不到入口点"之类的错误。这主要是由以下疏漏造成的。

首先，要注意DLL中的函数和VB中的函数声明在名称、返回类型、参数类型、参数个数等方面必须完全相同，尤其要注意大小写的问题。
其次，在DLL的.def文件中必须加上入口函数。
最后，在函数定义前必须加上extern "c"，_stdcall关键字。

其中 _stdcall 是一种函数的调用约定，有关函数的调用约定可以参考文章

比如现在做一个求数组中所有元素的和的函数，完整代码如下

DLL_test_dll.h中的代码

extern "C"
{
int _stdcall sum(int len,int* a);
}

DLL_test_dll.cpp中的代码，红色部分为自己写的代码，其余的为系统自动生成

// DLL_test_dll.cpp : 定义 DLL 应用程序的入口点。
//

#include "DLL_test_dll.h"
#include <iostream>
using namespace std;

#ifdef _MANAGED
#pragma managed(push,off)
#endif

BOOL APIENTRY DllMain( HMODULE hModule,
DWORD ul_reason_for_call,
LPVOID lpReserved
)
{
return TRUE;
}

#ifdef _MANAGED
#pragma managed(pop)
#endif

extern "C"
int _stdcall sum( int len,int* a )
{
int result = 0;
for ( int i = 0;i<len;i++ )
result = result+a[i];
}
return result;
}

还要在工程中添加一个 def 文件来指定导出的函数，这个直接在VC中新建文件就可以，扩展名是 .def

DLL_test_dll.def文件中的内容为

LIBRARY"DLL_test_dll"
EXPORTS
sum @1

把上面的代码都写好后编译就可以生成 .dll 和 .lib 文件了，下面是说如何在VB中调用并传递数组参数

首先在VB中声明dll中的函数，名字要和dll中的函数名一致，至于变量类型这个没法对应，毕竟是两种语言，不过要注意的是变量数量和变量大小应该是对应的，比如现在在C语言中 int 型是 4 字节，在VB中就要用 Integer 型来对应，函数声明方法如下

Public Declare FunctionsumLib "E://Study//VB//DLL_test_dll//Debug//DLL_test_dll.dll"(ByVal a As Integer,ByRefb As Integer) As Integer

以上代码是在一行中写的

与一般函数生命的不同之处就是多了一个 Declare ，Function 后面的 sum 就是函数名，要与dll中一致，Lib 是指定dll地址的，推荐用全路径地址，不过如果只写一个名字并把dll跟程序放在一个目录下的话应该也可以，这个没试过

注意到上面参数定义的红色的 ByRef 关键字，VB中函数参数的传递有两种方式，一种是传值，就是前面那个 ByVal，另一种就是传地址，就是这里用的 ByRef，由于我们想传递数组参数，所以要用 ByRef 方式传递

函数定义完了具体要如何调用呢，请看下面的例子

Dim a As Integer '定义一个整数，作为数组长度
Dim b(1) As Integer '定义一个有两个数的数组，其中的1代表数组下标上界，这里与C语言是不同的
Dim c As Integer '顶一个整数存放结果

a = 2
b(0) = 17
b(1) = 11
c = sum(a,0)">b(0))

这里可能有点令人费解，我明明应该传数组的地址，怎么传了个 b(0) 过去呢？

这里要说的是在 C/C++ 语言中数组的地址和第一个元素的地址是相同的，VB语言中 ByRef 方式直接传递的就是参数的地址，综合上面两条就可以知道这个语句实际传递的就是数组 b 中第一个元素 b(0) 的地址，这样就完成了从VB中向dll数组参数参数的传递

参考文章：

猜你在找的VB相关文章