怎么样截屏然后发送到另外一台机上显示出来？？？

Question

怎么样截屏然后发送到另外一台机上显示出来？？？
                       谢谢

Answer 1

可以用Windows API:Bitblt()注意，主要是把SourceDC 定为0,DestDC 定为一个Form.hDc或Picture.hDc然后发送我就没有什么高效的方法了

Answer 2

给我email我发给你，记得给分。

Answer 3

老兄拜托啦！！！
[email protected]
一定发啊！！！！！！

Answer 4

看看WINSOCK，用UDP协议做。还是用流发比较好……可以去搜索看看，记的DELPHI有很多这样的源代码

Answer 5

你说的是另一台机子呀，当然最好用WINSOCK了

Answer 6

这是最简单的截屏：
Private Sub Command1_Click()
    Dim hDc As Long
    Form1.Hide
    DoEvents 
    PicCopy.Width = Screen.Width
    PicCopy.Height = Screen.Height
    PicCopy.AutoRedraw = True
    hDc = GetDC(0)   '取得屏幕DC
    '将屏幕DC的图象转移到名称为PicCopy 的picturebox中
    BitBlt PicCopy.hDc, 0, 0, Screen.Width \ Screen.TwipsPerPixelX, Screen.Width \ Screen.TwipsPerPixelY, GetWindowDC(0), 0, 0, SRCCOPY
    SavePicture PicCopy.Image, "e:\abc.bmp"  '保存图象到一个名为abc的bmp文件中
    ReleaseDC 0, hDc        '释放屏幕DC
    Me.Show
End Sub然后你用winsock把这个bmp文件发给对方就行了。不过你得先学会怎么使用winsock

Answer 7

最近我研究了一下发送的方法：
1、先用SavePicture保存图片。然后用一个字符数组+Winsock1.SendData来实现。
2、用GetBitmapBits这个API函数。然后用一个字符数组+Winsock1.SendData来实现。

Answer 8

该贴无法整理为FAQ。已经删除对应FAQ。