#post-id: 3082-11-38
#original-date: 2.01.2009 Fri
#original-time: 11:38 AM
#original-day:  3082
#original-host: WinXP Prof SP2 (Build 2600)

О! Решение найдено! Нужно указывать LocaleID точно как 0x409, тоесть американский язык (английский - для педантов). Эта кодировка стоит везде, так что должно сработать. 0x419 (руксский) работает отлично, но его нет в японской Windows, а 0x411 (японский) даёт сбои при конвертировании. Так что будем юзать вот это:

TXT = StrConv(Buff, vbUnicode, &h409) Buff = StrConv(TXT, vbFromUnicode, &h409)

Но это сколько же кода придётся пересмотерть! Хоть свои функции пиши для надёжности. Только бы вспомнить как SAFEARRAY работает...

Public Sub Main()  MsgBox asHexEx4(GetUserDefaultLCID()), vbInformation    Dim Buff() As Byte  Dim TMP As Long  Dim TXT As BStr  Dim IsValid As Boolean    Const LCID& = &H409& '&H411&    ReDim Buff(0 To 255)  For TMP = 0 To 255    Buff(TMP) = TMP  Next TMP    TXT = StrConv(Buff, vbUnicode, LCID)  Buff = StrConv(TXT, vbFromUnicode, LCID)    IsValid = True  For TMP = LBound(Buff) To UBound(Buff)    If Buff(TMP) <> TMP Then      IsValid = False      Exit For    End If  Next TMP    If TMP = 256 Then TMP = 0  MsgBox DumpBuffer(Buff) & CRLFCRLF & _         "Is valid:      " & IIf(IsValid, "True", "False") & CRLF & _         "Array size:    " & CLng(UBound(Buff) - LBound(Buff) + 1) & CRLF & _         "Failure index: " & TMP & " (" & asHex1(TMP) & ")", vbInformation End Sub Private Function DumpBuffer(ByRef Buff() As Byte) As BStr  Dim TMP As Long    For TMP = LBound(Buff) To UBound(Buff)    DumpBuffer = DumpBuffer & asHex1(Buff(TMP)) & " "  Next TMP    DumpBuffer = asTrimEx(DumpBuffer) End Function

#music: MELL\Red fraction\Red fraction