vahidmasoudi1391
سه شنبه 18 تیر 1398, 08:10 صبح
با سلام و احترام خدمت دوستان
من برنامه ساختم جهت دریافت و ارسال پیام ، اشکال کار ایجاست که موقع دریافت پیام بصورت ؟؟؟؟ نمایش داده می شود.
کد بشرح ذیل است.
پیشاپیش از پاسخگویی شما سپاس گذارم.
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
من برنامه ساختم جهت دریافت و ارسال پیام ، اشکال کار ایجاست که موقع دریافت پیام بصورت ؟؟؟؟ نمایش داده می شود.
کد بشرح ذیل است.
پیشاپیش از پاسخگویی شما سپاس گذارم.
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