delphi android 截屏,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程序设计有所帮助。