FAQ DelphiConsultez toutes les FAQ

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Procedure TForm1.Button1Click(Sender: TObject); 
Var jpg :TJpegImage; 
    Bmp :TBitMap; 
Begin 
  { Sélection de l'image} 
  If Not Ouvrir.Execute Then Exit; 
  { Sélection du nom de destination} 
  If Not Sauver.Execute Then Exit; 
  
  { Création des variables temporaires} 
  Jpg := TJpegImage.Create; 
  Bmp := TBitMap   .Create; 
  Try 
    { Lecture de l'image} 
    Jpg.LoadFromFile(Ouvrir.FileName); 
    { Le BitMap est adapté à la taille voulue} 
    Bmp.Width  :=Jpg.Width  * Coeff Div 100; 
    Bmp.Height :=Jpg.Height * Coeff Div 100; 
    { L'image est dessinée dans la totalité de la surface du BitMap} 
    Bmp.Canvas.StretchDraw(Bmp.Canvas.ClipRect,Jpg); 
    { Puis la nouvelle image est assignée au JPG} 
    Jpg.Assign(Bmp); 
    { et enfin elle est enregistrée} 
    Jpg.SaveToFile(Sauver.FileName); 
  Finally 
    { libération des ressources} 
    Jpg .Free; 
    Bmp .Free; 
  End; 
End;

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
  
procedure ConversionJPEGversBMP(const FichierEntree, FichierSortie: string); 
var ImageJPEG : TJPEGImage; 
    ImageBitmap : TBitmap; 
begin 
  ImageJPEG := TJPEGImage.Create; 
  try 
    ImageJPEG.LoadFromFile(FichierEntree); //Chargement de l'image 
  
    ImageBitmap := TBitmap.Create; 
    try 
      //On donne la même taille que l'image jpeg 
      ImageBitmap.Width := ImageJPEG.Width; 
      ImageBitmap.Height := ImageJPEG.Height; 
  
      //On dessine le jpeg sur le canvas du Bitmap 
      ImageBitmap.Canvas.Draw(0, 0, ImageJPEG); 
      //On enregistre 
      ImageBitmap.SaveToFile(FichierSortie); 
    finally 
      ImageBitmap.Free; 
    end; 
  finally 
    ImageJPEG.Free; 
  end; 
end;