チャットで日本語を送信するには？ (ID:110329)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

現在VB.NETでチャットを作っています。
あるサンプルを参考にしているのですが、それだと日本語が文字化けしてしまいます。
エンコードを行うと、日本語は送れるのですが今度は正常に動作してくれなくなって・・・。

ちなみに送信処理
    Private Sub Send(ByVal t As String)
        On Error Resume Next
        Dim w As New IO.StreamWriter(myclient.GetStream, UnicodeEncoding.GetEncoding(932))
        w.Write(t & vbCrLf)
        w.Flush()
    End Sub

受信したByte型のデータを文字に変換する処理
    Private Sub BuildString(ByVal Bytes() As Byte, ByVal offset As Integer, ByVal count As Integer)
        Dim intIndex As Integer
        Dim chars() As Char = UnicodeEncoding.GetEncoding(932).GetChars(Bytes)

For intIndex = offset To offset + count - 1
            If Bytes(intIndex) = 10 Then
                mytext.Append(chars(intIndex))
                mytext.Append(vbCrLf)

Dim params() As Object = {mytext.ToString}
                Me.Invoke(New DisplayInvoker(AddressOf Me.DisplayText), params)

mytext = New StringBuilder
            Else
                mytext.Append(chars(intIndex))
            End If
        Next
    End Sub
で処理しています。

これだと受信した文字を表示したときに改行してくれません。
エンコードが間違っているのでしょうか？
それとも何か他のところが違うのでしょうか？

←解決時は質問者本人がここをチェックしてください。

戻る