动态链接库(dll)的好处就不多说了,这里就把如何在VB中调用VC写的dll函数的方法介绍一下,供有需要的朋友们参考,同时也免得自己以后忘了。
初次接触DLL的用户经常会遇到一个问题:在VC环境下创建的DLL,在VC里运行的好好的,可在VB应用程序中调用时却老是出现"调用约定错误"、"找不到入口点"之类的错误。这主要是由以下疏漏造成的。
首先,要注意DLL中的函数和VB中的函数声明在名称、返回类型、参数类型、参数个数等方面必须完全相同,尤其要注意大小写的问题。
其次,在DLL的.def文件中必须加上入口函数。
最后,在函数定义前必须加上extern "c",_stdcall关键字。
其中 _stdcall 是一种函数的调用约定,有关函数的调用约定可以参考文章
http://hi.baidu.com/atomxu/blog/item/01334717c378924621a4e955.html
比如现在做一个求数组中所有元素的和的函数,完整代码如下
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 Function sum Lib "E://Study//VB//DLL_test_dll//Debug//DLL_test_dll.dll" (ByVal a As Integer,ByRef b 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, b(0))
这里可能有点令人费解,我明明应该传数组的地址,怎么传了个 b(0) 过去呢?
这里要说的是在 C/C++ 语言中数组的地址和第一个元素的地址是相同的,VB语言中 ByRef 方式直接传递的就是参数的地址,综合上面两条就可以知道这个语句实际传递的就是数组 b 中第一个元素 b(0) 的地址,这样就完成了从VB中向dll数组参数参数的传递
参考文章:
http://hi.baidu.com/hfutgiser/blog/item/63418858a4f09f87810a187e.html