描述: "Mirro For Delphi7" 是一个速度极快的抓取屏幕数据的单元.它的速度与 "Remote Administrator"(www.radmin.com)不相上下.可以运行于所有基于Windows NT核心的操作系统上(Windows NT/Windows 2000/Windows XP/Windows 2003).============================================================================函数:1:function InstallMirroDriver: Boolean;功能:安装Mirro驱动到你的电脑.注意:每次使用前应先调用该函数.参数:无返回:成功返回True,失败返回False.2:function UninstallMirroDriver: Boolean;功能:卸载Mirro驱动.参数:无返回:成功返回True,失败返回False.3:function MirrorStart(dwSetColor: DWORD; pnWidth, pnHeight: Pinteger;bCapMouse:Bool): DWORD;功能:开始Mirro参数:dwSetColor---设置返回位图的颜色值 pnWidth,pnHeight---返回分辨率 bCapMouse---是否捕获鼠标返回:成功返回0.否则返回错误代码4:function MirrorGetChangeInfo(ThePRect: PRect; pBuf: PByte): DWORD;功能:获得变化信息参数:ThePRect--变化矩形,已经是32位对齐,并且是可靠的。 pBuf---位图缓冲,调用者分配,需保证缓冲长度>=屏幕宽度*屏幕高度*颜色位数/8返回:变化类型5:function MirrorGetFullScreen(ThePRect: PRect; pBuf: PByte): DWORD;功能:得到全屏位图,参数同MirrorGetChangeInfo6:function MirrorStop: DWORD;功能:停止Mirro参数:无返回:成功返回0.否则返回错误代码7:function MirrorVersion:string;功能:Mirro版本信息参数:无返回:返回信息============================================================================例子 代码附带了一个本地回显的例子和一个互联网传输的简陋例子.注意:两个例子的图像都只是简单的Draw出来,并没有处理重画消息,所以当有其它窗口遮挡显示窗口时,需要重绘图像.其中互联网传输的例子为了方便只是简单的使用了Delphi本身的Jpeg单元进行压缩,请使用者自行更换压缩算法.该例子可以在互联网上测试(如果不知道自己的IP,可以打开http://www.138soft.com/getip.asp进行查询).============================================================================版权所有 该单元的版权归作者(陈经韬)所有.你可以无偿无限制的使用它,但是在你的软件帮助里面最好声明使用了该单元.============================================================================联系方式 Web:http:www.138soft.com EMail&Msn:lovejingtao@21cn.com 2005-11-12
- 1
- thyzkw2016-10-22最好能有mirrorv3,这个不能编辑
- 清远罐头2013-02-05最好能有mirrorv3,这个不能编辑
- jxzqsun12013-01-08代码不全,一点用都没有
- cyouy2014-02-12代码不全,用处不大
- bbbin30002015-06-09这个不错,只可惜不能在win7下用。
- 粉丝: 882
- 资源: 2万+
- 我的内容管理 展开
- 我的资源 快来上传第一个资源
- 我的收益 登录查看自己的收益
- 我的积分 登录查看自己的积分
- 我的C币 登录后查看C币余额
- 我的收藏
- 我的下载
- 下载帮助