实现截屏存盘代码,Delphi代码库,德仔网

代码语言

代码分类

【Delphi】实现截屏存盘

作者:秀清 / 发布于2015/5/13/ 458


	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;

评论列表

本站所提供的代码，版权归原作者所有，若有侵犯作者版权，请与我们联系，我们将立即删除或修改。谢谢!
本站所有代码发布及提供者。

试试其它关键字

　截屏　

同语言下

可能有用的

秀清贡献的其它代码(25)