一次实验，弄明白了VB6中的字符串的存储格式

最新推荐文章于 2024-01-19 23:16:58 发布

kingdragonfly

最新推荐文章于 2024-01-19 23:16:58 发布

阅读量1.2k

点赞数

分类专栏： vb6 文章标签： vb6字符串的存储格式 varstr ptrstr copymemory

本文链接：https://blog.csdn.net/kingdragonfly/article/details/80214758

版权

本文通过实验揭示了VB6中字符串的存储方式，详细解释了StrPtr()和VarPtr()函数的用法，以及BSTR字符串的UNICODE编码特点。通过对内存的观察，解析了字符串长度和内容的存储位置，帮助读者清晰理解VB6字符串内存布局。

摘要由CSDN通过智能技术生成

虽然看过《老兵新传》《VisualBasic win32编程》中介绍VB6字符串的内容，但依旧对VB6中的字符串如何存储不十分清楚，不像对C语言中的字符串那样，在头脑中有一个清晰的轮廓。同时对varptr()，strptr()的理解也只限于书上的那些例子。直到有一天，突然灵光一闪，动手写了下面的程序，当程序执行的结果出现时，我也终于恍然大悟。

Option Explicit
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)

Sub main()
    Dim strA As String
    strA = "BSTR"
    
    Dim addrofStr As Long
    addrofStr = StrPtr(strA)
    Debug.Print "StrPtr(strA):" & addrofStr
    
    Dim llength As Long
    addrofStr = addrofStr - 4
    CopyMemory llength, ByVal addrofStr, 4 'llength中应为字符串包含的字节数
    Debug.Print "length of bytes:" & llength
    
    Dim addrofVar As Long
    addrofVar = VarPtr(strA)
    Debug.Print "VarPtr(strA):" & addrofVar
    
    Dim addrofTest As Long
    CopyMemory addrofTest, ByVal addrofVar, 4