Come catturare schermo con Delphi

Per prima cosa, create un nuovo progetto. (Presumo che già hanno esperienza di programmazione con Delphi per cui non entrerò nei dettagli su come creare un progetto de Delfi.) Salva, ad esempio, come ScrnCap. Rinomina come principale forma frmCapture. TButton Aggiungere un controllo e una TSaveDialog. Rinominare il pulsante di controllo come btnStartCapture e modificare la sua proprietà Caption di 'cattura'. Rinomina finestra di dialogo Salva come dlgSaveCapture.

Creare una nuova unità e rinominare è come uscreencap.pas. Aggiungere il seguente codice:

procedura CaptureScreenShot (acapture: TBitMap);
var c: TCanvas;
r: TRect;
iniziare
c: = TCanvas.Create;
c.Handle: = GetWindowDC (GetDesktopWindow);
provare
r: = Rect (0,0, screen.width, screen.height);
acapture.Width: = screen.Width;
acapture.Height: = screen.Height;
acapture.Canvas.CopyRect (r, c, r);
finalmente
ReleaseDC (0, c.handle);
c.Free;
fine;
fine;

procedura CaptureScreenShotJPEG (ajpeg: TJPEGImage);
var abmp: TBitmap;
iniziare
abmp: = TBitmap.Create;
provare
CaptureScreenShot (abmp);
ajpeg.Assign (abmp);
finalmente
abmp.Free;
fine;
fine;

Non dimenticate di aggiungere jpeg.pas unità utilizza la clausola di unità di interfaccia parte. Si tratta di classe in cui è dichiarata TJPEGImage. Salva quando hai finito.

Ora nella tua applicazione principale dove risiede la forma principale, aggiungere il pulsante gestore di evento OnClick. Inserire il codice esattamente come è qui di seguito:

procedura TfrmCapture.btnStartCaptureClick (Sender: TObject);
var ajpeg: TJPEGImage;
iniziare
ajpeg: = TJPEGImage.Create;
provare
CaptureScreenShotJPEG (ajpeg);
se la dlgSaveCapture.Execute
iniziare
ajpeg.SaveToFile (dlgSaveCapture.Filename);
fine;
finalmente
ajpeg.Free;
fine;
fine;

Non dimenticare di includere uscreencap.pas e jpeg.pas unità nel vostro utilizza clausola. Costruire e gestire progetti. Ogni volta che si clickcapture pulsante, lo schermo viene salvato file JPEG.