Hola a todos.

Estoy realizando pruebas con el winsock, pero tuve un problema.
Verán, lo que quiero hacer es, desde el servidor, tomar un screenshot de la pantalla completa, transferirla al cliente y mostrarla en un control picture o image.
Ya logré tomar el screenshot con:

Código:

Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

keybd_event 44, 2, 0&, 0&

Pero ya no supe cómo mandar la imagen al cliente y menos cómo armarla de nuevo.
Se me ocurrió guardarla en un archivo temporal, abrirla "for binary access" y mandarla, pero envío el tamaño del archivo para crear el array en el cliente y cuando lo hago me sale el error de "Out of memory".
Le moví más al código y terminé con que el tamaño del archivo que me manda el servidor es más grande de lo que es en realidad y, por lo tanto, en el cliente nunca se llega a las instrucciones para cerrar el archivo. Sí se crea, pero no se puede abrir (a pesar de ser del mismo tamaño que lo que se manda del servidor).

Ayúdenme, por favor. Estuve moviéndole al código todo el día y me frustré, jajaja.

Gracias de antemano.

DarkNeko.

Hola te paso el code

En un formulario para el "Cliente" (quien enviara la imagen)

un Picutre1
un Command1
un Winsock1
dos Textbox
un Timer1

Código:

Private Declare Function GetDC Lib "user32" (ByVal hWnd As Long) As Long
Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long
Dim Imagen() As Byte
Private Sub Command1_Click()
If Command1.Caption = "Conectar" Then
Winsock1.CONNECT Text1, CInt(Text2)
Timer1.Enabled = True
Command1.Caption = "Desconectar"
Else
Timer1.Enabled = False
Winsock1.Close
Me.Caption = "Desconectado"
Command1.Caption = "Conectar"
End If
End Sub

Private Sub Form_Load()
'solo para practicar en casa

Text1.Text = Winsock1.LocalIP
Text2.Text = 1000
Picture1.ScaleMode = 3
Picture1.AutoRedraw = True
Picture1.Width = Screen.Width
Picture1.Height = Screen.Height
Picture1.Visible = False
End Sub

Private Sub Timer1_Timer()
On Error Resume Next
BitBlt Picture1.hDC, 0, 0, Screen.Width, Screen.Height, GetDC(0), 0, 0, vbSrcCopy
Picture1.Refresh
SavePicture Picture1.Image, "c:\temporal.bmp"
Dim Tamaño As Long
Open "c:\temporal.bmp" For Binary Access Read As #1
Tamaño = LOF(1)
ReDim Imagen(Tamaño - 1)
Get #1, , Imagen
Close
Winsock1.SendData Imagen
Winsock1.SendData "Fin"
End Sub

Private Sub Winsock1_Close()
Me.Caption = "Desconectado"
End Sub

Private Sub Winsock1_Connect()
Me.Caption = "Conectado"
End Sub

para el "Servidor" (quien recive la imagen)
un Picture1
un Winsock1

Código:

Dim Ruta As String
Private Sub Form_Load()
On Error Resume Next
Ruta = "c:\temporal2.bmp"
Open Ruta For Binary As #1
Kill (Ruta)
Open "ruta" For Binary As #1
Winsock1.LocalPort = 1000
Winsock1.Listen
End Sub

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
Winsock1.Close
Winsock1.Accept requestID
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim Imagen As String
Winsock1.GetData Imagen, vbNullString
Put #1, , Imagen
If Right(Imagen, 3) = "Fin" Or Imagen = "Fin" Then
Close
Picture1 = LoadPicture(Ruta)
Open Ruta For Binary As #1
End If
End Sub

bien digamos que esta bien sensillo, lo que tuvieras que agregarle es alguna dll para comprimir las imagnes a jpg entonses el envio seria mas rapido, busca en el google por esta dll "ImageUtils.dll" y su utilizacion es sencilla

Saludos

Wow, muchas gracias.
Mi aplicación era al revés, o sea, el servidor sería quien tomara el screenshot y lo enviara al cliente.
Revisé tu código y tomé varias cosas, pero me gustaría que me aclararas dos puntos:

* Primero, veo que se manda todo el archivo y luego una cadena que indica el fin del mismo. Según leo, se llegan a mandar concatenados los datos de la imagen y la instrucción "fin". También noto que primero se escriben todos los datos en el archivo y luego se busca el "fin". Ese pedazo de código corre a la perfección, pero quisiera saber si no afecta el tener esos tres caracteres al final y por qué.

* Luego, las funciones API que utilizas son, supongo, para tomar el screenshot. Traté de usarlas, pero no me funcionan; el jpg final es un cuadrito gris.

Me quedé con la función que manda la tecla Impr Pant y guarda lo del portapapeles en el bmp hasta que encuentre una mejor forma de tomar el screenshot.

Ya logré hacer lo que quería. Me gustó la forma en que lo hice y quisiera compartir con el foro mi "método" (en forma de diálogo o algo similar) :

Código:

*se supone que ya hay una conexión establecida entre Cliente y Servidor*
C> Manda un string que inicia el proceso en el servidor.
S> Reconoce el string, toma el screenshot, lo almacena en un tmp.jpg
S> Manda un "OK". Si hubo un problema, manda un "ERR".
C> Si recibe "OK", manda un string que pide el tamaño del archivo.
S> Consigue el tamaño y lo manda.
C> Almacena el tamaño del archivo y manda la instrucción que pide el archivo.
S> Manda el archivo.
S> Manda un string que indica el fin del archivo ("EOF").
C> Recibe el archivo y busca el "EOF". Si lo encuentra, cierra el archivo y manda un mensaje de "SUCCESS".
S> Recibe el string de éxito y elimina el archivo temporal.

¡Y listo! jajaja

Acepto críticas de mi método y ojala puedan ayudarme con una mejor forma de tomar el screenshot (o que Leandro me pueda explicar un poco más su código; mucho se lo agradeceré).

Gracias nuevamente.

DarkNeko

hola te explico medio rapido
el api GetDC(0) toma el dc del escritorio osea screenshot luego con el api BitBlt la dibujo sobre el picture luego guardo la imagen del picture
despues abro el archivo lo envio de forma binaria y luego envio un frace cualquiera por ejemplo "fin"
entonses cuando el servidor encuentra la palabra "fin" elimina estos 3 caractere y cierra el archivo y luego loadpicture

a perdon lo que te pase tiene un defecto yo lo estaba haciendo ultimamente con la funcion Replace que es mejor ,ya que problemente esto en una red pueda dar error ya que se pueden juntar los 3 ultimos caracteres con el principo de la siguiente imagen entonses nunca encontraria la palabra fin
entones quedaria algo asi

if len(remplaza(imagen)) <> len(imagen) then
closed

bueno algo asi no presismamente eso pero si no te sale lo vemos

saludos

Bien, ya veo. Seguiré haciendo pruebas con los datos que me diste. Te lo agradesco mucho ^^.

Aunque lo suyo seria enviarla como DIB (Bitmap independiente de dispositivo) y ahorrarte el grabarla en el disco (2 veces) que es lo mas lento de todo el proceso. Incluso podrias convertirla a un dib de 256 colores optimizando la paleta y asi enviar muchos menos datos (en la web de vbaccelerator salia como hacer un octree de optimizacion de paleta).


Un saludo.