Discussion :

[Tchello]

l'objectif est de réaliser un programme qui compresse une liste d'image jpeg en dimension et en mémoire

par exemple je pars d'une image au format (1600x1200) le but est d'obtenir une image plus petite en taille (800x600) mais aussi en mémoire et enregistrable.

je cherche une méthode de compression simple et efficace ? :

Ps la fonction strech est inefficace puisque on obtient la même image (non compressé)


------

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
17
18
19
20
21
22
procedure TForm1.Button1Click(Sender: TObject);
var
  ImJpeg: TJPEGImage;
begin
  ImJpeg := TJPEGImage.Create;
 
  try
    ImJpeg.LoadFromFile('c:\(4).jpg');
	   label1.Caption:= intToStr(ImJpeg.Width);
   	   label2.Caption:= intToStr(ImJpeg.Height);
 
	   (...)  { compression de l'image  pour 
		    obtenir une image définitive
		    plus petite en taille et en mémoire}
	   (...)
 
    ImJpeg.SaveToFile('c:\(4_plus).jpg');
 
  finally
    ImJpeg.Free;                             
  end;
end;

[Balise [code] rajoutée par Nono40]

[Nono40]

Ce que tu veux faire c'est ceci :
http://nono40.developpez.com/sources/source0036.html

[Tchello]

j'vais essayer !!!

merci pour la balise

[delphi-fan]

l'objectif est de réaliser un programme qui compresse une liste d'image jpeg en dimension et en mémoire

Juste une précision : le format .jpg est déjà un format compressé : ce que tu recherches en fait, c'est un moyen efficace de redimensionnement à l'écran et en mémoire . Compresser davantage des .jpg (en .zip ou autre) ne présenterait qu'un gain en taille négligeable et utiliserait davantage le processeur ...

A+