Mandar archivo exe por socket

[grester43hck]

ok simplifique bastante el codigo y ahora si que lo envia peeeero como no.. no funciona... sige sin funcionar el exe que envio... es mas, prove a enviar el mismo exe pero a guardarlo en txt en vez de en exe y en vez de algo ilegible, eran todo espacios en blanco o.O ¿alguna idea de por que solo se envian o recojen espacios en blanco en vez de lo que se deve?

[FFernandez]

Creo que debes de declarar la varible en el form como Private ó en un modulo Bas como publica para que se pueda recoger!!



        ReDim Data(fLen) '    solo al principio, cuando lo lees.


         Private data() as byte

ó

         Public data() as byte


         De esta forma permanecerá la información disponible y podras guardarlo en otro sitio.


                    Espero haberte servido de ayuda.


                                       Un saludo

[BlackZeroX]

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:

Código (vb) [Seleccionar] Expandir



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

Código (vb) [Seleccionar] Expandir



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!¡.

[grester43hck]

Bueno pues al final si salió ya funciona a la perfección!! muchas gracias a todos. Si quereis posteo el codigo final, pero es muy parecido al de BlackZeroX.