Firemonkey : TBitmap et Jpeg, plus de compression ?

Bonjour,

J'ai un projet sous delphi "classique" qui enregistrait des BMP au format JPEG compressé :

Code:

---

1 2 3 4 5 6

Jpg:=Tjpegimage.Create; // Jpg = creation d'une image JPG jpg.CompressionQuality:=80; // Compression jpg.Assign(Bitmap); // ici c'était un vcl.graphics.TBitmap ! jpg.SaveToFile(gc_jpgpath); // Enregistrer Jpg.Free;

---

Sous FireMonkey, pour la plateforme Mac OSX, le vcl.graphics.TBitmap et le Vcl.Imaging.jpeg.TJPEGImage ne sont plus utilisables.

On utilise donc à la place le FMX.Types.TBitmap. Or il permet d'enregistrer directement au format JPEG. Le code précédent devient alors :

Code:

---

1 2	Bitmap.SaveToFile(gc_jpgpath, 'JPEG'); // Fmx.Types.TBitmap ici !

---

Bien, merveilleux apparemment, puisqu'on a remplacé 5 lignes de code par une seule.

Oui MAIS : Quand les fichiers enregistrés par la première méthode pesaient 15Ko en moyenne, les mêmes fichiers enregistrés par la seconde méthode pèsent plus de 120 Ko !

Or la taille de moins de 20Ko pour les jpeg est une des contraintes imposées par le projet.

Question : Comment préciser le taux de compression lors de l'enregistrement en jpeg d'un FMX.Types.TBitmap ?

Je ne vois aucune propriété ou méthode dans les Fmx.Types.TBitmap pour faire ça, et aucune classe FMX pour les jpeg....

André.

FMX.Types.TBitmap.SaveToFile possède un paramètre optionnel Params
sous MAC, l'implementation du TBitmapCodec doit être TBitmapCodecQuartz

Il choisi le format en fonction de l'extension du fichier, ce n'est pas utile dans Params, essaye ceci, inspiré de FMX.Canvas.Mac, Ligne 497

Code:

---

Bitmap.SaveToFile(gc_jpgpath, 'quality=25');

---

Hélas cela ne change rien.
Je vais investiguer sur ce "param"...

Une piste :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

uses Vcl.Imaging.jpeg;   ..... with TJPEGImage.create do begin CompressionQuality := 80; Assign (Image1.Picture) ; SaveToFile ('essai1.jpg') ; end;

---

@ALWEBER : Oui ça c'est précisément ce que fait mon appli sous Deplhi "classique". Sous Firemonkey, plateforme Mac : Impossible. Relis mon post d'origine ;)

La solution se trouve certainement dans :
la

Citation:

---

function TBitmapCodecQuartz.SaveToFile

---

de l'unité FMX.Canvas.Mac à inclure dans ton unité
aux alentours de la ligne

Citation:

---

if System.SysUtils.CompareText(name, 'quality') = 0 then

---

Attention. j'ai la dernière release de Delphi XE2, je pense que l'unité l'unité FMX.Canvas.Mac a été modifiée
N'ayant pas de mac je n'ai pas pu tester cette solution

Bonjour,

Je reviens après quelques tests. En fait comme l'expliquait ShaiLeTroll, le format de fichier est choisi en fonction de l'extension. Or, mon application utilise une extension qui lui est propre, donc ni jpeg, ni bmp, etc. Résultat, le format réel utilisé était BMP d'où la taille.

J'ai donc résolu le problème en faisant la chose suivante :

Code:

---

1 2 3

Bitmap.SaveToFile('chemin/nomdefichiertemporaire.jpeg', ''); RenameFile('chemin/nomdefichiertemporaire.jpeg',gc_jpgpath);

---

Merci.
André.