Cet article décrit la méthode pour prendre des captures d'écran et les enregistrer sur le disque dans Delphi. Partagez-le avec tout le monde pour votre référence. L’analyse spécifique est la suivante :
Cet exemple peut capturer l'écran et l'enregistrer au format de fichier JPEG.
procédure TForm1.ScreenCap(LeftPos,TopPos,RightPos,BottomPos:integer);var RectWidth,RectHeight:integer; SourceDC,DestDC,Bhandle:integer; ; RectWidth:=RightPos-LeftPos; RectHeight:=BottomPos-TopPos; SourceDC:=CreateDC('DISPLAY','','',nil); ); SélectionnerObjet(DestDC,Bhandle); BitBlt(DestDC,0,0,RectWidth,RectHeight,SourceDC, LeftPos,TopPos,SRCCOPY); Bitmap:=TBitmap.Create;=BHandle; Stream := TMemoryStream.Create; .Gratuit ; essayez MyJpeg.Assign (Bitmap); MyJpeg.CompressionQuality:=70; MyJpeg.SaveToFile('C:MyJPEGImage.JPG'); enfin MyJpeg.Free; SupprimerDC(DestDC);J'espère que cet article sera utile à la programmation Delphi de chacun.