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
36 - REDIMENSIONNER UNE IMAGE .JPG

PRÉSENTATION : Programmer pour changer les dimensions d'un fichier .JPG en gardant les proportions.
ZIP : Téléchargez le zip APERÇUS :

NOTES :

CODE :
Unit Unit1;
// Redimensionner un .JPG
//
// Par Nono40 : http://nono40.developpez.com   http://nono40.fr.st
//              mailTo:nono40@fr.st
//
// Le 25/01/2002
//

Interface

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

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

Var
  Form1: TForm1;

Implementation

Uses Jpeg;
{$R *.dfm}

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 adpapté à la taille voulue
    Bmp.Width  :=Jpg.Width  * Coeff.Value Div 100;
    Bmp.Height :=Jpg.Height * Coeff.Value 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;

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 -