Taille d'une JPEGRésolu

Question

Bonjour  à tous.

Existe-il un moyen de connaître la nouvelle taille mémoire d'une image JPEG après sa compression?
Ce serait juste pour évaluer la taille du fichier final.
J'ai fouillé l'aide en ligne de Delphi et je n'ai rien trouvé à ce sujet...
Si quelqu'un peut me mettre sur une voie?  merci  :)

cs_ManChesTer · Accepted Answer

Ceci devrais répondre a ta question :

procedure TForm1.BitBtn1Click(Sender: TObject);
Var Bmp  : Tbitmap;
    Jpeg : TJpegImage;
    Strm : TMemoryStream;
begin
 if Opendialog1.Execute then
 begin
  Bmp:=Tbitmap.Create;
  Bmp.LoadFromFile(Opendialog1.FileName);
  Strm:=TMemoryStream.Create;
  Bmp.SaveToStream(Strm);
  ShowMessage('Taille en Bmp :'+Inttostr(Strm.Size div 1024)+'Kb');
  Strm.Free;
  Jpeg := TJpegImage.Create;
  Jpeg.Assign(Bmp);
  Strm:=TMemoryStream.Create;
  Jpeg.SaveToStream(Strm);
  ShowMessage('Taille en Jpeg :'+Inttostr(Strm.Size div 1024)+'Kb');
  Strm.Free;
  Bmp.Free;
  Jpeg.Free;
 end;
end;

Bon Coding ....

ManChesTer.

ni69 · Answer

Tu pourrais peut-être enregistrer tes deux images (avant et après compression) dan un dossier temporaire et ainsi connaître leur taille sur le disque...
Il y a surement une meilleure solution, mais je ne l'ai pas encore trouvée...  :sad) 

@+
Bonne Prog'
Nico

N'oubliez pas de cliquer sur Réponse acceptée lorsque la réponse vous convient !  ;)

Caribensila · Answer

Ben, c'est ce que je vais faire si il n'y a pas d'autre solution.  lol

Je suis en train d'essayer avec :

GetHeapStatus.FreeSmall ;

Ca a l'air de correspondre à peu prés.
Mais, je ne comprends pas bien les données que renvoie cette fonction.
Je me replonge dedans!

En tout cas, merci pour ta réponse.  :)

ni69 · Answer

L'aide de Delphi nous dit ceci : 
FreeSmall : Nombre total d'octets de petits blocs de mémoire non alloués actuellement par votre programme
Je ne pense pas que cela soit la meilleure solution pour trouver la taille de l'image...

@+
Bonne Prog'
Nico

N'oubliez pas de cliquer sur Réponse acceptée lorsque la réponse vous convient !  ;)

Caribensila · Answer

C'est exactement ce que je cherchais. C'est propre et rapide.
Merci beaucoup ManChesTer!

ni69 · Answer

Merci ManChesTer  :)

Taille d'une JPEG

6 réponses

Votre réponse

Discussions similaires