Bonjour tout le monde,

c'est mon 1er message sur le forum et j'espère être au bon endroit !

Je développe une petite application qui consiste à envoyer des fichiers depuis le client et les recevoir du coté serveur, mais je me retrouve avec un problème, les fichiers se transmettent et se créent mais restent vides, j'ai pensé alors que le problème pouvait venir de mon code, le voici :

Envoi :

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
 
 
Private Shared Sub SendFile()
        Using tcpClient As New TcpClient("127.0.0.1", 80)
            Using networkStream As NetworkStream = tcpClient.GetStream()
 
                Dim dataToSend As Byte() = File.ReadAllBytes("D:\1.PNG")
 
                networkStream.Write(dataToSend, 0, dataToSend.Length)
 
                networkStream.Flush()
 
            End Using
 
        End Using
 
    End Sub
Réception :

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
 
 
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
        Dim thread As New Thread(AddressOf Listen)
        thread.Start()
 
        Console.WriteLine("Listening...")
        Console.ReadLine()
 
    End Sub
 
    Private Shared Sub Listen()
        Dim localAddress As IPAddress = IPAddress.Any
        Dim port As Integer = 80
        Dim tcpListener As New TcpListener(localAddress, port)
        tcpListener.Start()
 
        Using tcpClient As TcpClient = tcpListener.AcceptTcpClient()
            Using networkStream As NetworkStream = tcpClient.GetStream()
                Using stream As Stream = New FileStream("D:\la copie.png", FileMode.Create, FileAccess.ReadWrite)
                    ' Buffer for reading data
                    Dim bytes As [Byte]() = New [Byte](1023) {}
 
                    Dim length As Integer
 
                    While networkStream.Read(bytes, 0, bytes.Length)
                        stream.Write(bytes, 0, length)
                    End While
                End Using
            End Using
        End Using
        tcpListener.[Stop]()
 
    End Sub
Merci de bien vouloir m'aider et à bientôt !