[*.jpg] Réduire le poids.Résolu

Question

Mesdames et messieurs je vous salue,

Comme pour beaucoup de posts vous comprendrez que ma question est dans le titre, je souhaiterais connaitre en Delphi le moyen de réduire la taille ( en octets ) d'un fichier *.jpg.

Je vous vois venir d'ici : cherche sur le site ou chez Google l'ami des enfants perdus et tu trouveras un moyen pour diminuer les dimensions d'un *.jpg ce qui en réduira le poids.
En effet... C'est une solution... Et ne vous en faites pas je l'ai cherché cela et je l'ai même trouvé :] ...
Cependant cela ne me suffit pas (On en veut toujours plus lol...). Ce que je voudrais connaitre c'est le moyen de diminuer la qualité du *.jpg pour réduire sa taille. Genre quand vous avez votre *.bmp, vous réduisez sa taille en le compressant en *.jpg, mais comme celui ci est encore trop gros vous en réduisez les dimensions, encore pour lui faire perdre du poids, et ce, jusqu'à la limite de l'illisibilité du texte (si texte il y a sur l'image bien sur)...

Mais si malgré cela l'image pèse encore trop lourd pour vous, comment faites vous pour encore en réduire le poids ?
C'est exactement cela que je souhaiterais connaitre...
En vous remerciant par avance... :]

ni69 · Accepted Answer

?-)  ?-)  ?-)  ?-)  ?-)  ?-)  ?-)  ?-)  ?-)  ?-)  ?-)  ?-)  ?-) 
Dsl, j'ai oublié de libérer les composants (Free)... 

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
ImageJPG.Free;
ImageJPG2.Free;
ImageBMP.Free;
end;


Voilà c'est réparé...  :) 

@+
Bonne Prog'
Nico

N'oubliez pas de cliquer sur Réponse acceptée lorsque la réponse vous convient !  :)

ni69 · Answer

Slt !

Pose un Bouton sur ta form.

uses jpeg;

var
  ImageJPG: TJpegImage;
  ImageJPG2:TJpegImage;
  ImageBMP: TBitmap;

procedure TForm1.FormCreate(Sender: TObject);
begin
 ImageJPG := TJpegImage.Create;
 ImageJPG2:= TJpegImage.Create;
 ImageBMP := TBitmap.Create;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
    ImageJPG.LoadFromFile(PChar('c:\Image.jpg'));
    ImageBMP.Assign(ImageJPG);
    ImageJPG2.Assign(ImageBMP);
    ImageJPG2.CompressionQuality := 80;
    ImageJPG2.SaveToFile(PChar('c:\ImageModif.jpg'));
end;


80 est un bon niveau de qualité. Pour que la qualité du fichier soit supérieure, mets un nombre supérieur à 80, inversement, pour une image de moins bonne qualité donc de plus petite taille, mets un nombre inférieur à 80.

@+
Bonne Prog'
Nico

N'oubliez pas de cliquer sur Réponse acceptée lorsque la réponse vous convient !  :)

kinkey_wizard · Answer

Yeah... Merci bien Nico... ;]

[*.jpg] Réduire le poids.

3 réponses

Votre réponse

Discussions similaires