Developpez.com - Delphi
X

Choisissez d'abord la catégorieensuite la rubrique :

Nono40.developpez.com
Le petit coin du web de Nono40
SOURCES TESTS DELPHI WIN32 AUTOMATISMES DELPHI .NET QUICK-REPORT
Retour à l'accueil
9 - CONVERTIR UN BMP EN JPG

PRÉSENTATION : Programme de conversion d'une image BMP en JPG
ZIP : Téléchargez le zip APERÇUS :

NOTES : Petite application montrant comment ouvrir un BMP et le convertir en JPG en choissisant la qualité du fichier JPG créé.

CODE :
Unit Unit1;

Interface

Uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Spin, ExtDlgs, jpeg;

Type
  TForm1 = Class(TForm)
    Button1: TButton;
    Ouvrir: TOpenPictureDialog;
    Qualite: TSpinEdit;
    Label1: TLabel;
    Sauver: TSaveDialog;
    Procedure Button1Click(Sender: TObject);
  Private
    { Déclarations privées }
  Public
    { Déclarations publiques }
  End;

Var
  Form1: TForm1;

Implementation

{$R *.dfm}

Procedure TForm1.Button1Click(Sender: TObject);
Var jpg:TJPEGImage;
    bmp:TBitMap;
Begin
  // Demander le nom de fichier d'image à convertir
  If Not Ouvrir.Execute Then Exit;
  If UpperCase(ExtractFileExt(Ouvrir.FileName))<>'.BMP' Then Exit;

  // Delander le nom de fichier en .jpg
  // par défaut seule l'extension est changée
  Sauver.FileName:=Copy(Ouvrir.FileName,1,Length(Ouvrir.FileName)-4)+'.jpg';
  If Not Sauver.Execute Then Exit;

  With Sauver Do
  Begin
    // Création des images temporaires
    jpg:=TJPEGImage.Create;
    bmp:=TBitMap.Create;
    Try
      // Le bitmap est lu
      bmp.LoadFromFile(Ouvrir.FileName);
      // La qualité choisie détermine le rendu de l'image et
      // la taille prise sur le disque
      jpg.CompressionQuality:=Qualite.Value;
      // Image en couleur
      jpg.GrayScale:=False;
      // Copie du BMP dans le JPG
      jpg.Assign(bmp);
      // Et sauvegarde du JPG
      jpg.SaveToFile(Sauver.FileName);
    Finally
      jpg.Free;
      bmp.Free;
    End;
  End;
End;

End.

Les sources présentées sur cette page sont libres de droits et vous pouvez les utiliser à votre convenance. Par contre, la page de présentation constitue une œuvre intellectuelle protégée par les droits d'auteur. Copyright © 2003 Bruno Guérangé. Aucune reproduction, même partielle, ne peut être faite de ce site et de l'ensemble de son contenu : textes, documents, images, etc. sans l'autorisation expresse de l'auteur. Sinon vous encourez selon la loi jusqu'à trois ans de prison et jusqu'à 300 000 € de dommages et intérêts.

Responsables bénévoles de la rubrique Delphi : Gilles Vasseur - Alcatîz -