et bah avec moi ca marchait pas ...
Regarde j'ai fait ca :
Dim fs = New FileStream(FILE_NAME, FileMode.Open, FileAccess.Read)
Dim r As New BinaryReader(fs)
r.Read()
Dim bufferRead() As Byte
bufferRead = r.ReadBytes(CType(fs.Length, Integer))
Maintenant bufferRead combien les données de limage sous forme de bytes mais comment l'envoyer dans la socket??? car l'argument pour envoyer est un truc en STRING :
Voici ma fonction Socket.send :
Public Sub Send(ByVal Data As [String])
buffer = Encoding.UTF8.GetBytes(Data)
sckclient.BeginSend(buffer, 0, buffer.Length, SocketFlags.None, AddressOf SendCallback, sckserver)
End Sub
Merci