преобразовать LPWSTR в BSTR

[paz]

Здравствуйте коллеги.

APIшная функция возвратила Variant. Тип переменной VT_LPWSTR(31). Бацик понимает только VT_BSTR(8).

Подскажите пожалуйста способ преобразования LPWSTR в BSTR. с помощью VariantChangeType не получается - выдает ошибку.

[paz]

Ой. ниче не надо уже сам нашел . Если кому надо то вот:

Код: Выделить всё

Function LPWSTRtoBSTR(ByVal lpwsz As Long) As String

' Input: a valid LPWSTR pointer lpwsz
' Return: a sBSTR with the same character array

Dim cChars As Long

' Get number of characters in lpwsz
cChars = lstrlenW(lpwsz)

' Initialize string
LPWSTRtoBSTR = String$(cChars, 0)

' Copy string
CopyMemory ByVal StrPtr(LPWSTRtoBSTR), ByVal lpwsz, cChars * 2

End Function


[tyomitch]

В точности то же самое делает API-шка SysAllocString.

[paz]

Хорошо, учту.