Redimension poids image [Résolu]

gabs77 380 Messages postés mardi 6 décembre 2005Date d'inscription 8 octobre 2008 Dernière intervention - 19 avril 2007 à 21:06 - Dernière réponse :  Utilisateur anonyme
- 20 avril 2007 à 22:32
salut,
je cherche a faire un script pour tester le poids de l image et s il fait plus d un certain poids de le redimensionner au seuil maximum.
ex : la limite est de 700ko et une image fait 1Mo => il doit donc etre redimensionner afin ke le poids fasse 700ko

je sais tester la taille de l image mais je vois pas comment faire pour le redimensionner pour faire un certain poids
Afficher la suite 

7 réponses

Répondre au sujet
ThWilliam 424 Messages postés mardi 3 janvier 2006Date d'inscription 26 novembre 2013 Dernière intervention - 20 avril 2007 à 11:20
+3
Utile
Salut gabs77.

Si tu travailles en bmp 24 bits/pixel, ta limite est de 700.000 octets / 3 = 233.333 pixels.
Tu as par exemple une image de 700 x 480 pixels = 336.000 pixels.
Le pourcentage de réduction racine carrée(233.333 / 336.000) 0,83333
Nouvelle largeur : 700 x 0,83333 = 583
Nouvelle hauteur : 480 x 0,83333 = 400
soit  un bitmap de 233.200 pixels
Il ne te reste plus qu'à faire un stretch de l'image originale.

A +
Thierry
Cette réponse vous a-t-elle aidé ?  
Commenter la réponse de ThWilliam
gabs77 380 Messages postés mardi 6 décembre 2005Date d'inscription 8 octobre 2008 Dernière intervention - 20 avril 2007 à 11:32
0
Utile
Salut ThWilliam,


je te remercie pour l'info, je vais essayer !!
Commenter la réponse de gabs77
Cirec 4217 Messages postés vendredi 23 juillet 2004Date d'inscription 3 avril 2018 Dernière intervention - 20 avril 2007 à 12:14
0
Utile
Salut,

la réponse de ThWilliam n'est qu'une partie de la composition d'un fichier BMP

En effet la dessus s'ajoute encore la taille du FileHeader et celle de l'InfoHeader

pour en savoir un peut plus sur le sujet voir ceci : (la réponse acceptée)
http://www.delphifr.com/infomsg_EFFECTUER-SCREENSHOT-UTILISANT-UNIQUEMENT-API-WINDOWS_802282.aspx?p=2

Et pour faire un "Stretch" sur ton image je te conseil d'utiliser l'API StretchBLT en mode HalfTone
c'est le meilleur résultat que tu puisses obtenir
 
@+
Cirec

<hr size="2" />
Commenter la réponse de Cirec
f0xi 4304 Messages postés samedi 16 octobre 2004Date d'inscription 9 mars 2018 Dernière intervention - 20 avril 2007 à 18:36
0
Utile
les bitmaps oui, mais il existe aussi le JPG et le PNG qui tout deux offre un taux de compression interressant pour garder :
1) une image de grande dimension
2) une taille faible du fichier final.

en Bitmap, le header pese 56 octets et les pixels se calcules par le rapport
P = L x h x (b/8)
donc le poids total d'un bitmap nous donne :

P = 56 + (L x h x (b/8))

L = largeur
h = hauteur
b = taille des pixels en bits

ce qui nous donne la fonction :

function GetBitmapSize(BMP : TBitmap) : int64;
var BR : single;
begin
  case BMP.PixelFormat of
    pf1bit : BR := 0.125; { approximation }
    pf4bit : BR := 0.5;   { approximation }
    pf8bit : BR := 1;
    pf15bit: BR := 1.875; { approximation }
    pf16bit: BR := 2;
    pf24bit: BR := 3;
    pf32bit: BR := 4;
    else
      BR := 4; { pfDevice ou pfCustom non supporté, mise par defaut 32 bits }
  end;
  result := 56 + round((BMP.Width * BMP.Height) * BR);
end;
ensuite 700Ko 700000 octets (nn) mais si on parle de Kio (KibiOctet) 700Ko 716 800 octets
ce qui laisse tout de meme 16800 octets de plus.

<hr size="2" width="100%" />Croc (click me)
Commenter la réponse de f0xi
Utilisateur anonyme - 20 avril 2007 à 21:35
0
Utile
Salut,

Les coefficients de proportinnalités et les produits en croix, ils sentent le caca? .

PoidsImage----->x%
PoidsMax------->1
Donc X=PoidsImage/PoidsMax
D'ou Hauteur Finale:=H Initiale / X et Largueur Finale:=Largueur Initiale / X

@+
Commenter la réponse de Utilisateur anonyme
gabs77 380 Messages postés mardi 6 décembre 2005Date d'inscription 8 octobre 2008 Dernière intervention - 20 avril 2007 à 22:27
0
Utile
Salut messieurs,
tous vos messages me semblent interessantes et très instructives et je vous remercie car j'apprend pas mal de choses.
Pour mon problème, j'ai optée pour la solution de ThWilliam en version codée que j'ai réalisé :

procedure TForm1.ResizeJpeg(img : Timage; FileName, Dest: String;
      const MaxSize: integer);
var
  Jpg : TJPEGImage;
  bmp : TBitmap;
  Graph : TGraphic;
  Plimit : Real;
  Pimg, W, H : integer;
  echelle :real;
begin
Jpg := TJPEGImage.Create;
Jpg.PixelFormat := jf24Bit;
  if ExtractFileExt(FileName) <> '.bmp' then
    begin
      Jpg.LoadFromFile(FileName);
      W := Jpg.Width;
      H := Jpg.Height;
      Graph := Jpg;
    end
  else
    begin
      img.Picture.LoadFromFile(FileName);
      W := img.Width;
      H := img.Height;
      Graph := img.Picture.Graphic;
    end;
  Pimg := W * H;  PLimit :MaxSize/3; // 24Bit par Pixels / 8Bit par octet 3 octet par pixels
  echelle := sqrt(Plimit/Pimg);
  bmp := TBitmap.Create;
  bmp.PixelFormat := pf24bit;
  bmp.Width := round(W * echelle);
  bmp.Height := Round(H * echelle);
  bmp.Canvas.StretchDraw(bmp.Canvas.ClipRect, Graph);
  bmp.SaveToFile(Dest);
  Jpg.Free;
  img.Picture.Assign(bmp);
  bmp.Free;
end;

procedure TForm1.button1Click(Sender :Tobject);
begin
if openpicture.execute then
   begin
   Dest := ExtractFilePath(ParamStr(0))+'temp.bmp';
   ResizeJpeg(image1, OpenPicture.FileName, Dest, 716800);
   end;
end;

cela marche tres bien !!!


seulement il enregistre uniquement en bitmap car si je l 'enregistre en Jpeg, à l'affichage, le programme reconnait une erreur de compatibilité de Jpeg car  la méthode que j'utilise, si je lui affecte l'extension ".jpg" au lieu de ".bmp" ce sera un faux ".jpg"
et si au lieu d enregistrer avec la méthode : "bmp.SaveToFile(Dest);" avec la classe TBitmap, j enregistrai avec la méthode : "
DestJpeg.Assign(bmp);
DestJpeg.SaveToFile(Dest);
" avec la classe TJpegImage => le résultat sera la conservation des dimensions de l'image mais le poids est compressé.
donc je souhaiterais enregistré l'image en Jpeg mais a 700ko pour une qualité optimale et un poids ne dépassant pas ce seuil
Commenter la réponse de gabs77
Utilisateur anonyme - 20 avril 2007 à 22:32
0
Utile
gabs77



Toutes ces question ont déjà été abordées sur CS.

De mémoire il y a eu un échange entre Caribensila et f0xi sur comment déterminer la taille d'un JPeg (Caribensila avait utilisé un stream).

Quand au redimensionnement Jpeg/Bmp et autre, Delphiprog a fait des sources la dessus.

Tout ca pour te dire, que les réponses sont déjà sur CS alors à toi de les trouver comme un grand.

@+
Commenter la réponse de Utilisateur anonyme

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.