Envoyer un fichier de plus de 8Ko dans un NetworkStream...

Question

Bonjour, j'ai r&#233;cup&#233;r&#233; sur le net (je ne sais malheureusement plus o&#249;)
un code pour envoyer des fichiers par r&#233;seau, seulement je suis
confront&#233; &#224; un petit probl&#232;me (mais gros pour moi), &#224; savoir la taille
des paquets TCP... Du coup quand j'envoie un fichier, quand il arrive
il ne fait plus que 8Ko... et &#233;videmment n'est plus valide...

Ci-joint le code, il faut juste une Form1 et 2 boutons bAttendre et
bEnvoyer, ainsi qu'un fichier &#224; envoyer ("C:\Mes
Documents\vb1\Test\video.mov" dans mon exemple). Il est configur&#233; pour
marcher en local.

Imports System.Net.Sockets
Imports System.Net
Imports System.Text
Imports System.IO


    
Const portNo As Integer = 500


    Dim localAdd As System.Net.IPAddress = _


        IPAddress.Parse("127.0.0.1")


    'On attend de 127.0.0.1



    Dim listener As New TcpListener(localAdd, portNo)



    Private Sub bAttendre_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bAttendre.Click


        Me.Cursor = Cursors.WaitCursor


        Attendre()


        Me.Cursor = Cursors.Default


    End Sub



    Private Sub bEnvoyer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bEnvoyer.Click


        Me.Cursor = Cursors.WaitCursor


        Envoyer()


        Me.Cursor = Cursors.Default


    End Sub



    Private Sub Attendre()



        listener.Start()


        Console.WriteLine("Listening...")


        Label1.Text = "En attente..."



        Dim tcpClient As TcpClient = listener.AcceptTcpClient()


        Dim NWStream As NetworkStream = tcpClient.GetStream


        Dim bytesToRead(tcpClient.ReceiveBufferSize) As Byte



        '---read incoming stream


        Dim numBytesRead As Integer = NWStream.Read(bytesToRead, 0, CInt(tcpClient.ReceiveBufferSize))



        '---write the bytes to file


        Const FILE_NAME = "C:\Mes Documents\vb1\Test
ewvideo.mov"


        Dim fs As System.IO.FileStream


        fs = New FileStream(FILE_NAME, FileMode.CreateNew, FileAccess.Write)


        fs.Write(bytesToRead, 0, numBytesRead)



        fs.Close()



        Label1.Text = "Fichier re&#231;u!"



        tcpClient.Close()


        listener.Stop()



    End Sub



    Private Sub Envoyer()


        Const portNo = 500


        Const FILE_NAME = "C:\Mes Documents\vb1\Test\video.mov"


        Label1.Text = "Envoi en cours..."


        Dim tcpClient As New System.Net.Sockets.TcpClient


        'On envoie &#224; 127.0.0.1


        tcpClient.Connect("127.0.0.1", portNo)



        Dim NWStream As NetworkStream = tcpClient.GetStream


        Dim bytesToSend(tcpClient.ReceiveBufferSize) As Byte



        Dim fs As FileStream


        fs = New FileStream(FILE_NAME, FileMode.Open, FileAccess.Read)



        Dim numBytesRead As Integer = fs.Read(bytesToSend, 0, bytesToSend.Length)


        fs.Close()



        '---send the text


        NWStream.Write(bytesToSend, 0, numBytesRead)



        Label1.Text = "Envoi effectu&#233;!"



        tcpClient.Close()


    End Sub




Bref, si quelqu'un pouvait m'expliquer comment s&#233;parer les paquets et
les joindre &#224; l'arriv&#233;e, je lui en serai &#233;ternellement reconnaissant...

Totoroyamada · Answer

Bon j'ai &#224; demi r&#233;solu mon probl&#232;me, &#224; savoir que je fixe moi-m&#234;me

tcpClient.ReceiveBufferSize

Alors pour un petit fichier (2Mo), &#231;a passe, par contre pour du gros non... j'ai donc toujours besoin de diviser tout &#231;a.

Je me suis inspir&#233; de la source "Splitteur de fichier" pour essayer de
s&#233;parer &#231;a en petit paquets que j'enverrai successivement, mais j'ai un
probl&#232;me au niveau de la r&#233;ception...

Donc je suis toujours en attente d'une main secourable!

teo770 · Answer

Des avancées avec ce problème ?

En faite, je pense qu'il y a une limite aux buffersize, non ?

Merci