Ecrire dans un Byte Array

Version imprimable

Bonjour,

J'ai un problème avec la manipulation des bytes, je récupère un message dans d'un tcpclient.getstream.read, voila ce que j'ai :
http://img16.imageshack.us/i/listview.png/

Voila ce avec quoi je récupère le message :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
   Sub EcrireFlux(ByVal p_message As String)
        Dim sendBytes As [Byte]() = Encoding.UTF8.GetBytes(p_message)
        c_flux.Write(sendBytes, 0, sendBytes.Length)
    End Sub
 
 
 
Function LireFlux(ByVal p_tcpclient As TcpClient, ByVal p_flux As NetworkStream) As String
        Dim l_message As StringBuilder = New StringBuilder()
 
        If p_flux.CanRead Then
            If p_flux.DataAvailable Then
                Dim bytes(p_tcpclient.ReceiveBufferSize) As Byte
                p_flux.Read(bytes, 0, CInt(p_tcpclient.ReceiveBufferSize))
                Dim returndata As String = Encoding.ASCII.GetString(bytes)
                Return returndata
            End If
            Return "Données non disponible"
        Else
            Return "Flux non disponible"
        End If
 
    End Function

Comment je peux régler ce problème afin d'avoir uniquement le mot souhaité et non les caractères qui suivent?

Merci :)

11/03/2011, 14h39
Geo2A

Bonjour,

Une méthode brute serait de tester le code ascii de chaque couple d'octets.

Une autre (mais là je suis pas sur) serait d'utiliser un binaryreader pour lire le flux sous-jacent.
11/03/2011, 14h42
tomlev

Citation:

Envoyé par vincc

J'ai un problème avec la manipulation des bytes, je récupère un message dans d'un tcpclient.getstream.read, voila ce que j'ai :
http://img16.imageshack.us/i/listview.png/

Evite de poster des liens vers des sites d'hébergement d'image, y a plein de gens qui peuvent pas les voir... moi par exemple, imageshack est bloqué par le firewall de mon boulot. Mets plutôt l'image en pièce jointe de ton message

Ok pour imageshack, mais finalement je viens de résoudre le problème..
Désormais je récupère uniquement ce que je lis dans le flux, assez bête finalement :) (enfin un peu comme tous les posts que je poste je l'avoue :s ^^)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Function LireFlux() As String
        If c_flux.CanRead Then
            If c_flux.DataAvailable Then
                numberOfBytesRead = c_flux.Read(bytes, 0, bytes.Length)
                Dim returndata As String = Encoding.ASCII.GetString(bytes, 0, numberOfBytesRead)
                Return returndata
            End If
            Return "Données non disponible"
        Else
            Return "Flux non disponible"
        End If
    End Function
 
    Sub EcrireFlux(ByVal p_message As String)
        Dim sendBytes As [Byte]() = Encoding.UTF8.GetBytes(p_message)
        c_flux.Write(sendBytes, 0, sendBytes.Length)
    End Sub

Merci