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

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

      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　抓取图像后的效果图