VB 6 Не отображаеются русские символы

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
u3er
Обычный пользователь
Обычный пользователь
 
Сообщения: 56
Зарегистрирован: 04.05.2013 (Сб) 21:50

VB 6 Не отображаеются русские символы

Сообщение u3er » 07.06.2014 (Сб) 14:47

VB 6 Icq компонент не отображаются русские символы более года мучаюсь уже где ошибка помогите
когда пишу на английском сообщения отображаются отлчиноа когда на русском пишу привет приходит вот такое сообщение ?@825B Думаю ошибка где то тут но не пойму где


Код: Выделить всё
Private Function Utf82Ascii(ByVal strM As String) As String
Dim lngMSize As Long, lngWSize As Long
Dim strWide As String, bytUtf8() As Byte
Dim lngRes As Long
If LenB(strM) = 0 Then Exit Function
bytUtf8 = StrConv(strM, vbFromUnicode)
lngMSize = UBound(bytUtf8) + 1
lngWSize = lngMSize * 2
strWide = String$(lngWSize, vbNullChar)
lngRes = MultiByteToWideChar(CP_UTF8, 0, bytUtf8(0), lngMSize, StrPtr(strWide), lngWSize)
Utf82Ascii = Left$(strWide, lngRes)
End Function
Private Function ascii2utf8(data As String) As String
Dim i, j As Byte
Dim tmp As String
For i = 1 To Len(data)
j = GetByte(data, i)
If j > 191 And j <= 255 Then
tmp = 53200 + j
If tmp > 53439 Then tmp = 192 + tmp
tmp = Word2Str(tmp)
ascii2utf8 = ascii2utf8 & tmp
Else
ascii2utf8 = ascii2utf8 & Chr(j)
End If
Next i
End Function

Private Function dword2str(data As Long) As String
Dim i As Byte
dword2str = hex2str(Hex(data))
For i = 1 To 4
If Len(dword2str) < 4 Then dword2str = Chr$(0) & dword2str
Next i
End Function
If Len(dword2str) < 4 Then dword2str = Chr$(0) & dword2str
Next i
End Function

[Viper] :: Пользуйся тэгом CODE!

Qwertiy
Доктор VB наук
Доктор VB наук
 
Сообщения: 2753
Зарегистрирован: 26.06.2011 (Вс) 21:26

Сообщение Qwertiy » 07.06.2014 (Сб) 23:42

Жуть...


Вернуться в Visual Basic 1–6

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 17

    TopList