欧美bbbwbbbw肥妇,免费乱码人妻系列日韩,一级黄片

Delphi實現(xiàn)截屏存盤的方法

 更新時間：2015年05月08日 15:56:31   作者：xujh  
這篇文章主要介紹了Delphi實現(xiàn)截屏存盤的方法,涉及Delphi圖片操作的相關技巧,需要的朋友可以參考下

本文實例講述了Delphi實現(xiàn)截屏存盤的方法。分享給大家供大家參考。具體分析如下：

該實例可實現(xiàn)截取屏幕，并保存為JPEG文件格式的功能。

procedure TForm1.ScreenCap(LeftPos,TopPos,RightPos,BottomPos:integer);
var
 RectWidth,RectHeight:integer;
 SourceDC,DestDC,Bhandle:integer;
 Bitmap:TBitmap;
 MyJpeg: TJpegImage;
 Stream:TMemoryStream;
begin
 MyJpeg:= TJpegImage.Create;
 RectWidth:=RightPos-LeftPos;
 RectHeight:=BottomPos-TopPos;
 SourceDC:=CreateDC('DISPLAY','','',nil);
 DestDC:=CreateCompatibleDC(SourceDC);
 Bhandle:=CreateCompatibleBitmap(SourceDC,
 RectWidth,RectHeight);
 SelectObject(DestDC,Bhandle);
 BitBlt(DestDC,0,0,RectWidth,RectHeight,SourceDC,
 LeftPos,TopPos,SRCCOPY);
 Bitmap:=TBitmap.Create;
 Bitmap.Handle:=BHandle;
 Stream := TMemoryStream.Create;
 Bitmap.SaveToStream(Stream);
 Stream.Free;
 try
  MyJpeg.Assign(Bitmap);
  MyJpeg.CompressionQuality:=70;
  MyJpeg.Compress;
  MyJpeg.SaveToFile('C:MyJPEGImage.JPG');
 finally
  MyJpeg.Free;
  Bitmap.Free;
  DeleteDC(DestDC);
  ReleaseDC(Bhandle,SourceDC);
 end;
end;

希望本文所述對大家的Delphi程序設計有所幫助。

相關文章

  • Delphi實現(xiàn)毫秒級別的倒計時實例代碼

    Delphi實現(xiàn)毫秒級別的倒計時實例代碼

    這篇文章主要介紹了Delphi實現(xiàn)毫秒級別的倒計時實例代碼,需要的朋友可以參考下
    2014-07-07
  • Delphi實現(xiàn)讀取系統(tǒng)時間與日期完整實例

    Delphi實現(xiàn)讀取系統(tǒng)時間與日期完整實例

    這篇文章主要介紹了Delphi實現(xiàn)讀取系統(tǒng)時間與日期完整實例,需要的朋友可以參考下
    2014-07-07
  • Delphi實現(xiàn)限定軟件使用時間的方法

    Delphi實現(xiàn)限定軟件使用時間的方法

    這篇文章主要介紹了Delphi實現(xiàn)限定軟件使用時間的方法,商業(yè)軟件開發(fā)中非常實用的功能,需要的朋友可以參考下
    2014-07-07
  • 修改 Delphi 10.3.3 IDE 字體和字體大小

    修改 Delphi 10.3.3 IDE 字體和字體大小

    Delphi，是Windows平臺下著名的快速應用程序開發(fā)工具(Rapid Application Development，簡稱RAD)。這篇文章主要介紹了修改 Delphi 10.3.3 IDE 字體和字體大小,需要的朋友可以參考下
    2019-11-11
  • Delphi修改操作注冊表權限的代碼

    Delphi修改操作注冊表權限的代碼

    Delphi修改操作注冊表權限的代碼，使用Delphi的朋友可以參考下。
    2011-09-09
  • Delphi 調(diào)用外部程序并阻塞到外部程序中

    Delphi 調(diào)用外部程序并阻塞到外部程序中

    這篇文章主要介紹了Delphi 調(diào)用外部程序并阻塞到外部程序中的相關知識，本文給大家介紹的非常詳細，具有一定的參考借鑒價值,需要的朋友可以參考下
    2019-09-09
  • Java中CountDownLatch和CyclicBarrier的區(qū)別與詳解

    Java中CountDownLatch和CyclicBarrier的區(qū)別與詳解

    CountDownLatch和CyclicBarrier是Java并發(fā)包提供的兩個非常易用的線程同步工具類,本文主要介紹了Java中CountDownLatch和CyclicBarrier的區(qū)別與詳解,具有一定的參考價值,感興趣的可以了解一下
    2023-11-11
  • 插件管理框架 for Delphi（一）

    插件管理框架 for Delphi（一）

    插件管理框架 for Delphi許多軟件采用“插件”（PlugIns）來擴展其功能，比如PhotoShop所支持的各類濾鏡就是插件；我們所熟知的Winamp，也有許多皮膚以及可視效果插件。再有微軟的windows media player，以及QQ，沖浪軟件Opera……采用插件技術的軟件數(shù)不勝數(shù)，而各個軟件的具體實現(xiàn)方式也是五花八門，各有特點。
    2008-03-03
  • Delphi實現(xiàn)碰撞球體完整實例代碼

    Delphi實現(xiàn)碰撞球體完整實例代碼

    這篇文章主要介紹了Delphi實現(xiàn)碰撞球體完整實例代碼,通過該實例,讀者可以完整的了解一個Delphi項目的創(chuàng)建過程,加深對Delphi運行原理的了解,需要的朋友可以參考下
    2014-07-07
  • Delphi 中內(nèi)存映射對于大文件的使用

    Delphi 中內(nèi)存映射對于大文件的使用

    這篇文章主要介紹了Delphi 中內(nèi)存映射對于大文件的使用的相關資料,希望通過本文能幫助到大家，需要的朋友可以參考下
    2017-09-09

最新評論