22 Voix

Delphi: Charger Image JPEG sur TBitmap

Tutoriel de Delphiain | 10/05/2021 à 15:59

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".

RépondrePositifNégatif

Sur l’Auteur

AvatarL’auteur n’a pas encore ajouté de brève description de profil.
Voir Profil

 

Sujets Connexes

jQuery: Changer Image

Question | 1 Réponse

Avis Important

Veuillez noter: Les contributions publiées sur askingbox.com sont des contributions d’utilisateurs et ne doivent pas remplacer les conseils d’un professionnel. Ils ne sont pas vérifiés par des indépendants et ne reflètent pas nécessairement l’opinion de askingbox.com. Apprendre encore plus.

Participer

Posez votre propre question ou écrivez votre propre article sur askingbox.com. Voici comment.