远程屏幕监控程序设计和实现(Delphi).ppt

远程屏幕监控程序设计和实现 功能简介：在主控机上实时监控客户机的 屏幕显示情况。 客户机的工作流程 1、打开客户机程序时，进行初始化： 设定本机TcpServer控件的IP地址和监听的端口（为接收数据时做好准备）； TcpClient控件的IP地址和监听的端口（远程主机的，发送数据时使用）。 打开客户机端的监听，以便能随时接收主控机发过来的命令（数据包）。 这个工作在主窗体Form的Onshow（显示）事件处理过程中实现。 2、监听主控机发过来的命令 接收到主控机发来的“开始”命令，启动定时器，按设定的时间间隔抓屏幕图像，生成数据包并向主控机发送 接收到主控机发来的“结束”命令，关闭定时器，停止发送图像数据包 在客户机的TcpServer1控件的OnAccept事件处理过程中编写代码处理： 3、定时器定时发送图像数据包 在Timer控件的OnTimer事件处理过程中编写代码处理： 4、发送图像数据包的过程 创建位图对象，并分配内存空间。 屏幕抓图，并把抓图转换成BMP图像 BMP图像转换成JPEG图像，并压缩 JPEG图像读入内存流中 TcpClient控件发送内存流的大小（图片的大小） TcpClient控件发送内存流的数据（图片数据，系统可能自动分n个数据包发送出去） 释放对象占用的内存空间 进行下一次处理 主控机的工作流程 1、打开主控机程序时，进行初始化： 设定主控机的TcpServer控件的IP地址和接收数据时的监听端口；发送数据时TcpClient控件的IP地址和端口（客户机）。 这个工作在主窗体Form的OnShow（显示）事件处理过程中实现。 2、监听客户机发过来图像数据 在主控机的TcpServer1控件的OnAccept事件处理过程中编 写代码处理： 接收要传送过来的图像数据的大小 接收要传送过来的图像数据（可能有n个数据包，需要一个个重新组装成原来的样子） 把接收到的图像数据显示到出来 处理完毕，等待下一次数据的接收和处理 3、开始和停止监控客户机屏幕 在菜单”监控”的onclick中向客户机发送“开始”命令 3、开始和停止监控客户机屏幕 在菜单”停止”的onclick中向客户机发送“结束”命令 4、设置主控机和监控机的IP地址和端口 在菜单”设置主控机”的onclick的事件中编写 在菜单”设置监控机”的onclick的事件中编写 5、退出主控机 在主窗口的onclose的事件中编写 * 客户机程序设计界面 Timer TcpServer TcpClient 主控机程序设计界面 MainMenu TcpServer TcpClient Image 当接收到客户机的数据包时自动触发该事件 OnAccept 函数；接收字符串 Receiveln 函数：接收数据包并读入缓冲区内 ReceiveBuf 设定本机接收数据的端口(服务器端口) LocalPort 设定本机IP地址(服务器地址) LocalHost 阻塞模式 bmBlocking:阻塞模式，即以同步的方式进行数据传输 。 bmNonBlocking:非阻塞模式，即以异步的方式进行数据传输 。 bmThreadBlocking:自动为每个连接分配线程，每个线程都采用bmBlocking同步模式。 BlockMode 作用：客户机建立连接和接收客户机发来的数据包 激活监听服务 （true ,false） Active TcpServer1 功能描述 属性或方法 控件名 要与TcpClient的相一致! 主要控件的介绍 函数：发送字符串函数 sendln 函数：建立与服务器的连接 Open 用来判断是否已与服务器连接上 Connected 函数：发送流（如文件、图像、视频等） SendStream 要发送到（远程）主控机接收数据的端口 RemotePort 要发送到（远程）主控机IP地址 RemoteHost 阻塞模式(bmBlocking) BlockMode 作用：与主控机建立连接和向主控发送数据包 激活监听服务 （true ,false） Active TcpClient1 功能描述 属性或方法 控件名 要与TcpServer的相一致! 保存显示的图片到流中 SaveToStream 从磁盘中装载图片文件到流中 LoadFromStream 保存显示的图片到磁盘中（保存文件） SaveToFile 从磁盘中装载图片文件（打开文件） LoadFromFile 设置图片是否伸展充满整个图片控件的整个区域 Stretch 用于指定控件中的要显示的图片 Bitmap：显示位图(*.bmp) Graphic：显示JPEG图片(*.jpg) Icon：显示图标(*.ico) Pictu