deyvyd
17 de Marzo del 2004

El codigo es el siguiente, que al ejecutar el envio del picturebox me dice que "la variable de tipo OBJECT o la variable de bloque WITH no estan establecidas". Solo quiero enviar una imagen i recibirla en mi servidor...

Este es el codigo, Gracias:
Private Sub Capturar_Click()
Captura1.Area = Pantalla ' Captura toda la pantalla
'Captura1.Area = Ventana ' Captura la ventana activa
Captura1.Captura
imagen.Picture = Captura1.imagen
SavePicture imagen.Picture, "nombre.bmp" ' Guarda la imagen en el archivo
End Sub

Private Sub Form_Load()
Winsock1.Connect
Capturar_Click
End Sub

Private Sub Timer1_Timer()

Dim a As Object
a = imagen.Picture
Winsock1.SendData a
Timer1.Enabled = False

End Sub

jhon
17 de Marzo del 2004

creo que en la línea :
imagen.Picture = Captura1.imagen

debes ponerla así:
SET imagen.Picture = Captura1.imagen

No estoy muy seguro, pero nada pierdes

Saludos
Jhon.