首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

VB6与DLL函数 数组传递的有关问题

2012-03-24 
VB6与DLL函数数组传递的问题用VC6编写了一个DLL。DLL中有一个函数 需要根据VB6传过来的几个数据生成一个数

VB6与DLL函数 数组传递的问题
用VC6编写了一个DLL。DLL中有一个函数 需要根据VB6传过来的几个数据生成一个数组,而后把数组的值传回给VB6.具体代码如下:

// 整数转BCD码,4位数转存后为2个字节 比如1234 转存后为两个字节 低字节高4位为3 低4位为4 高字节高4位为1 低4位为2
 extern "C" _declspec(dllexport) char _stdcall int2b(int shu , unsigned char *outArr )
{  
 unsigned char E1,E2,E3,E4 ;
 int shu2;  
 E4=int(shu/1000);
 shu2=shu-E4 * 1000;
 E3=int(shu2/100);
 shu2=shu2-E3 * 100;
 E2=int(shu2/10);
 shu2=shu2-E2 * 10;
 E1=shu2;  
 outArr[0]= (E2<<4) | (E1&15);
 outArr[1] =(E4<<4) | (E3&15);
 return 1;
}

VB6中的调用代码如下:

Dim sz(10) As Byte
Dim BH As Long
DIM I AS LONG
FOR I=0 TO 10
  sz(I)=0
NEXT I
BH = 1234
A = int2b(BH, sz(0))

以上代码得到的结果却是sz(0)=86 sz(1)=185

在VC中调试此代码得到的结果是第一个值为&H34=52,第二个值是&H12=18 为什么VB6调用DLL中的此函数后,得到的结果却不对呢。  
另外还发现,如果把函数

 extern "C" _declspec(dllexport) char _stdcall int2b(int shu , unsigned char *outArr )
{  
 outArr[0]=39;(当然这个数随意)
 outArr[1]=231;(当然这个数随意)
 return 1;
}

VB调用此函数后的数是与函数中的赋值是一致的.

请问是何原因。


[解决办法]
求BCD码没必要用C DLL这么复杂的技术吧。

VB code
Private Sub Command1_Click()Dim bb() As Byte    bb = int2bcd(&H1234)    Debug.Print "bb(0)=&h" + Right("0" + Hex(bb(0)), 2) + ",bb(1)=&h" + Right("0" + Hex(bb(1)), 2)End Sub'整数转BCD码,4位数转存后为2个字节 比如4660=&h1234 转存后为两个字节 低字节高4位为3 低4位为4 高字节高4位为1 低4位为2Public Function int2bcd(i As Integer) As Byte()Dim b() As ByteDim h As String * 4    ReDim b(1)    h = Right("000" + Hex(i), 4)    b(0) = CByte("&h" + Right(h, 2))    b(1) = CByte("&h" + Left(h, 2))    int2bcd = bEnd Function
[解决办法]
1、VC的变量运算要求很严格,即使VC的代码看起来和VB的差不多,但计算的结果也不见得一样。
因为VC中没有那么只能的数据转换过程,而且变量的定义初始值也不一样,VB的是&H00,VC的
是0xFF,这也都可能是导致运算结果不对的因素。
2、VC理解接VB传递过来的是个内存指针,而不是什么数组的概念,所以在VC中操作的是指针地址里
的值,而不是VB数组结构。在这个过程中,之所以用到指针的指针,主要是方便接口程序重新分配
内存,然后不至于改变原来指针的地址才这样运用。

你可以在VC里尝试单步调试,先看看VC代码运算的结果是否正确,如果结果正确,再看看要返回数据
的指针地址是多少,然后在VB中调用完VC的函数取得的指针地址也显示出来看看,看看是否是VC返回
的相同的内存地址,这样一层一层调试,总会发现问题所在的。
[解决办法]
在moudle中加上以下声明:
declare function int2b lib "libname.dll" ( byval shu as long, outArr as any) as byte

调用时以这种方式调用:
A = int2b(BH, sz(0))

经过试验,在vb中得出52和18的结果。
检查一下你使用的dll是不是你在vc中最终生成的那个。

热点排行