在VB 中调用动态连接库

(2)、字符串参数的传递：

　　与简单数据类型相比，字符串类型（String、String*n）的参数传递要复杂得多，这主要是Windows 95 API和VB使用的字符串类型不同的缘故。VB使用被称为BSTR的String数据类型，它是由自动化（以前被称为OLE Automation）定义的数据类型。一个BSTR由头部和字符串组成，头部包含了字符串的长度信息，字符串中可以包含嵌入的null值。大部分的BSTR是 Unicode的，即每个字符需要两个字节。BSTR通常以两字节的两个null字符结束。下图表示 了一个BSTR类型的字符串。

　　（前缀）aTest\0
　　头部BSTR指向数据的第一个字节

　　另一方面，大部分的DLL过程（包括Windows 95 API中的所有过程）使用LPSTR类型字符串，这是指向标准的以null结束的C语言字符串的指针，它也被称为ASCIIZ字符串。LPSTR 没有前缀。下图显示了一个指向ASCIIZ字符串的LPSTR。

　　aTest\0

　　LPSTR指向一个以null结尾的字符串数据的第一个字节

　　如果DLL过程需要一个LPSTR（指向以null结束的字符串的指针）作为参数，可以在VB 中将一个字符串以传值的方式传递给它。因为指向BSTR的指针实际指向以null值结束的字符串的第一个数据字节，所以对于DLL过程来说，它就是一个LPSTR。这样传入动态连接库的字符串，DLL过程也可以对它进行修改，尽管它是以传值方式传入的。只有当DLL过程需要一个指向LPSTR的指针时，才以传址的方式传入字符串，这时DLL过程得到的是一个指向字符串指针的指针（相当于C/C 中的char**），而不是通常所用的字符串的首地址（相当于C/C 中的char*）。

　　当需要把一个字符串数组整个传入动态连接库时，情况就变得复杂多了，用传递简单数据类型数组的方式来传递字符串数组是行不通的。当我们以传值的方式将一个字符串数组的第一个元素传进动态连接库时，DLL过程得到的实际上是该元素压入堆栈段后的地址，而不是数据段中整个数组的首地址。也就是说，这时DLL过程只能得到数组的第一个元素，而无法访问整个数组。而以传址方式传入第一个元素时，DLL过程只能得到指向该元素在堆栈段中地址的指针，同样无法访问整个数组。这不能不说是VB的一个不足。因此，在程序设计中，如果确实需要将整个字符串数组传入动态库，就必须采取其它方法。

　　我们知道，在VB中，有一种Byte数据类型。每个Byte型变量占一个字节，不含符号位，因 此所能表示的范围为0到255。这种数据类型是专门用于存放二进制数据的。为了将整个字符 串数组传进动态库，可以用字节数组来保存字符串。由于Byte是一种简单数据类型，因此字节 数组的传递是非常简单的。首先，需要把一个字符串正确地转变成一个字节数组。这要涉及一 些字符集的知识。Windows 95和VB使用不同的字符集，Windows 95 API使用的是ANSI或DBCS 字符集，而VB使用的则是Unicode字符集。所谓ANSI字符集，是指每个字符都用一个字节表示， 因此最多只能有28=256个不同的字符，这对于英语来说已经足够了，但不能完全支持其它语 言。DBCS字符集支持很多不同的东亚语言，如汉语、日语和朝鲜语，它使用数字0-255表示ASCII 字符，其它大于255或小于0的数字表明该字符属于非拉丁字符集；在DBCS中，ASCII字符的长 度是一个字节，而汉语、日语和其它东亚字符的长度是2个字节。而Unicode字符集则完全用 两个字节表示一个字符，因此最多可以表示216=65536个不同字符。也就是说，ANSI字符集中 所有的字符都只占一个字节，DBCS字符集中ASCII字符占一个字节，汉字占两个字节，Unicode 字符集中每个字符都占两个字节。由于VB与WindowsAPI使用的字符集不同，因此在进行字符 串到字节数组的转换时，当用Asc函数取得一个字符的字节码后，需要判断它是否是一个ASCII 字符；如果是ASCII字符，则在转换后的字节数组中就只占一个字节，否则要占两个字节。

　　下面给出了转换函数：GetChar Byte得到一个字符的高字节或低字节，它的第一个参数 是一个字符的ASCII码，第二个参数是标志取高字节还是低字节；StrToByte按DBCS或ANSI格 式将一个字符串转换成一个字节数组，第一个参数是待转换的字符串，第二个参数是转换后的一个定长字节数组，若该数组长度不足以存放整个字符串，则截去超长的部分；ChangeStrAryToByte 利用前两个函数将字符串数组转换成字节数组，第一个参数是定长的字符串数组，其中每个元素都是一个字符串（各个元素包含的字符数可以不同），第二个参数是一个变长的字节数组， 保存转换后的结果。 Function GetCharByte(ByVal OneChar As Integer, ByVal IsHighByte As Boolean) As Byte ' 该函数获得一个字符的高字节或低字节

If IsHighByte Then
If OneChar >= 0 Then
GetCharByte = CByte(OneChar \ 256)
'右移8位，得到高字节
Else
GetCharByte = CByte((OneChar
And &H7FFF) \ 256) Or &H80
End If
Exit Function
Else
GetCharByte = CByte(OneChar And &HFF)
'屏蔽掉高字节，得到低字节
Exit Function
End If
End Function

Sub StrToByte(StrToChange As String, ByteArray() As Byte)
'该函数将一个字符串转换成字节数组
Dim LowBound, UpBound As Integer
Dim i, count, length As Integer
Dim OneChar As Integer

count = 0
length = Len(StrToChange)
LowBound = LBound(ByteArray)
UpBound = UBound(ByteArray)

For i = LowBound To UpBound
ByteArray(i) = 0 '初始化字节数组
Next

For i = LowBound To UpBound
count = count 1
If count <= length Then
OneChar = Asc(Mid(StrToChange, count, 1))

If (OneChar > 255) Or (OneChar < 0) Then
'该字符是非ASCII字符
ByteArray(i) = GetCharByte(OneChar, True) '得到高字节

文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!