Discussion :

[guatto]

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 !

[Invité]

Bonjour,

En effet il y a un petit problème dans ta fameuse "zone rouge" et je suis étonné que le compilateur ne t'ait pas mis un warning (ou alors il y en a bien eu un mais tu n'y as pas pris garde) : ta variable "length" n'est jamais affectée et du coup vaudra toujours 0... Et par conséquent il ne risque pas d'écrire grand chose en effet!

Il te manque juste de stocker dans ta variable "length" le résultat de "networkStream.Read(bytes, 0, bytes.Length)" qui est censé être un entier...

[guatto]

Salut Ph_Gr,

d'abord merci pour ta réponse rapide, j'ai essayé de faire ce que tu m'avais demandé mais je rencontre le même problème 0 Ko, j'espère ne pas me tromper mais voici ce que j'ai fait :

Code :

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

1
2
3
4
5
 
 
 While length = networkStream.Read(bytes, 0, bytes.Length)
                        stream.Write(bytes, 0, length)
                    End While

[Invité]

Salut Ph_Gr,

d'abord merci pour ta réponse rapide, j'ai essayé de faire ce que tu m'avais demandé mais je rencontre le même problème 0 Ko, j'espère ne pas me tromper mais voici ce que j'ai fait :

Code :

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

1
2
3
4
5
 
 
 While length = networkStream.Read(bytes, 0, bytes.Length)
                        stream.Write(bytes, 0, length)
                    End While

Attention : en VB.NET quand tu fais ce code, tu n'affectes toujours pas la variable length, tu testes juste si la valeur de length est égale à "networkStream.Read(bytes, 0, bytes.Length)", ce qui effectivement ne va rien changer!

Si tu étais en C# tu aurais pu écrire :

Code :

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

1
2
3
4
5
6
 
 
 while  ((length = networkStream.Read(bytes, 0, bytes.Length))>0)
{
   stream.Write(bytes, 0, length)
}

En VB.NET ça devrait donner quelque chose comme cela :

Code :

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

1
2
3
4
5
6
7
8
 
 
 Dim length = networkStream.Read(bytes, 0, bytes.Length)
 
 While length>0
    stream.Write(bytes, 0, length)
    length = networkStream.Read(bytes, 0, bytes.Length)
 End While

[guatto]

Merci beaucoup Ph_Gr , ça fonctionne avec perfection !