je fais une capture d'écran avec une ptit fonction trouvée sur le forum...
Est-il possible de sauver l'image dans un autre format pour que ça prenne moins de place? en png ou gif par exemple??
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22 procedure CaptureEcran; var DtCanvas: TCanvas; Bitmap: TBitmap; Src, Dst: TRect; JPEG: TBitmap; begin DtCanvas := TCanvas.Create; DtCanvas.Handle := GetDC(0); Bitmap := TBitmap.Create; Bitmap.Height := ProjetVprintPersoft.Height; Bitmap.Width := ProjetVprintPersoft.Width; Src := Rect(ProjetVprintPersoft.Left, ProjetVprintPersoft.Top , ProjetVprintPersoft.Left + ProjetVprintPersoft.Width , ProjetVprintPersoft.top + ProjetVprintPersoft.height); Dst := Rect(0, 0, ProjetVprintPersoft.Width , ProjetVprintPersoft.height); Bitmap.Canvas.CopyRect(Dst, DtCanvas, Src); ReleaseDC(0, DtCanvas.Handle); DtCanvas.Free; JPEG := TBitmap.Create; JPEG.Assign(Bitmap); //ShowMessage(ExtractFilePath(Application.ExeName)); if not DirectoryExists(RepertoireApplication+'CapturesEcran\') then if not CreateDir(RepertoireApplication+'CapturesEcran\') then raise Exception.Create('Impossible de créer '+RepertoireApplication+'CapturesEcran\'); JPEG.SaveToFile(RepertoireApplication+'CapturesEcran\CaptureEcran'+FormatDateTime('yyyymmdd"-"hh"h"mm', Now)+'.jpg'); JPEG.Free; end;
j'ai vu que plusieurs personne parlait du composant du site http://pngdelphi.sourceforge.net/ mais je n'arrive pas à m'en servir...
merci d'avance,
Partager