Dieser Artikel beschreibt die Methode zum Erstellen von Screenshots und zum Speichern dieser auf der Festplatte in Delphi. Teilen Sie es als Referenz mit allen. Die spezifische Analyse lautet wie folgt:
In diesem Beispiel kann der Bildschirm erfasst und im JPEG-Dateiformat gespeichert werden.
procedure TForm1.ScreenCap(LeftPos,RightPos,BottomPos:integer);var RectWidth,RectHeight:integer; Bitmap:TBitmap; MyJpeg:TJpegImage;begin MyJpeg:= TJpegImage.Create ; RectWidth:=RightPos-LeftPos; RectHeight:=BottomPos-TopPos; SourceDC:=CreateDC('DISPLAY','',nil); DestDC:=CreateCompatibleDC(SourceDC); ); SelectObject(DestDC,Bhandle); BitBlt(DestDC,0,0,RectWidth,RectHeight,SourceDC, LeftPos,TopPos,SRCCOPY); Bitmap.Handle:=BHandle; Stream := TMemoryStream.Create; Stream .Free; probieren Sie MyJpeg.Assign(Bitmap); MyJpeg.CompressionQuality:=70; MyJpeg.SaveToFile('C:MyJPEGImage.JPG');Ich hoffe, dass dieser Artikel für alle bei der Delphi-Programmierung hilfreich sein wird.