Discussion :

[sinfoni]

Bonjour,

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

Code :

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

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 :

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

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

[ShaiLeTroll]

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 :

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

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

[sinfoni]

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

[ALWEBER]

Une piste :

Code :

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

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;

[sinfoni]

@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

[ALWEBER]

La solution se trouve certainement dans :
la

function TBitmapCodecQuartz.SaveToFile

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

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