J'ai pas tres bien compris....
Voila deja ce que j'ai fait :
Code :
 - Imports System
 - Imports System.IO
 - Public Class EnvoyerFichier
 -     Private Const FILE_NAME As String = "C:\marie.jpg"
 -     Public Function test()
 -         Dim fs = New FileStream(FILE_NAME, FileMode.Open, FileAccess.Read)
 -         Dim r As New BinaryReader(fs)
 -         Dim bufferRead() As Byte
 -         bufferRead = r.ReadBytes(CType(fs.Length, Integer))
 -         Return bufferRead
 -         fs.close()
 -         r.Close()
 -     End Function
 
  | 
Ca c'est ma fonction pour lire le fichier à envoyer...
 
Ensuite du coté client justement je sais pas comment le decoder
 
Code :
 - Public Sub tested(ByVal bufferFichier As Byte())
 -         Dim fs As New FileStream("C:\florent.jpg", FileMode.CreateNew, FileAccess.Write)
 -         Dim w As New BinaryWriter(fs)
 -         w.Write(bufferFichier)
 -         w.Close()
 -         fs.Close()
 -     End Sub
 
  | 
Voila ce que j'ai fait mais ca marche pas ...
J'appelle la procedure avec :  
 
Code :
 - Dim bytesRead As Integer = sckclient.EndReceive(asyncResult)
 -                Dim MesReceive As String = Encoding.UTF8.GetString(bufferRead)
 -                Dim BufferFichier() As Byte = System.Text.Encoding.Default.GetBytes(MesReceive)
 -                Call envoie.tested(BufferFichier)
 
  | 
 
Avec ca, mon fichier est créer mais l'image n'apparait pas. De plus la taille de l'image a legerement diminuer.
 
Merci beaucoup
 
Message édité par fdiedler le 03-04-2005 à 22:27:03