最后，大家要知道，我这段代码是在Windows NT下运行的。这说明，这种字符串转换在支持Unicode的Windows NT下也发生了！真是莫名其妙！

返回的BSTR字符串

对BSTR字符串来说，传送到一个DLL函数并被返回是一个复杂的过程。

图6－7显示了这整个过程。在ABSTR字符串传递到DLL函数后，转换过程就反过来了。原来的BSTR变量str会指向一个API函数产生的Unicode字符数组。注意，这个Unicode字符数组在内存中的位置可能与原来的地址不同了。所以，我们应该依据数组的地址而不是值去判断。

Figure 6-7. The return translation

调用哪一类函数？

Windows 9x并不支持Unicode 入口的API函数，所以，基于兼容性的考虑，你必须在应用程序中调用ANSI入口的API函数。举个例子，如果你想调用SendMessage函数，你应该选择SendMessageA，而不是SendMessageW。

字符串传递的步骤

现在让我们来看一下一个BSTR字符串传递到一个外部的动态链接库所经过的步骤。

假定我们呼叫一个接收字符串参数并将它修改后返回的动态链接库函数。例如，CharUpper是个很合适的例子。这个函数将每个字符转换为大写。ANSI版本的Visual Basic声明如下：

Declare Function CharUpperA Lib "user32" ( ByVal lpsz As String ) As Long

在Windows 9x下

在Windows 9x下，字符串参数发生以下变化。记住被传递的是字符串指针，而不是实际的字符串。

首先BSTR字符串被Visual Basic复制为一个ABSTR，然后这个复制品被传送到函数CharUpperA，而CharUpperA将它作为LPSTR接收。CharUpperA处理好这个LPSTR后将结果传回Visual Basic。Visual Basic再把LPSTR转变为一个BSTR字符串。

在Windows NT下

在Windows NT下，被传递过去的字符串会经历以下的变化：

BSTR字符串被Visual Basic复制为ABSTR，并且传递到函数CharUpperA，该函数以LPSTR类型接收它。CharUpperA又把LPSTR翻译为LPWSTR，然后把这个LPWSTR传送到Unicode入口的CharUpperW。CharUpperW处理了LPWSTR后再把它返回给CharUpperA。CharUpperA将这个LPWSTR翻译为LPSTR并把它传递给Visual Basic，而Visual Basic会认为它接收的是一个ABSTR。最后Visual Basic把ABSTR转变为BSTR。

一个Unicode入口的例子

在Windows NT下，我们如果直接调用Unicode入口的函数看看会得到什么样的结果。

以下是一个ANSI版本的调用CharUpperA的例子：

s = "d:\temp"

Debug.Print s

CharUpperA s

Debug.Print s

不管是在Windows 9x还是在Windows NT下，输出结果都是这样：

d:\temp

D:\TEMP

在Windows NT下，我们尝试一下调用Unicode版本的CharUpperW：

s = "d:\temp"

Debug.Print s

CharUpperW s

Debug.Print s

但是输出结果却为：

d:\temp

d:\temp

很显然，什么地方出错了。顺便提一句，MSDN的Visual Basic文档中是这样解释CharUpper函数的返回值的：“本函数不能提示是否被成功执行。通常很少出错。所以并没有什么外部的提示。请不要在出错后调用GetLastError。“

即使如此，我们还是知道错误一定与Visual Basic将BSTR改为ABSTR有关。所以，我们再试一试以下的代码：

s = "d:\temp"

Debug.Print s

s = StrConv(s, vbUnicode)

Debug.Print s

CharUpperW s

Debug.Print s

s = StrConv(s, vbFromUnicode)

Debug.Print s

输出为：

d:\temp

d : \ t e m p

D : \ T E M P

D:\TEMP

这段代码比上一段多做的只是模拟了BSTR到ABSTR的转换。事实上，StrConv函数只是简单地接收每一个字符，然后把它们转换为Unicode格式。它不会去关心传递过来的字符串是否已经为Unicode格式了。

上一页  [1] [2] [3] [4] [5]  下一页