Denne korte artikkelen vil forklare deg hvordan du kan fange skjermen innhold til en JPEG-fil fra Delphi programmet.
Trinn 1
Først oppretter et nytt prosjekt. (Jeg antar at du allerede har erfaring med Delphi programmering så jeg vil ikke gå i detalj om hvordan du oppretter en Delphi prosjekt.) Lagre det, for eksempel, som ScrnCap. Gi nytt navn til hovedskjema som frmCapture. Legg en TButton kontroll og en TSaveDialog. Rename knapp kontroll som btnStartCapture og endre Caption egenskapene til "Capture". Gi nytt navn spare dialog som dlgSaveCapture.
Trinn 2
Lag en ny enhet og endre navn er som uscreencap.pas. Legg til følgende kode:
prosedyre CaptureScreenShot (acapture: TBitMap); Var c: TCanvas; r: TRect; begynne c: = TCanvas.Create; c.Handle: = GetWindowDC (GetDesktopWindow); prøv r: = Rekt (0,0, screen.width, screen.height); acapture.Width: = screen.Width; acapture.Height: = screen.Height; acapture.Canvas.CopyRect (r, c, r); endelig ReleaseDC (0, c.handle); c.Free; end, end,
prosedyre CaptureScreenShotJPEG (ajpeg: TJPEGImage); Var ABMP: TBitmap; begynne ABMP: = TBitmap.Create; prøv CaptureScreenShot (ABMP); ajpeg.Assign (ABMP); endelig abmp.Free; end, end,
Ikke glem å legge jpeg.pas enhet i bruk klausul enhet grensesnitt del. Det er der TJPEGImage klassen er deklarert. Lagre den når du er ferdig.
Trinn 3
Nå i hoved søknad enheten der den viktigste formen er bosatt, legge knappen onclick hendelsesbehandling. Fyll inn koden i nøyaktig slik den er under:
prosedyre TfrmCapture.btnStartCaptureClick (Sender: TObject); Var ajpeg: TJPEGImage; begynne ajpeg: = TJPEGImage.Create; prøv CaptureScreenShotJPEG (ajpeg); hvis dlgSaveCapture.Execute starten ajpeg.SaveToFile (dlgSaveCapture.Filename); ende; endelig ajpeg.Free; ende; ende; største nettstedene Ikke glem å inkludere uscreencap.pas og jpeg.pas enhet i bruk klausulen. Bygg prosjektet og kjøre. Hver gang du clickcapture knappen, skjermen lagres i JPEG-fil. Anmeldelser