Delphi实现截屏存盘的方法
更新时间：2015年05月08日 15:56:31 作者：xujh
这篇文章主要介绍了Delphi实现截屏存盘的方法,涉及Delphi图片操作的相关技巧,需要的朋友可以参考下
本文实例讲述了Delphi实现截屏存盘的方法。分享给大家供大家参考。具体分析如下：
该实例可实现截取屏幕，并保存为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 用DLL实现插件的简单实例的相关资料,希望通过本文能帮助到大家，这里提供实例帮助大家掌握这部分内容，需要的朋友可以参考下2017-09-09
Java中CountDownLatch和CyclicBarrier的区别与详解
CountDownLatch和CyclicBarrier是Java并发包提供的两个非常易用的线程同步工具类,本文主要介绍了Java中CountDownLatch和CyclicBarrier的区别与详解,具有一定的参考价值,感兴趣的可以了解一下2023-11-11
这篇文章主要介绍了delphi制作wav文件的方法,涉及Delphi操作多媒体文件的相关技巧,需要的朋友可以参考下2015-06-06
Delphi中使用ISuperObject解析Json数据的实现代码
这篇文章主要介绍了Delphi中使用ISuperObject解析Json数据的实现代码,需要的朋友可以参考下2017-09-09
这篇文章主要介绍了Delphi实现获取进程列表及相关信息的实例,希望通过本文大家能实现这样的功能，需要的朋友可以参考下2017-09-09
delphi mysql adbquery数据提供程序或其他服务返回 E_FAIL 状态
这篇文章主要介绍了delphi mysql adbquery数据提供程序或其他服务返回 E_FAIL 状态的解决方法2013-11-11
这篇文章主要介绍了Delphi 调用外部程序并阻塞到外部程序中的相关知识，本文给大家介绍的非常详细，具有一定的参考借鉴价值,需要的朋友可以参考下2019-09-09
这篇文章主要介绍了delphi字符串分隔函数用法,通过自定义函数SeparateTerms2实现将字符串分割后存入字符串列表的功能,具有一定的实用价值,需要的朋友可以参考下2014-12-12
这篇文章主要介绍了Delphi实现窗口文字淡入淡出渐变效果,需要的朋友可以参考下2014-07-07
这篇文章主要介绍了delphi实现保存和读取图片的方法,主要包括了显示图片、保存图片和读取图片的实现方法,是非常实用的技巧,需要的朋友可以参考下2014-09-09
最新评论