由于某些情况下,我们需要用CB或是VC写一个DLL,而调用它的确实VB。
这里特别强调一下使用标准数据类型的问题,就是说用C++写的东西,导出的函数最好使用标准的int,char,long,double...标准类型以及他们的指针。
很多人都强调过这个问题。但是我最近遇到一个需要VB传结构给CB做的DLL,然后数据返回到结构的情况。
typedef struct Xtest
{
char a[100];
char b[100];
}*pX;
__declspec(dllexport) void __stdcalltest (*px,char *x,char *y);
void __stdcalltest (*px,char *x,char *y)
{
if(strlen(x)>100) *(x+99)='\0';
if(strlen(y)>100)*(y+99)='\0';
strcpy(px->a,x);
strcpy(px->b,y);
return;
}
在VB里你要写一个同样的结构
public type Xtest
a as string*100
b as string*100
end type
public declare funciton test lib"你的DLL名字" (byref px as Xtest,byval x,byval y)
这样才可以成功,如果使用了不定长的字符串,那么很可能你的系统要崩溃,我在我这里是这样。如果有问题,请大家指正。
另外,VB声明DLL里的函数,需要DLL的名字放在 LIB后面,但是这个名字在运行时,你必须要写全路径或是放在SYSTEM32目录,即使放在VB程序所在的目录,也需要全路径。但是编译过的VB程序,可以识别放在同目录下在声明里没有写全路径的DLL。