Problème avec Jpeg.CompressionQuality

**ChPr** · 25/04/2018, 16h51

Bonjour à toutes et à tous,

Dans un programme, je charge un millier d'images Jpg. Sur ce millier, j'en réenregistre 900 telles quelles. Les cent autres sont modifiées en taille avant d'être réenregistrées.

Pour ces 900, j'écris ce qui suit :

Code :

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

1
2
3
4
5
6
7
8
9
for i:= 0 to 899 do
begin
  Pict:= Tpicture.Create;
  Pict.LoadFromFile(FchE[i]);
  ... // D'autres tâches liées à ces fichiers
  Pict.Jpeg.Compression.Quality:= 50;
  Pict.SaveToFile(FchS[i]);
  Pict.Free;
end;

Ça fonctionne bien sauf que le taux de compression que j'impose n'est pas pris en compte.

Je modifie mon code en introduisant un autre objet Tpicture tel que :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
for i:= 0 to 899 do
begin
  Pict:= TPicture.Create;
  Pict.LoadFromFile(FchE[i]);
  ... // D'autres tâches liées à ces fichiers
  PictDst:= TPicture.Create;
  PictDst.Bitmap.Assign(Pict.Bitmap); // Recopie de Pict dans PictDst
  PictDst.Jpeg.Compression.Quality:= 50;
  PictDst.SaveToFile(FchS[i]);
  Pict.Free;
  PictDst.Free;
end;

Cette fois-ci, mon taux de compression est bien pris en compte, mais, à cause de la recopie, cela prend beaucoup plus de temps que la première solution.

Existe-t-il une astuce pour faire en sorte qu'avec un seul TPicture, le taux de compression soit pris en compte ?

Merci pour vos renseignements.

Cordialement.

Pierre

**Jipété** · 25/04/2018, 19h14

Salut,

peut-être en n'utilisant pas TPicture mais plutôt directement TJPEGImage ?

Exemple (non testé !)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
procedure TForm1.CompressGettingImage;
var
  ImageJPG:TJPEGImage; path:string;
begin
  if OpenImage.Execute then begin
    ImageJPG := TJPEGImage.Create;
    path := OpenImage.FileName;
    try
      ImageJPG.LoadFromFile(path);
      ImageJPG.CompressionQuality := 50;
      ImageJPG.SaveToFile('fileCompress.jpg');
    finally
      ImageJPG.Free;
    end;
  end;
end;

ça vient de là, complètement à côté de la plaque (mais tout sert à tout dans la vie)

**ChPr** · 25/04/2018, 19h54

Merci Jipété pour cette proposition. Malheureusement, elle fait exactement ce que faisait ma solution avec un seul TPicure : le coefficient de compression n'est pas pris en compte.

Par ailleurs, j'avais fait un suivi pas à pas avec le debugger et avec ma première solution et il me semble (il faudra que je revérifie) que dans le cheminement, un TJPEGImage était mis en œuvre.

Cordialement.

Pierre

**BeanzMaster** · 25/04/2018, 22h40

Salut essaye comme ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
for i:= 0 to 899 do
var 
  PictDst : TJPEGImage;
begin
  Pict:= TPicture.Create;
  Pict.LoadFromFile(FchE[i]);
  ... // D'autres tâches liées à ces fichiers
  PictDst := TJpegImage.Create;
  PictDst.CompressionQuality := 90;
  PictDst.Assign(Pict.Bitmap);
  PictDst.SaveToFile(FchS[i]);  
  Pict.Free;
  PictDst.Free;
end;

**Jipété** · 25/04/2018, 22h48

Envoyé par BeanzMaster

Salut essayes comme ceci :

Code :

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

  PictDst.Assign(Pict.Bitmap);

J'ai peur qu'on retombe sur la copie du TBitmap vers le TPicture, qui rallonge le processus...

Un truc probablement complètement idiot mais qui ne tente rien n'a rien, pourrait être de tester la 1^re option (celle qui n'a pas d'action) en inversant deux lignes :

Code :

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

1
2
3
4
5
6
7
8
9
10
for i:= 0 to 899 do
begin
  Pict:= Tpicture.Create;
  Pict.Jpeg.Compression.Quality:= 50; // "remonté" ici
  Pict.LoadFromFile(FchE[i]);
  ... // D'autres tâches liées à ces fichiers
//  Pict.Jpeg.Compression.Quality:= 50;
  Pict.SaveToFile(FchS[i]);
  Pict.Free;
end;

**BeanzMaster** · 25/04/2018, 23h04

Je viens de faire un petit test

Le petit bout de code que je t'ai donné fonctionne le taux de compression est bien pris en charge par contre il y a un bug à l'ouverture d'un JPEG il semblerai que l'information sur la compression ne soit pas mise à jour. Elle affiche toujours 75

EDIT :

Je viens de tester ce petit de code quand même par curiosité :

Pic.jpeg.CompressionQuality := 15;
Pic.jpeg.SaveToFile(SPD.FileName);

Celui-ci ne fonctionne pas. L'image est bien sauvegardée, mais le taux de compression est identique. C'est vraiment la misère la gestion des bitmaps avec Lazarus

**Jipété** · 25/04/2018, 23h22

Un truc à lire et à méditer (écrit par une pointure en Delphi) :
"Changing properties like CompressionQuality does not force compression.
To force compression, call Compress."
http://codeverge.com/embarcadero.del...ity-is/1076400

Un autre truc à voir et à traduire : https://gathering.tweakers.net/forum...essages/468180

Et sinon, tous les exemples que j'ai pu voir utilisent un TBitmap intermédiaire (un embryon d'explication dans un des bouts de code du lien précédent).

**BeanzMaster** · 25/04/2018, 23h40

Envoyé par Jipété

Un truc à lire et à méditer (écrit par une pointure en Delphi) :
"Changing properties like CompressionQuality does not force compression.
To force compression, call Compress."
http://codeverge.com/embarcadero.del...ity-is/1076400

Un autre truc à voir et à traduire : https://gathering.tweakers.net/forum...essages/468180

Et sinon, tous les exemples que j'ai pu voir utilisent un TBitmap intermédiaire (un embryon d'explication dans un des bouts de code du lien précédent).

Intéressant le deuxième lien. Seul soucis la fonction Compress n'est pas disponible avec Lazarus

Ci-joint mon petit projet de test : SaveJPEG.zip

**Jipété** · 26/04/2018, 09h07

Envoyé par BeanzMaster

Intéressant le deuxième lien. Seul souci, la fonction Compress n'est pas disponible avec Lazarus

La messe est dite, plus qu'à aller à la pêche...

D'autant plus que dans ce lien, le deuxième post suggère de déclarer un bug, le troisième dit qu'il l'a fait mais sans donner son numéro pour qu'on puisse suivre l'affaire,

On peut en conclure que 7 ans plus tard on n'a pas avancé d'un poil...

**ChPr** · 26/04/2018, 12h18

Je vous remercie tous pour les propositions que vous m'avez faites.

J'ai passé la matinée à les essayer ... Malheureusement, aucune d'entre-elles ne donne satisfaction.

Qu'il s'agisse de déplacer l'instruction de compression, d'utiliser TJPEGImage au lieu de TPicture.

La seule chose qui fasse que le taux de compression soit pris en compte est d'utiliser un transfert : PictDst.Assign(Pict.Bitmap);. Mais c'est au prix d'un augmentation significative du temps de traitement.

Comme Jipété le dit, il semble que la messe est dite

Cordialement.

Pierre

**BeanzMaster** · 26/04/2018, 14h46

Envoyé par ChPr

Je vous remercie tous pour les propositions que vous m'avez faites.

J'ai passé la matinée à les essayer ... Malheureusement, aucune d'entre-elles ne donne satisfaction.

Qu'il s'agisse de déplacer l'instruction de compression, d'utiliser TJPEGImage au lieu de TPicture.

La seule chose qui fasse que le taux de compression soit pris en compte est d'utiliser un transfert : PictDst.Assign(Pict.Bitmap);. Mais c'est au prix d'un augmentation significative du temps de traitement.

Comme Jipété le dit, il semble que la messe est dite

Cordialement.

Pierre

Au lieu de charger tes jpeg dans un TPicture tu peux les charger directement dans un TJpegImage (à moins que ce ne soit pas que des Jpeg). Et là plus besoin de transfert avec PictDst.Assign(Pict.Bitmap);As tu essayé le projet de test que j'ai joint ?

Problème avec Jpeg.CompressionQuality

Lazarus Pascal

Vue hybride

Discussions similaires

Partager

Partager