در مورد چت آنلاین (فوری)

[vahidmasoudi1391]

با سلام و احترام خدمت دوستان
من برنامه ساختم جهت دریافت و ارسال پیام ، اشکال کار ایجاست که موقع دریافت پیام بصورت ؟؟؟؟ نمایش داده می شود.
کد بشرح ذیل است.
پیشاپیش از پاسخگویی شما سپاس گذارم.

Private Sub MessageCallBack(ByVal aResult As IAsyncResult)
Try


Dim receivedData As Byte() = New Byte(1500) {}
receivedData = CType(aResult.AsyncState, Byte())
Dim aEncoding As New ASCIIEncoding()
Dim receivedMassage As String = aEncoding.GetString(receivedData)
ListMessage.Items.Add("Friend :" & receivedMassage)
buffer = New Byte(1500) {}
sck.BeginReceiveFrom(buffer, 0, buffer.Length, SocketFlags.None, epRemot, New AsyncCallback(AddressOf MessageCallBack), buffer)
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub

[ROSTAM2]

سلام؛ شایدمشکل از فونته؟

[vahidmasoudi1391]

سلام دوست عزیز
فونت Tahoma هست.
تشکر از پاسخگویی تان

[vahidmasoudi1391]

سلام دوستان کسی نیست کمکم کنه
خیلی گیرم

[vahidmasoudi1391]

[hamid_hr]

Dim aEncoding As New ASCIIEncoding()

به جاش از unicodeencoding استفاده کنید شاید درست شد

[jamal_ch]

سلام
Encoding رو بجای asci از utf8 استفاده کنید

[vahidmasoudi1391]

به نام خدا
نمونه چت آنلاین به پیوست تقدیم می گردد.
انشاء الله مفید فایده باشد.
برای تست قسمت پوشه debug دو دفعه بر روی exe باز شود و قسمت پورت را مختلف انتخاب شود.
موفق باشید