Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionDim RecevoirBytes(client.ReceiveBufferSize) As Byte If Not RecevoirBytes(client.ReceiveBufferSize).ToString = "0" Then Try StreamR.Read(RecevoirBytes, 0, client.ReceiveBufferSize) CHATrich.Text = CHATrich.Text + vbNewLine + (Encoding.UTF8.GetString(RecevoirBytes)) Catch exep As Exception MsgBox(exep.Message) MsgBox("(Encoding.UTF8.GetString(RecevoirBytes)) = " + (Encoding.UTF8.GetString(RecevoirBytes))) Timer1.Stop() End Try End If
Try StreamW = client.GetStream Dim SendBytes() As Byte = Encoding.UTF8.GetBytes("Serveur : " + MessageTxt.Text) StreamW.Write(SendBytes, 0, SendBytes.Length) StreamW.Flush() Catch exep As Exception MsgBox(exep.Message) End Try
If StreamR.CanRead then:
"La référence d'un objet n'est pas définie à une instance d'un objet"
If StreamR.CanRead Then Dim myReadBuffer(1024) As Byte Dim myCompleteMessage As StringBuilder = New StringBuilder() Dim numberOfBytesRead As Integer = 0 Do numberOfBytesRead = StreamR.Read(myReadBuffer, 0, myReadBuffer.Length) myCompleteMessage.AppendFormat("{0}", Encoding.ASCII.GetString(myReadBuffer, 0, numberOfBytesRead)) Loop While StreamR.DataAvailable MsgBox(myCompleteMessage.ToString()) End If
If client.Available Then Dim myReadBuffer(1024) As Byte Dim myCompleteMessage As StringBuilder = New StringBuilder() Dim numberOfBytesRead As Integer = 0 myCompleteMessage.AppendFormat(Encoding.UTF8.GetString(myReadBuffer, 0, numberOfBytesRead)) MsgBox(myCompleteMessage.ToString()) End If
Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick If client.Available Then Dim myReadBuffer(1024) As Byte Dim myCompleteMessage As StringBuilder = New StringBuilder() myCompleteMessage.AppendFormat(Encoding.ASCII.GetString(myReadBuffer, 0, client.Available.ToString)) MsgBox(myCompleteMessage.ToString) End If End Sub
Dim Message As StringBuilder = New StringBuilder() Dim RecevoirBytes(client.ReceiveBufferSize) As Byte If CBool(client.Available) Then Try client.GetStream() Message.Append(Encoding.UTF8.GetString(RecevoirBytes, 0, CInt(client.ReceiveBufferSize))) CHATrich.Text = CHATrich.Text + Environment.NewLine + Message.ToString Catch exep As Exception MessageBox.Show(exep.Message) End Try End If
Try Stream = client.GetStream Dim SendBytes() As Byte = Encoding.UTF8.GetBytes("Serveur : " + MessageTxt.Text) Stream.Write(SendBytes, 0, SendBytes.Length) Catch exep As Exception MsgBox(exep.Message) End Try
si je récupère SendByte en string, ils me mettent : System.Byte[]De la même façon que tu as transformé ton string en tableau de bytes, tu dois récupérer ton tableau de bytes de l'autre côté et utiliser GetString pour le transformer en string.
If Not (Encoding.UTF8.GetString(RecevoirBytes)) = Nothing Then