基于Delphi的屏幕抓图技术的实现-xxlinux.com




┊linux社区┊ 爱心援助 ┊ Linux认证┊系列教程 ┊ 业界动态┊ 站务新闻 ┊ 公司招聘┊ 建议留言 ┊ 网址大全 ┊LPI专题┊ CISCO专题

设为首页

加入收藏

管理团队

联盟首页	入门区	安装配置	使用技巧	桌面应用	开发区	WEB开发	数据库	内核研究	SHELL	软件开发
软件下载	网络区	服务器	网络应用	网络安全	UNIX区	UNIX入门	UNIX提高	C专题	JAVA专题	嵌入应用
开发语言	PHP	JSP	ASP	ASP.NET	JAVA	C/C++/C#	PERL	JavaScript	Basic	Delphi

		您的位置：首页 > 开发语言 > Delphi >

栏目导栏

php

JSP

ASP

asp.net

JAVA

c/c++/c#

perl

JavaScript

Basic

Delphi

资料搜索

最新文章

·在应用程序中跟踪MOUSE的坐标

·压缩和修复MS Access 2000文件

·DELPHI 6.0 动画制做

·怎样在Delphi中调用LastError信

基于Delphi的屏幕抓图技术的实现

[ 作者: 加入时间:2007-09-30 16:10:55 来自:Linux联盟收集整理 ]

引言gvsLinux联盟
gvsLinux联盟
　　随着网络技术的飞速发展，计算机网络在各高等院校教学中的使用已非常普遍，但是，我们发现一个问题，在教学的过程中，由于老师是面对着学生，而背对着学生计算机的显示器，不能随时查看学生计算机显示器上的内容，所以，有的学生在教学中偷玩游戏，影响了教学的质量和效果，因此，设计一款网络监控软件，监控学生计算机，十分必要。为了实现这一目的，此系统应具有以下功能：

　　（1）教师用机可以循环显示学生计算机的显示器上的画面。

　　（2）教师用机可以动态显示某一学生计算机的显示器上的画面。

　　（3）教师用机可以对学生用计算机发出警告信息和控制信息。

　　（4）学生用计算机开机自动运行服务端监控程序。

　　（5）为了防止学生用计算机的服务端监控程序，被学生发现用Ctrl+Alt+Del关闭，在Ctrl+Alt+Del对话框中必须隐藏程序。同时，应该隐藏程序在任务栏的按钮。

　　本文结合应用实践，重点向大家介绍在Delphi7.0中可以采用的两种实现屏幕抓图技术的操作方法。

　　程序实现

　　（1）抓取屏幕图像的难点有两个：一是如何夺取屏幕的句柄，二是知道屏幕句柄后如何获取屏幕的图像。Borland公司的设计人员用画布（Tcanvas）对象封装了Windows的大部分图形输出功能，可以通过它以更直观的方式和Windows的屏幕打交道，而不必关心令人头疼的Windows API函数。具体程序如下：

procedure TForm1.Timer1Timer(Sender：TObject)；//抓取屏幕，并保存到Image控件中
var
　Fullscreen：Tbitmap；
　FullscreenCanvas：TCanvas；
　dc：HDC；
begin
　Fullscreen：=TBitmap.Create；
　//创建一个BITMAP来存放图象
　Fullscreen.Width：=screen.width；
　Fullscreen.Height：=screen.Height；
　DC：=GetDC(0)； //取得屏幕的DC，参数0指的是屏幕
　FullscreenCanvas：=TCanvas.Create；
　//创建一个CANVAS对象
　FullscreenCanvas.Handle：=DC；
　Fullscreen.Canvas.CopyRect(Rect(0，0，screen.Width，screen.Height)，
　fullscreenCanvas，Rect(0，0，Screen.Width，Screen.Height))；
　//把整个屏幕复制到BITMAP中
　FullscreenCanvas.Free；
　//释放CANVAS对象
　ReleaseDC(0，DC)； //释放DC
　//*******************************
　image1.picture.Bitmap：=fullscreen； //拷贝下的图象赋给IMAGE对象
　image1.Width：=fullscreen.Width；
　image1.Height：=fullscreen.Height；
　fullscreen.free； //释放bitmap
　form1.WindowState：=wsNormal； //复原窗口状态
　form1.show； //显示窗口
　messagebeep(1)； //BEEP叫一声，报告图象已经截取好了。
end；

　　（2）Delphi的第三方控件ScreenCapture，它是一个很好的免费的截图控件，可以轻松抓取任意大小（全屏当然行）、屏幕的任何位置，还可以设置所截图像的形状、以及用何种模式截图。下面介绍的是用TcmWindow模式截图，使用非常简单，使用效果可以与著名的抓图软件SnagIt32媲美。

procedure TForm1.BtnStartClick(Sender：TObject)；
begin
　ScreenCapture1.start； //开始截图
end；

　//当截取屏幕成功时，此事件发生
　procedure TForm1.ScreenCapture1Capture(Sender：TObject；Bitmap：TBitmap)；
begin
　//调整滚动窗口的大小以适应截获图像的大小
　Scrollbox1.HorzScrollBar.Range：= Image1.width；
　Scrollbox1.VertScrollBar.Range：= Image1.height；
end；

procedure TForm1.FormCreate(Sender：TObject)；
begin
　//载入entntacp.dll文件
　BtnStart.enabled：= ScreenCapture1.dllavailable；
　//显示版本信息
　caption：= '屏幕抓图软件' + ScreenCapture1.version；
end；

//当没有足够的内存支持截取屏幕时，此事件发生
procedure TForm1.ScreenCapture1Error(Sender：TObject)；
begin
　MessageDlg('屏幕截取时发生一个错误！请关闭其他应用程序以获得更多内存资源.'，　mtError，[mbOK]，0)；
end；

　//当用户按“Esc”键，即取消屏幕截取时，此事件发生
procedure TForm1.ScreenCapture1UserCancelled(Sender：TObject)；
begin
　MessageDlg('用户取消屏幕截取。'，mtInformation，[mbOK]，0)；
end；

　　运行程序，效果如图1和图2所示。