Taille d'une JPEG [Résolu]

Caribensila 2684 Messages postés jeudi 15 janvier 2004Date d'inscription 26 juillet 2018 Dernière intervention - 23 déc. 2004 à 17:14 - Dernière réponse : ni69 1529 Messages postés samedi 12 juin 2004Date d'inscription 5 juillet 2010 Dernière intervention
- 23 déc. 2004 à 22:02
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 :)
Afficher la suite 

Votre réponse

6 réponses

Meilleure réponse
cs_ManChesTer 378 Messages postés vendredi 20 octobre 2000Date d'inscription 11 décembre 2013 Dernière intervention - 23 déc. 2004 à 20:19
3
Merci
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.

Merci cs_ManChesTer 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 93 internautes ce mois-ci

Commenter la réponse de cs_ManChesTer
ni69 1529 Messages postés samedi 12 juin 2004Date d'inscription 5 juillet 2010 Dernière intervention - 23 déc. 2004 à 18:30
0
Merci
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 ! ;)
Commenter la réponse de ni69
Caribensila 2684 Messages postés jeudi 15 janvier 2004Date d'inscription 26 juillet 2018 Dernière intervention - 23 déc. 2004 à 18:47
0
Merci
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. :)
Commenter la réponse de Caribensila
ni69 1529 Messages postés samedi 12 juin 2004Date d'inscription 5 juillet 2010 Dernière intervention - 23 déc. 2004 à 18:56
0
Merci
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 ! ;)
Commenter la réponse de ni69
Caribensila 2684 Messages postés jeudi 15 janvier 2004Date d'inscription 26 juillet 2018 Dernière intervention - 23 déc. 2004 à 21:20
0
Merci
C'est exactement ce que je cherchais. C'est propre et rapide.
Merci beaucoup ManChesTer!
Commenter la réponse de Caribensila
ni69 1529 Messages postés samedi 12 juin 2004Date d'inscription 5 juillet 2010 Dernière intervention - 23 déc. 2004 à 22:02
0
Merci
Merci ManChesTer :)
Commenter la réponse de ni69

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.