บทความนี้จะอธิบายวิธีการจับภาพหน้าจอและบันทึกลงในดิสก์ใน Delphi แบ่งปันกับทุกคนสำหรับการอ้างอิงของคุณ การวิเคราะห์เฉพาะมีดังนี้:
ตัวอย่างนี้สามารถจับภาพหน้าจอและบันทึกในรูปแบบไฟล์ JPEG
ขั้นตอน TForm1.ScreenCap(LeftPos,TopPos,RightPos,BottomPos:integer);var RectWidth,RectHeight:integer; SourceDC,DestDC,Bhandle:integer; MyJpeg: TJpegImage; Stream:TMemoryStream;begin MyJpeg:= TJpegImage.Create ; RectWidth:=RightPos-LeftPos; RectHeight:=BottomPos-TopPos; SourceDC:=CreateDC('DISPLAY','','',nil); ); SelectObject(DestDC,บันเดิล); BitBlt(DestDC,0,0,RectWidth,RectHeight,SourceDC, LeftPos,TopPos,SRCCOPY); บิตแมป:=TBitmap.Create; Bitmap.Handle; Stream := TMemoryStream.Create; .ฟรี ลอง MyJpeg.Assign(Bitmap); MyJpeg.CompressionQuality:=70; MyJpeg.Compress; MyJpeg.SaveToFile('C:MyJPEGImage.JPG'); ในที่สุด MyJpeg.Free; DeleteDC(DestDC);ฉันหวังว่าบทความนี้จะเป็นประโยชน์กับการเขียนโปรแกรม Delphi ของทุกคน