VPF::Проблема с кодировкой - Форум программистов

admsasha

Дата 27.2.2008, 15:29 (ссылка)

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

Загрузка ...

Опытный

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

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

Задача, отослать какой либо пакет данных, в том виде как и пришел. В теории кодировка может быть совершенно любой. Но для начала хотябы в windows-1251...

пишу так

Код


Imports System.Net.Sockets
Imports System.Text

Public Class Form1
    Private listener As TcpListener
    Const READ_BUFFER_SIZE As Integer = 255
    Private readBuffer_client(READ_BUFFER_SIZE) As Byte
    Private sock_client As TcpClient
    Private sock_client_w As IO.StreamWriter

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        listener = New TcpListener(System.Net.IPAddress.Any, 808)
        listener.Start()
        sock_client = listener.AcceptTcpClient
        sock_client_w = New IO.StreamWriter(sock_client.GetStream)
        sock_client.GetStream.BeginRead(readBuffer_client, 0, READ_BUFFER_SIZE, AddressOf StreamReceiver, Nothing)

    End Sub

    Private Sub StreamReceiver(ByVal ar As IAsyncResult)
        Dim BytesRead As Integer
        Dim strMessage As String

        Try
            SyncLock sock_client.GetStream
                BytesRead = sock_client.GetStream.EndRead(ar)
            End SyncLock

            strMessage = Encoding.ASCII.GetString(readBuffer_client, 0, BytesRead)
            'strMessage = Encoding.GetEncoding(1251).GetString(readBuffer_client, 0, BytesRead)
            'strMessage = Encoding.GetEncoding("windows-1251").GetString(readBuffer_client, 0, BytesRead)

            sock_client_w.Write(strMessage)
            sock_client_w.Flush()

            SyncLock sock_client.GetStream
                sock_client.GetStream.BeginRead(readBuffer_client, 0, READ_BUFFER_SIZE, AddressOf StreamReceiver, Nothing)
            End SyncLock
        Catch e As Exception
            MsgBox(e.Message)

        End Try
    End Sub

End Class

Шлю через клиент (написан не на .NET) слово "проверка", приходит "????????"

Что не так делаю ?

admsasha

Дата 27.2.2008, 17:31 (ссылка)

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

Загрузка ...

Опытный

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

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

На одну часть вопроса, ответ нашел

Код


sock_client_w = New IO.StreamWriter(sock_client.GetStream, Encoding.GetEncoding("windows-1251"))

И соответственно

Код


strMessage = Encoding.GetEncoding("windows-1251").GetString(readBuffer_client, 0, BytesRead)

Experimenter

Дата 27.2.2008, 19:58 (ссылка)

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

Загрузка ...

Опытный

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

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

если отсылать то, что пришло... (пример сильно утрирован)

Код


Dim ns As NetworkStream = New NetworkStream(socket)
Dim buffer As byte() = Encoding.GetEncoding(1251).GetBytes("то, что пришло...")
ns.Write(buffer, 0, buffer.Length)

--------------------

public Zlo FromTwoEvilsChooseSmaller(Zlo zlo1, Zlo zlo2){
    if(zlo1 < zlo2) return zlo1;
    else if(zlo1 > zlo2) return zlo2;
    else throw new Exception("Kill yourself by the wall"); }

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