скукотища,
Replace(strTemp, Chr(0), "") -это конечно чушь полная.
Но дело в том, что если оставить как вы написали, то строки которые as String будут удвоенной длины len(str).
Т.е. не уверен что с ними можно нормально работать, а если сделать:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
Private Function PointerToStringUnicode(lngPtr As Long) As String
Dim strTemp As String
Dim lngLen As Long
If lngPtr Then
lngLen = lstrlenW(lngPtr) * 2
If lngLen Then
strTemp = Space(lngLen)
CopyMemory ByVal StrPtr(strTemp), ByVal lngPtr, lngLen
PointerToStringUnicode = StrConv(strTemp, vbFromUnicode)
MsgBox Len(PointerToStringUnicode)
End If
End If
End Function
то будет выдавать полную чушь.
Причем 3-й параметр -LocaleID согласно документации =default, он не срабатывает что-ли,
даже если написать 1049 для проверки, то ничего не меняется.
В моем примере с API по крайней мере ясно что
1) есть указатель lngPtr на LPWSTR
2) есть дефолная кодовая таблица CP_ACP по которой переводим в ANSI
3) есть длина строки lstrlenW в буквах
4) на выходе имеем НЕ-юникод массив нормальных байтов bytBuffer()
5) с этими байтами тупо и по одному разбираемся понятным способом
И самое главное результат соответствует обоснованным ожиданиям и полученный объект обладает привычными для таковых свойствами (например len() соответствует к-ву буков). А чего там StrConv делает и че VB понимает под As string в первом варианте и можно ли на это полагаться это сам черт не разберет.
