【原创】VB中BSTR字符串的结构

马大哈

VB里面使用的字符串String就是COM规范中的BSTR,其特点是缓冲区前面有4字节的前缀用于说明缓冲区的长度:



因此这种结构可以保证能包含任意的内容,包括LPSTR中用于标志字符串结束的NULL.
VB在向API中以ByVal方式传递String时,实际上是把缓冲区的地址传了进去,因此API可以通过这个缓冲区来修改字符串内容.

以下这个代码可以直观的展示上面的说明:

1. 
   
2. Option Explicit
   
3. '说明BSTR结构的测试代码
   
4. 'BY 嗷嗷叫的老马
   
5. Private Declare Sub CopyMemory Lib "kernel32.dll" Alias "RtlMoveMemory" ( _
   
6.      ByVal Destination As Long, _
   
7.      ByVal Source As Long, _
   
8.      ByVal Length As Long)
   
9. Sub Main()
   
10.     Dim I As String, J As Long, K As Long
    
11.    
    
12.     I = "12345"
    
13.     Call CopyMemory(VarPtr(J), StrPtr(I) - 4, 4)        '-4,指针就指向了I的前缀
    
14.     MsgBox "字符串A" & Chr(0) & "字符串B"
    
15.             'MsgBox也是以NULL为字符串结尾的,因此无法显示出字符串B.
    
16.     MsgBox "缓冲区地址 = &H" & Hex(StrPtr(I)) & vbCrLf & vbCrLf & _
    
17.             "LenB(BSTR) = " & LenB(I) & vbCrLf & vbCrLf & _
    
18.             "CopyMemory得到的长度 = " & J
    
19. End Sub

复制代码

阿杰

不错，经典实用

马大哈

<p>LPSTR就等于没有长度前缀的BSTR,请看后面蓝色部分.</p>
<p>&nbsp;</p>
<p>由于没有长度标识,因此LPSTR以NULL为字符串结束标志,所以LPSTR无法正常存放一个包含了NULL的字符串.</p>

马大哈

<p>关于问题一:</p>
<p>&nbsp;</p>
<p>&nbsp;&nbsp;&nbsp; 这个我不太清楚,C我不熟.不过貌似C里就LPSTR使用得多.....</p>
<p>&nbsp;</p>
<p>问题二:</p>
<p>&nbsp;</p>
<p>&nbsp;&nbsp;&nbsp; 不是"没什么作用",而是根本没得用......VB里面就只有BSTR类型的字符串可用........</p>
<p>&nbsp;</p>
<p>问题三:</p>
<p>&nbsp;</p>
<p>&nbsp;&nbsp;&nbsp; 我好象没见到哪个API只需要传缓冲区进去而不需要指定长度的....?想了半天真没想出来.</p>
<p>&nbsp;</p>
<p>&nbsp;&nbsp;&nbsp; 不过呢,关于字符串返回的API的工作方式,我可以大约地说明一下.</p>
<p>&nbsp;</p>
<p>&nbsp;&nbsp;&nbsp; 你看看这个帖子:</p>
<p>&nbsp;</p>
<p>&nbsp;&nbsp;&nbsp; <font face="Verdana"><a href="dispbbs.asp?boardid=27&amp;id=2373&amp;star=1&amp;page=1">http://www.m5home.com/bbs/viewthread.php?tid=2373&extra=&page=1</a></font></p>