client screen cature to server app

[pm11]

I have seen a few postings for a similar questions, but none really answered my questions.

I am attempting to create a client/server application that passes a screen shot from a client computer to a server computer. I am using a module and form code that I have tested on a single computer and it works great. Now I have to pass the image
somehow from the client to the server. I am using MSWinsock between the computers (but am open to any suggestions as to other ways to pass the image). Attached is the Module I use for the screen capture.


This is the code in the form:
Set imgList1.Picture = CaptureWindow(0, 0, 0, Screen.Width / Screen.TwipsPerPixelX, Screen.Height / Screen.TwipsPerPixelY)

[/\/\isanThr0p]

uhmm what are you asking for?

[pm11]

I am attempting to pass a screen capture from a client machine to a server machine via Winsock. I would rather not save the image to the clipboard and then transfer the image, this take up too many resources.

If you have any suggestions on how to do this I would greatly appreciate the help.

[Sastraxi]

What you're going to want to do is save this picture as a bitmap using the SavePicture technique. Then you can open it in Binary mode, read the bytes, and send them through Winsock. However these can be quite large so JPEG compression is advisable. Then, at the other side, save the incoming bytes to a file, and then LoadPicture it into another Picturebox, or whatever you'd like to do.

[/\/\isanThr0p]

go for sastraxis way! there is some intel dll to compress jpegs, which will be really useful for you. If you can't use any quality get at least some information on how to save with RLE compression.
And remember data does not arrive in one big piece over slower connections unlike if you have your server and client running on one machine.

[Hack]

Try this

Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, _ 
ByVal dwFlags As Long, ByVal dwExtraInfo As Long) 
 
Private Const VK_SNAPSHOT = &H2C 
 
Private Function SaveScreen(ByVal theFile As String) As Boolean 
On Error Resume Next 
 
'To get the Entire Screen 
Call keybd_event(vbKeySnapshot, 1, 0, 0) 
 
'To get the Active Window 
'Call keybd_event(vbKeySnapshot, 0, 0, 0) 
 
SavePicture Clipboard.GetData(vbCFBitmap), theFile 
 
SaveScreen = True 
Exit Function 
End Function 
'Where M: is a drive on a network server 
Call SaveScreen("M:\MyFolder\DesktopShots\shot1.bmp")

[Sastraxi]

Yeah, thats the code
You can find more about Intel''s JPEG compression on http://www.vbaccelerator.com/.

[/\/\isanThr0p]

this code requires a network drive to be set up though.

[ysa1441]

http://vbaccelerator.com/codelib/gfx/vbjpeg.htm - the correct address to save jpg in vb... just to simplify things...