VB使用CopyMemory字符串处理

不能直接使用CopyMemoryStr，应该将字符串转为byte数组，然后使用CopyMemory

Property Get item() As String
If h = 0 Then ErrRaise ERROR_INVALID_DATA
'BugAssert p <> pNull
Dim c As Long,ptr0 As Long
Dim ab() As Byte
'取出BSTR的长度
CopyMemory c,ByVal p,4
If c > 0 Then
ReDim ab(c - 1)
CopyMemory ByVal VarPtr(ab(0)),ByVal (p + 4),c
item = ab
End If
End Property

Property Let item(s As String) If h = 0 Then ErrRaise ERROR_INVALID_DATA 'BugAssert p <> pNull Dim c As Long Dim ab() As Byte c = LenB(s) ab = s ' 重新将BSTR放回内存中 CopyMemory ByVal p,c,4 CopyMemory ByVal (p + 4),ByVal VarPtr(ab(0)),cEnd Property

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!