Browse DevX
Sign up for e-mail newsletters from DevX

Tip of the Day
Language: VB4/32,VB5,VB6
Expertise: Intermediate
Jun 17, 2000



Building the Right Environment to Support AI, Machine Learning and Deep Learning

StringFromBSTR - Convert a BSTR to a VB string

Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (dest As _
    Any, source As Any, ByVal bytes As Long)

' convert a BSTR into a VB String

Function StringFromBSTR(ByVal pointer As Long) As String
    Dim temp As String
    ' copy the pointer into the temporary string's BSTR
    CopyMemory ByVal VarPtr(temp), pointer, 4
    ' now Temp points to the original string, so we can copy it
    StringFromBSTR = temp
    ' manually clear then temporary string to avoid GPFs
    CopyMemory ByVal VarPtr(temp), 0&, 4
End Function
Francesco Balena
Comment and Contribute






(Maximum characters: 1200). You have 1200 characters left.



Thanks for your registration, follow us on our social networks to keep up-to-date