用Delphi实现远程屏幕抓取.pdfVIP

2007年第三期 ·13· 摘 要：本文介绍了用Delphi6．0开发工具在windows操作系统中实现远程屏幕抓取的方法 关键词：TCP／IP UDP 端口 在网络管理中，有时需要通过监视远程计算 在受控机上，另一个为VServer．exe，装在主控机 机屏幕来了解网上微机的使用情况。虽然，市面上 上。VServer．exe指定要监视的受控机的IP地址 有很多软件可以实现该功能，有些甚至可以进行 和将要在受控机屏幕上抓取区域的大小和位置， 远程控制，但在使用上缺乏灵活性，如无法指定远 并发出屏幕抓取指令给VClient。exe，VClient。exe 程计算机屏幕区域的大小和位置，进而无法在一 得到指令后，在受控机屏幕上选取指定区域，生成 屏上同时监视多个屏幕。其实，可以用Delphi自 数据流，将其发回主控机，并在主控机上显示出抓 行编制一个灵活的远程屏幕抓取工具，简述如下。 取区域的BMP图象。由以上过程可以看出，该方 一 、 软硬件要求 法的关键有两点：一是如何在受控机上进行屏幕 Windows95／98对等网，用来监视的计算机 抓取；二是如何通过TCP／IP协议在两台计算机 (以下简称主控机)和被监视的计算机(以下简称 中传输数据。UDP(User DatagramProtocol，意为 受控机)都必须装有TCP／IP协议，并正确配置。 用户报文协议)是Internet上广泛采用的通信协 如没有网络，也可以在一台计算机上进行调试。 议之一。与TCP协议不同，它是一种非连接的传 二、实现方法 输协议，没有确认机制，可靠性不如TCP，但它的 编制两个应用程序，一个为VClient．exe，装 效率却比TCP高，用于远程屏幕监视还是比较适 2007年第三期 合的。同时，UDP控件不区分服务器端和客户端， 入TNMUDP控件，把TNMUDP控制的Name 只区分发送端和接收端，编程上较为简单，故选用 属性设为“CUDP”；LocalPort属性设为“1111”，让 UDP协议，使用Delphi 6．0提供的TNMUDP控 控件CUDP监视受控机的1111端口，当有数据发 件。 送到该口时，触发控件CUDP的OnDataReceived 三、创建演示程序 事件；RemotePort属性设为“2222”，当控件 第一步，编制VClient．exe文件。新建Delphi CUDP发送数据时，将数据发到主控机的2222 工程，将默认窗体的Name属性设为“Client”。加 口 在implementation后面加入变量定义const BufSize=2048； (发送每一笔数据的缓冲区大小) var BmpStream．TMemoryStream；LeftSize：Longint； {发送每一笔数据后剩余的字节数) 为ClientOnCreate事件添加代码： procedureTClient．FormCreate(Sender：TObject)； beginBmpStream：=TMemoryStream．Create； end； 为Client的OnDestroy事件添加代码： procedure TClient．FormDestroy(Sender：TO