Delphi实现截屏功能

* 功能: 截取屏幕中的指定区域

** 输入参数：

**　　　　　LeftPos ：左坐标

**　　　　　TopPos ：上坐标

** RightPos：右坐标

** BottomPos ：底部坐标

** author : liubin

** datetime : 2010-10-01

***********************************}

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

转载于:https://www.cnblogs.com/huapox/archive/2010/11/01/3299836.html

Delphi实现截屏功能相关推荐

android实现长截屏,Android实现全屏截图或长截屏功能
本文实例为大家分享了Android实现全屏截图或长截屏功能的具体代码,供大家参考,具体内容如下全屏截图: /** * 传入的activity是要截屏的activity */ public stati ...
Cocos2d-x 截屏功能集成
1.集成到Director 这里选择把截屏功能继承到Director中,让全局的导演来执行截屏功能是一个很好的主意. void Director::saveScreenshot(const std:: ...
android4.3 截屏功能的尝试与失败分析
感谢网友cjd6568358的帮助,新版的Android系统截屏功能已经实现,需要的朋友请移步项目主页:https://github.com/Android-ScreenShot/AndroidScr ...
Atitit截屏功能的设计解决方案
Atitit截屏功能的设计解决方案自己实现.... 使用快捷键.. 弹出自己的win,,背景是屏幕快照点击鼠标光标变成十字状态出现截屏窗口调整截屏窗口位置与大小释放鼠标,三个btn,, 复 ...
java网页截图_Java实现的简单网页截屏功能示例
本文实例讲述了Java实现的简单网页截屏功能.分享给大家供大家参考,具体如下: package awtDemo; import java.awt.AWTException; import java.a ...
html禁止手机截屏,[置顶] Android 应用内禁止截屏功能的实现
截图介绍 Android的调试工具DDMS提供有截屏功能,很多软件也会有截屏功能,在做支付等安全类应用的时候,为了保证用户的资产和系统安全,往往会禁止应用内截屏,禁止之后,在此应用处于前台的情况下,截 ...
UnityShader19：渲染纹理（上）之截屏功能实现
一.渲染到 RT 渲染纹理(Render Texture) 就是游戏开发中经常被提到的 RT,渲染到 RT 本质上就是不将渲染的结果直接显示的屏幕上,而是存至一张指定的纹理中在 Unity 中最简单 ...
python截图工具和模拟鼠标键盘_python PyAutoGUI 模拟鼠标键盘操作和截屏功能
简介一款跨平台/无依赖的自动化测试工具,目测只能控制鼠标/键盘/获取屏幕尺寸/弹出消息框/截屏. 安装 pip install pyautogui 鼠标键盘控制 >>> impor ...
android自动截图实现,Android实现截屏功能
原标题:Android实现截屏功能该方法主要利用SDK提供的view.getDrawingCache()方法,主要步骤如下: 设置view.setDrawingCacheEnabled(true) ...

Delphi实现截屏功能

Delphi实现截屏功能相关推荐

最新文章

热门文章