Вопрос не простой.
Думаю если кто может объяснить/помочь и т.п. то м.б. Antonary или скукотища, поэтому в основном на них и рассчитываю
Была такая моя тема давно:
Как отобразить примечания для кнопок в API-Toolbar
Был там такой код:
смотреть примерно это место топика
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
Case WM_NOTIFY 'toolbar
Call CopyMemory(uNMHDR, ByVal lParam, Len(uNMHDR))
...
Case TTN_GETDISPINFO
Call CopyMemory(uNMTTDI, ByVal lParam, Len(uNMTTDI))
Select Case uNMTTDI.hdr.idFrom
Case 1:
s = "Создать"
Case 2:
s = "Обновить"
...
ss = StrConv(s, vbFromUnicode)
Debug.Print uNMTTDI.lpszText 'чтоб не глючило в IDE
uNMTTDI.lpszText = StrPtr(ss)
Call CopyMemory(ByVal lParam, uNMTTDI, Len(uNMTTDI))
Case Else
...
с подсказкой Antonary насчет Debug.Print
Код работал 3 года в этом виде, но обратил внимание на проблему,
если
1) Примечания на русском
2) Наблюдается на
некоторых системах Виста (включая чисто русскую) либо Win7 (на английских)
3) Все системы настроены на поддержку "Русский язык для программ не поддерживающих Юникод" -т.е. это условие выполняется
Но примечания отображаются как "?????????????".
Имея на тек. момент некоторые представления о глючности StrConv(s, vbFromUnicode),
описанные например здесь
API -ф-ция возвращает указатель на LPWSTR, как переварить в нормальный вид.
и какие-то наработки,
сделал так (на пальцах-метод проверенный):
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
Case WM_NOTIFY 'toolbar
Call CopyMemory(uNMHDR, ByVal lParam, Len(uNMHDR))
...
Case TTN_GETDISPINFO
Call CopyMemory(uNMTTDI, ByVal lParam, Len(uNMTTDI))
Select Case uNMTTDI.hdr.idFrom
Case 1:
s = "Создать"
Case 2:
s = "Обновить"
...
uNMTTDI.lpszText = VarPtr(StringToMas(s).ByteStr(0)) 'StrPtr(ss)
Call CopyMemory(ByVal lParam, uNMTTDI, Len(uNMTTDI))
Case Else
...
, где
Public Type StringToChar
ByteStr() As Byte
End Type
Function StringToMas(str As String) As StringToChar
Dim data As StringToChar
Dim temp As String
Dim Ln As Long
Dim i As Integer
Dim Ptr As Long
temp = str
Ln = Len(temp)
ReDim data.ByteStr(0 To Ln)
If Ln > 0 Then
For i = 0 To Ln - 1
data.ByteStr(i) = Asc(Mid(temp, i + 1, 1))
Next i
End If
data.ByteStr(Ln) = 0
StringToMas = data
End Function
Т.е.
1) тупо конвертирую строку в массив байтов ByteStr() As Byte, последний из которых '\0'
2) Подсовываю в uNMTTDI.lpszText указатель на байт (0) этого массива VarPtr(ByteStr(0))
Но: получилось что
первые 4 символа строки читаются при выводе примечания как случайная абракодабра , а последующие без ошибок.
Т.е.
какая-то сволочь стабильно затирает первые 4 байта: 0-1-2-3
Я выкрутился так:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
Case TTN_GETDISPINFO
Call CopyMemory(uNMTTDI, ByVal lParam, Len(uNMTTDI))
Select Case uNMTTDI.hdr.idFrom
Case 1:
s = "Создать"
Case 2:
s = "Обновить"
...
uNMTTDI.lpszText = VarPtr(StringToMasPlus4(s).ByteStr(4)) 'StrPtr(ss)
Call CopyMemory(ByVal lParam, uNMTTDI, Len(uNMTTDI))
...
Public Function StringToMasPlus4(str As String) As StringToChar
Dim data As StringToChar
Dim temp As String
Dim Ln As Long
Dim i As Integer
Dim Ptr As Long
temp = str
Ln = Len(temp)
ReDim data.ByteStr(0 To Ln + 4)
If Ln > 0 Then
For i = 0 To Ln - 1
data.ByteStr(i + 4) = Asc(Mid(temp, i + 1, 1))
Next i
End If
data.ByteStr(Ln + 4) = 0
StringToMasPlus4 = data
End Function
Т.е.
1) Резервирую на 4 байта больше
2) пишу текст начиная с байт №4
3) Подсовываю в uNMTTDI.lpszText сразу указатель
на байт (4) этого массива VarPtr(ByteStr(4))
Этот workaround заработал.
В том числе на "проблемных" Vista и Win7 ради чего сыр-бор.
Но мне все таки непонятно и в этом вопрос:
Какая сволочь пишет фигню в первые 4 байта?
Уж не CopyMemory ли идущая следом?
И как объяснить этой сволочи чтоб не перезаписывала эти 4 байта?
Ибо вдруг сволочь захочет еще и следующие 4 байта испохабить...
