[Delphi] 截屏存盘

最新推荐文章于 2021-05-30 23:32:22 发布

顺欣同创

最新推荐文章于 2021-05-30 23:32:22 发布

阅读量3.9k

点赞数

CC 4.0 BY-SA版权

分类专栏： Delphi 文章标签： delphi integer stream c

本文链接：https://blog.youkuaiyun.com/xujh/article/details/1589525

Delphi 专栏收录该内容

7 篇文章

订阅专栏

本文介绍了一个使用Delphi实现的屏幕截图方法，通过指定位置和大小截取屏幕图像，并将其保存为JPEG格式。此过程涉及创建设备上下文、位图以及使用TJpegImage组件进行压缩。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

截取屏幕，并保存为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;