 |
|
 |
|
 |
9 - CONVERTIR UN BMP EN JPG
|
|
|
|
PRÉSENTATION :
Programme de conversion d'une image BMP en JPG
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 oeuvre intellectuelle protégée par les droits d'auteurs. 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'à 3 ans de prison et jusqu'à 300 000 E
de dommages et intérêts.
Cette page est déposée à la
SACD.
|
