Delphi: Charger Image JPEG sur TBitmap

Aujourd'hui, je veux vous montrer comment charger une image JPG d'un fichier dans un TBitmap dans Delphi, par exemple, pour éditer cette image de manière arbitraire.

En haut de notre unit, nous devons ajouter l'unit "JPEG" à notre clause uses:

uses Windows, ... ,JPEG;

Et voici notre code qui charge le JPG et l'enregistre dans le bitmap:

procedure TForm1.Button1Click(Sender: TObject);
var
   jpg: TJpegImage;
   bmp: TBitmap;
begin
   jpg := TJpegImage.Create;
   jpg.LoadFromFile('C:\image.jpg');
 
   bmp := TBitmap.Create;
   bmp.Assign(jpg);
 
   // édition d'image
 
   bmp.free;
   jpg.free;
end;

Tout d'abord, nous créons une nouvelle image jpg vide et nous utilisons LoadFromFile pour y charger une image arbitraire.

Après cela, nous créons un bitmap vide et avec "Assign", nous pouvons charger notre "jpg" dans le bitmap.

Ensuite, nous pouvons effectuer les modifications souhaitées et après, nous ne devons pas oublier de libérer à la fois "bmp" et "jpg".