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

　　随着网络技术的飞速发展，计算机网络在各高等院校教学中的使用已非常普遍，但是，我们发现一个问题，在教学的过程中，由于老师是面对着学生，而背对着学生计算机的显示器，不能随时查看学生计算机显示器上的内容，所以，有的学生在教学中偷玩游戏，影响了教学的质量和效果，因此，设计一款网络监控软件，监控学生计算机，十分必要。本文以Delphi7.0作为开发平台，给出了网络监控软件中的两种屏幕抓图技术的设计方法和步骤。为了实现这一目的，此系统应具有以下功能：

网站建设、做网站,成都做网站公司-创新互联已向上1000家企业提供了,网站设计,网站制作,网络营销等服务!设计与技术结合,多年网站推广经验,合理的价格为您打造企业品质网站。

　　(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;

　　结论

　　通过对以上两种程序代码的调试运行，使用第三方控件的方法更易于设计实现，文中的程序代码全部在Win2000和Delphi7.0环境下调试通过。

分享名称：基于Delphi的屏幕抓图技术的实现
分享地址：http://www.stwzsj.com/qtweb/news36/16286.html

网站建设、网络推广公司-创新互联，是专注品牌与效果的网站制作，网络营销seo公司；服务项目有等

声明：本网站发布的内容（图片、视频和文字）以用户投稿、用户转载内容为主，如果涉及侵权请尽快告知，我们将会在第一时间删除。文章观点不代表本网站立场，如需处理请联系客服。电话：028-86922220；邮箱：631063699@qq.com。内容未经允许不得转载，或转载时需注明来源：创新互联

猜你还喜欢下面的内容