이 문서에서는 델파이에서 스크린샷을 찍어 디스크에 저장하는 방법을 설명합니다. 참고할 수 있도록 모든 사람과 공유하세요. 구체적인 분석은 다음과 같습니다.
이 예제에서는 화면을 캡처하여 JPEG 파일 형식으로 저장할 수 있습니다.
절차 TForm1.ScreenCap(LeftPos,TopPos,RightPos,BottomPos:integer);var RectWidth,RectHeight:integer; SourceDC,DestDC,Bhandle:integer; MyJpeg: TJpegImage;begin MyJpeg:= ; RectWidth:=RightPos-LeftPos; RectHeight:=BottomPos-TopPos; SourceDC:=CreateDC('DISPLAY','','',nil); DestDC:=CreateCompatibleDC(SourceDC):=CreateCompatibleBitmap(SourceDC, RectWidth,RectHeight ); SelectObject(대상DC,Bhandle); BitBlt(DestDC,0,0,RectWidth,RectHeight,SourceDC, LeftPos,TopPos,SRCCOPY); Bitmap:=TBitmap.Create; Bitmap.Handle:=BHandle; Bitmap.SaveToStream(Stream); .무료; MyJpeg.Assign(Bitmap)을 사용해 보세요. MyJpeg.CompressionQuality:=70; MyJpeg.SaveToFile('C:MyJPEGImage.JPG'); 마지막으로 Bitmap.Free; ReleaseDC(Bhandle,SourceDC);이 글이 모든 사람의 델파이 프로그래밍에 도움이 되기를 바랍니다.