VPF::Кодировка UTF8 в проекте! - Форум программистов

DENSHER

Дата 29.1.2011, 16:09 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 179
Регистрация: 3.3.2010

Репутация: нет
Всего: нет

Доброго времени суток народ!

Помогите сделать кодировку UTF8 в проекте. Проект не мой! Автор молчит ( Да и сам проект 2003 года , но очень мне понравился. Но русский шрифт не понимает. Я с кодировкой не сильно дружу , поэтому прошу вашей помощи.

Проект -- это чат (клиент и сервер) там очень мало написано, так что разобраться можно за пару минут.

Картинка такая: не может отобразить ник русским шрифтом и сообщения казябрами.

Попытался в клиенте отправку перекодировать:

Код


'procedure to send strings to the server
    Private Sub Send(ByVal t As String)
        On Error Resume Next
        Dim asciiString As String = t
        Dim ascii As System.Text.Encoding = System.Text.Encoding.ASCII
        Dim utf8 As System.Text.Encoding = System.Text.Encoding.UTF8
        Dim asciiBytes As Byte() = ascii.GetBytes(asciiString)
        Dim utf8Bytes As Byte() = System.Text.Encoding.Convert(ascii, utf8, asciiBytes)
        Dim utf8Chars As Char() = New Char(utf8.GetCharCount(utf8Bytes, 0, utf8Bytes.Length) - 1) {}
        utf8.GetChars(utf8Bytes, 0, utf8Bytes.Length, utf8Chars, 0)
        Dim utf8String As New String(utf8Chars)
        Dim w As New IO.StreamWriter(myclient.GetStream)
        w.Write(utf8String & vbCr)
        w.Flush()
    End Sub

Ник отображается: ????? и сообщение: Ник ?????? say: ?????
Теперь не казябры а вопросы ((( , похоже где-то глубже надо капать... Но где? или же я что-то неправильно сделал?

Нашел решение проблемы и в помощи больше не нуждаюсь.

Кто захочет воспользоваться проектом , вот решение >>
Нужно заменить следующие:

Код


Private Sub BuildString(ByVal Bytes() As Byte, _
 ByVal offset As Integer, ByVal count As Integer)
        Dim intIndex As Integer

        For intIndex = offset To offset + count - 1
            If Bytes(intIndex) = 13 Then
                RaiseEvent LineReceived(Me, mobjText.ToString)
                mobjText = New StringBuilder()
            Else
                ' ChrW заменяем на Chr - прием и отправка текста на русском
                ' mobjText.Append(ChrW(Bytes(intIndex))) 
                ' на
                ' mobjText.Append(Chr(Bytes(intIndex))) 

                mobjText.Append(Chr(Bytes(intIndex))) 
            End If
        Next
    End Sub

Примечание: ChrW заменяем на Chr во всех решениях!

Это сообщение отредактировал(а) DENSHER - 30.1.2011, 12:52

Присоединённый файл ( Кол-во скачиваний: 5 )

TChat.rar 181,30 Kb

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB .NET \| Следующая тема »