Delphi でスクリーンショットの保存を実装する方法

この記事では、Delphi でスクリーンショットを撮ってディスクに保存する方法について説明します。皆さんの参考に共有してください。具体的な分析は次のとおりです。

この例では、画面をキャプチャして JPEG ファイル形式で保存できます。

プロシージャ TForm1.ScreenCap(LeftPos,TopPos,RightPos,BottomPos:integer);var RectWidth,RectHeight:integer; ビットマップ:TBitmap; MyJpeg:= TJpegImage.Create ; RectWidth:=Ri​​ghtPos-LeftPos; SourceDC:=CreateDC('DISPLAY','','',nil); ); SelectObject(DestDC,Bhandle); BitBlt(DestDC,0,0,RectWidth,RectHeight,SourceDC,LeftPos,TopPos,SRCCOPY); .Free; MyJpeg.Assign(ビットマップ)を試してください。 MyJpeg.CompressionQuality:=70; MyJpeg.SaveToFile('C:MyJPEGImage.JPG'); 最後に、MyJpeg.FreeDC(Bhandle,SourceDC);

この記事が皆さんの Delphi プログラミングに役立つことを願っています。