Discussion :

[Matt2094]

Bonjour à tous,

Je cherche un moyen de sauvegarder un TBitmap au format JPG. Est-ce-que quelqu'un en connait un?

Merci d'avance.


P.S : j'avoue que je n'ai pas beucoup chercher

[tourlourou]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
var 
bmp: TBitmap;
jpg: TJpegImage;
begin
bmp:=TBitmap.Create;
bmp.LoadFromFile('test.bmp');
jpg:=TJpegImage.Create;
jpg.Picture.Graphic.Assign(bmp); // tu colles le bitmap dans un TJpeg
jpg.Picture.SaveToFile('bien_vu.jpg'); // tu le sauves
bmp.Free;
jpg.Free;
end;

[Matt2094]

Merci !