日韩无码专区无码一级三级片|91人人爱网站中日韩无码电影|厨房大战丰满熟妇|AV高清无码在线免费观看|另类AV日韩少妇熟女|中文日本大黄一级黄色片|色情在线视频免费|亚洲成人特黄a片|黄片wwwav色图欧美|欧亚乱色一区二区三区

RELATEED CONSULTING
相關咨詢
選擇下列產品馬上在線溝通
服務時間：8:30-17:00
你可能遇到了下面的問題
關閉右側工具欄

新聞中心

這里有您想知道的互聯網營銷解決方案
基于Delphi的屏幕抓圖技術的實現

　　隨著網絡技術的飛速發(fā)展，計算機網絡在各高等院校教學中的使用已非常普遍，但是，我們發(fā)現一個問題，在教學的過程中，由于老師是面對著學生，而背對著學生計算機的顯示器，不能隨時查看學生計算機顯示器上的內容，所以，有的學生在教學中偷玩游戲，影響了教學的質量和效果，因此，設計一款網絡監(jiān)控軟件，監(jiān)控學生計算機，十分必要。本文以Delphi7.0作為開發(fā)平臺，給出了網絡監(jiān)控軟件中的兩種屏幕抓圖技術的設計方法和步驟。為了實現這一目的，此系統(tǒng)應具有以下功能：

網站建設、做網站,成都做網站公司-創(chuàng)新互聯已向上1000家企業(yè)提供了,網站設計,網站制作,網絡營銷等服務!設計與技術結合,多年網站推廣經驗,合理的價格為您打造企業(yè)品質網站。

　　(1)教師用機可以循環(huán)顯示學生計算機的顯示器上的畫面。

　　(2)教師用機可以動態(tài)顯示某一學生計算機的顯示器上的畫面。

　　(3)教師用機可以對學生用計算機發(fā)出警告信息和控制信息。

　　(4)學生用計算機開機自動運行服務端監(jiān)控程序。

　　(5)為了防止學生用計算機的服務端監(jiān)控程序，被學生發(fā)現用Ctrl+Alt+Del關閉，在Ctrl+Alt+Del對話框中必須隱藏程序。同時，應該隱藏程序在任務欄的按鈕。

　　本文結合應用實踐，重點向大家介紹在Delphi7.0中可以采用的兩種實現屏幕抓圖技術的操作方法。

　　程序實現

　　(1)抓取屏幕圖像的難點有兩個：一是如何奪取屏幕的句柄，二是知道屏幕句柄后如何獲取屏幕的圖像。Borland公司的設計人員用畫布(Tcanvas)對象封裝了Windows的大部分圖形輸出功能，可以通過它以更直觀的方式和Windows的屏幕打交道，而不必關心令人頭疼的Windows API函數。具體程序如下：

 
 
 
    
  
  
  
  1. procedure TForm1.Timer1Timer(Sender:TObject);//抓取屏幕,并保存到Image控件中  
    2. 
  
  
  
  2. var  
    3. 
  
  
  
  3. 　Fullscreen:Tbitmap;  
    4. 
  
  
  
  4. 　FullscreenCanvas:TCanvas;  
    5. 
  
  
  
  5. 　dc:HDC;  
    6. 
  
  
  
  6. begin  
    7. 
  
  
  
  7. 　Fullscreen:=TBitmap.Create;   
    8. 
  
  
  
  8. 　//創(chuàng)建一個BITMAP來存放圖象  
    9. 
  
  
  
  9. 　Fullscreen.Width:=screen.width;  
    10. 
  
  
  
  10. 　Fullscreen.Height:=screen.Height;  
    11. 
  
  
  
  11. 　DC:=GetDC(0); //取得屏幕的DC,參數0指的是屏幕  
    12. 
  
  
  
  12. 　FullscreenCanvas:=TCanvas.Create;   
    13. 
  
  
  
  13. 　//創(chuàng)建一個CANVAS對象  
    14. 
  
  
  
  14. 　FullscreenCanvas.Handle:=DC;  
    15. 
  
  
  
  15. 　Fullscreen.Canvas.CopyRect(Rect(0,0,screen.Width,screen.Height),  
    16. 
  
  
  
  16. 　fullscreenCanvas,Rect(0,0,Screen.Width,Screen.Height));   
    17. 
  
  
  
  17. 　//把整個屏幕復制到BITMAP中  
    18. 
  
  
  
  18. 　FullscreenCanvas.Free;   
    19. 
  
  
  
  19. 　//釋放CANVAS對象  
    20. 
  
  
  
  20. 　ReleaseDC(0,DC); //釋放DC  
    21. 
  
  
  
  21. 　//*******************************  
    22. 
  
  
  
  22. 　image1.picture.Bitmap:=fullscreen; //拷貝下的圖象賦給IMAGE對象  
    23. 
  
  
  
  23. 　image1.Width:=fullscreen.Width;  
    24. 
  
  
  
  24. 　image1.Height:=fullscreen.Height;  
    25. 
  
  
  
  25. 　fullscreen.free; //釋放bitmap  
    26. 
  
  
  
  26. 　form1.WindowState:=wsNormal; //復原窗口狀態(tài)  
    27. 
  
  
  
  27. 　form1.show; //顯示窗口  
    28. 
  
  
  
  28. 　messagebeep(1); //BEEP叫一聲,報告圖象已經截取好了。  
    29. 
  
  
  
  29. end;  
    30.

　　(2)Delphi的第三方控件ScreenCapture,它是一個很好的免費的截圖控件,可以輕松抓取任意大小(全屏當然行)、屏幕的任何位置,還可以設置所截圖像的形狀、以及用何種模式截圖。下面介紹的是用TcmWindow模式截圖,使用非常簡單,使用效果可以與著名的抓圖軟件SnagIt32媲美。

 
 
 
    
  
  
  
  1. procedure TForm1.BtnStartClick(Sender:TObject);  
    2. 
  
  
  
  2. begin  
    3. 
  
  
  
  3. 　ScreenCapture1.start; //開始截圖  
    4. 
  
  
  
  4. end;  
    5. 
  
  
  
  5.  
    6. 
  
  
  
  6. 　//當截取屏幕成功時,此事件發(fā)生  
    7. 
  
  
  
  7. 　procedure TForm1.ScreenCapture1Capture(Sender:TObject;Bitmap:TBitmap);  
    8. 
  
  
  
  8. begin  
    9. 
  
  
  
  9. 　//調整滾動窗口的大小以適應截獲圖像的大小  
    10. 
  
  
  
  10. 　Scrollbox1.HorzScrollBar.Range:= Image1.width;  
    11. 
  
  
  
  11. 　Scrollbox1.VertScrollBar.Range:= Image1.height;  
    12. 
  
  
  
  12. end;  
    13. 
  
  
  
  13.  
    14. 
  
  
  
  14. procedure TForm1.FormCreate(Sender:TObject);  
    15. 
  
  
  
  15. begin  
    16. 
  
  
  
  16. 　//載入entntacp.dll文件  
    17. 
  
  
  
  17. 　BtnStart.enabled:= ScreenCapture1.dllavailable;  
    18. 
  
  
  
  18. 　//顯示版本信息  
    19. 
  
  
  
  19. 　caption:= '屏幕抓圖軟件' + ScreenCapture1.version;  
    20. 
  
  
  
  20. end;  
    21. 
  
  
  
  21.  
    22. 
  
  
  
  22. //當沒有足夠的內存支持截取屏幕時,此事件發(fā)生  
    23. 
  
  
  
  23. procedure TForm1.ScreenCapture1Error(Sender:TObject);  
    24. 
  
  
  
  24. begin  
    25. 
  
  
  
  25. 　MessageDlg('屏幕截取時發(fā)生一個錯誤！請關閉其他應用程序以獲得更多內存資源.',　mtError,[mbOK],0);  
    26. 
  
  
  
  26. end;  
    27. 
  
  
  
  27.  
    28. 
  
  
  
  28. 　//當用戶按“Esc”鍵,即取消屏幕截取時,此事件發(fā)生  
    29. 
  
  
  
  29. procedure TForm1.ScreenCapture1UserCancelled(Sender:TObject);  
    30. 
  
  
  
  30. begin  
    31. 
  
  
  
  31. 　MessageDlg('用戶取消屏幕截取。',mtInformation,[mbOK],0);  
    32. 
  
  
  
  32. end;  
    33.

　　結論

　　通過對以上兩種程序代碼的調試運行，使用第三方控件的方法更易于設計實現，文中的程序代碼全部在Win2000和Delphi7.0環(huán)境下調試通過。


網頁題目：基于Delphi的屏幕抓圖技術的實現
URL網址：http://www.5511xx.com/article/djpgppe.html