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