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
- Taille d'une JPEG
- Taille d'un JPEG [Résolu] (Résolu) » Forum - Delphi / Pascal
- Lire la taille d'une image d'un fichier jpeg (très rapide) » Codes sources - Visual Basic / VB.NET (API)
- Comment récuperer la taille d'une image JPEG [Résolu] (Résolu) » Forum - Delphi / Pascal
- Taille d'une Image jpeg pour fichier binaire. » Forum - Delphi / Pascal
- Taille d'un fichier » Codes sources - Visual Basic / VB.NET (Fichier / Disque)
6 réponses
Meilleure réponse
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.
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.
Avec quelques mots c'est encore mieux Ajouter un commentaire
a aidé 93 internautes ce mois-ci
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 ! ;)
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 ! ;)
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. :)
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. :)
L'aide de Delphi nous dit ceci :
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 ! ;)
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 ! ;)
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.