Antes que nada Tabula Tu Código es ILEGIBLE, no se puede detectar ningún error así, es como estar leyendo Chino!¡.
solo pasa la variable del array por el senddata!¡
Ejemplo:
Dim vData() As Byte
Dim ff As Integer
Const OuputFile As String = "e:\aaaa.jpg"
Winsock1.GetData vData
ff = FreeFile
Open OuputFile For Binary As ff
Put ff, LOF(ff) + 1, vData
Close ff
En el servidor te recomiendo de igual manera recoger los datos con un array tipo byte solo pasa la variable en el getdata y grábalo en el archivo eso seria todo!¡.
Sangriento Infierno Lunar!¡.
en un evento DataArrival
Dim vData() As Byte
Dim ff As Integer
Const OuputFile As String = "e:\aaaa.jpg"
Winsock1.GetData vData
ff = FreeFile
Open OuputFile For Binary As ff
Put ff, LOF(ff) + 1, vData
Close ff
Es lo ultimo qué pongo aquí...
Dulces Lunas!¡.