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

介绍

随着网络技术的飞速发展，计算机网络已经广泛应用于高校的教学中。然而，我们发现了一个问题。在教学过程中，由于老师是面对学生的，但背对着学生的电脑显示器，他无法随时查看学生电脑显示器的内容。因此，一些学生在教学中偷着玩游戏，影响了教学质量和效果。因此，有必要设计一款网络监控软件来监控学生的电脑。为实现这一目标，该系统应具备以下功能:

(1)教师电脑可以循环显示学生电脑显示器上的画面。

(2)老师的电脑可以在学生电脑的显示器上动态显示画面。

(3)教师电脑可以向学生电脑发出预警信息和控制信息。

(4)学生打开电脑自动运行服务器端监控程序。

(5)为了防止学生使用计算机的服务器端监控程序，被学生用Ctrl+Alt+Del发现关闭，程序必须隐藏在Ctrl+Alt+Del对话框中。同时你要把程序的按钮隐藏在任务栏里。

结合应用实践，重点介绍了在Delphi7.0中可以使用的屏幕截图技术的两种操作方法

程序实现

(1)抓取屏幕图像有两个难点:一是如何抓取屏幕的句柄，二是在知道屏幕的句柄后如何获取屏幕图像。Borland公司的设计师用canvas (Tcanvas)对象封装了Windows的大部分图形输出功能，通过它可以更直观地处理Windows屏幕，而不必担心麻烦的Windows API函数。具体程序如下:

程序TForm1。Timer1Timer(发送方:to object)；//抓取屏幕保存在图像控件
var
full screen:tbit map；
full screen canvas:tcan vas；
DC:HDC；
begin
全屏:=TBitmap。创建；
//创建位图来存储图像
full screen . width:= screen . width；
全屏。高度:=屏幕。身高；
DC:= GetDC(0)；//获取屏幕的DC，参数0指屏幕
全屏画布:= tcan vas . create；
//创建CANVAS对象
full screen CANVAS . handle:= DC；
全屏。Canvas.CopyRect(Rect(0，0，screen。宽度，屏幕。Height)，
fullscreenCanvas，Rect(0，0，Screen。宽度，屏幕。身高))；
//将整个屏幕复制到BITMAP中
full screen canvas . free；
//释放画布对象
ReleaseDC(0，DC)；//释放DC
/* * * * * * * * * * * * * * * * * * * * * * * * *
image1 . picture . bitmap:=全屏；//将复制的图像赋给图像对象
image1 . width:= full screen . width；
图片1。高度:=全屏。身高；
full screen . free；//释放位图
form 1 . window state:= ws normal；//恢复窗口状态
form 1 . show；//显示窗口
message beep(1)；//哔，报告图像被截获。
end；