Bonjour voici mon code :
[code]
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))
Call socket.EnvoyerFichier(bufferRead)
End Function[/code]
Donc c´est ma fonction pour ouvrir le fichier puis le lire puis le mettre en bytes. Ensuite je l´envoie dans la socket avec :
[code] Public Sub EnvoyerFichier(ByVal msg As Byte())
sckclient.BeginSend(msg, 0, msg.Length, SocketFlags.None, AddressOf SendCallback, sckserver)
end sub
[/code]
Mais je comprend pas ca marche pas j´ai une erreur qui est du a sckserver qui vaut " nothing" et je comprend aps
Merci
