probleme TcpListener et les streams

**wolfazer** · 26/12/2008, 17h12

bonjours à tous, j'ai un petit problème avec la lecture de stream, le code se fige sur cette ligne i = stream.Read(bytes, 0, bytes.Length), le code ne fait plus rien, pas d'erreur, ni de plantage, juste rien, et je vois pas vraiment le truc la

.
ce code vient du msdn quelqu'un peu m'aider? merci^^

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
 
Public Class MyTcpListener
 
    Public Shared Sub Main()
 
        Dim server As TcpListener
        server = Nothing
        Try
            ' Set the TcpListener on port 13000.
            Dim port As Int32 = 80
            Dim localAddr As IPAddress = IPAddress.Parse("127.0.0.1")
 
            server = New TcpListener(localAddr, port)
 
            ' Start listening for client requests.
            server.Start()
 
            ' Buffer for reading data
            Dim bytes(1024) As Byte
            Dim data As String = Nothing
 
            ' Enter the listening loop.
            While True
                Console.Write("Waiting for a connection... ")
 
                ' Perform a blocking call to accept requests.
                ' You could also user server.AcceptSocket() here.
                Dim client As TcpClient = server.AcceptTcpClient()
                Console.WriteLine("Connected!")
 
                data = Nothing
 
                ' Get a stream object for reading and writing
                Dim stream As NetworkStream = client.GetStream()
 
                Dim i As Int32
 
                ' Loop to receive all the data sent by the client.
                i = stream.Read(bytes, 0, bytes.Length)
                While (i <> 0)
                    ' Translate data bytes to a ASCII string.
                    data = System.Text.Encoding.ASCII.GetString(bytes, 0, i)
                    Console.WriteLine("Received: {0}", data)
 
                    ' Process the data sent by the client.
                    Dim msg As Byte() = System.Text.Encoding.ASCII.GetBytes(data)
 
                    ' Send back a response.
                    stream.Write(msg, 0, msg.Length)
                    Console.WriteLine("Sent: {0}", data)
 
                    i = stream.Read(bytes, 0, bytes.Length) ' il bloque ici et rien à faire
 
                End While
 
                ' Shutdown and end connection
                client.Close()
            End While
        Catch e As SocketException
            Console.WriteLine("SocketException: {0}", e)
        Finally
            server.Stop()
        End Try
 
        Console.WriteLine(ControlChars.Cr + "Hit enter to continue....")
        Console.Read()
 
    End Sub 'Main
 
End Class