redimension poids image

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

Salut ThWilliam,

je te remercie pour l'info, je vais essayer !!

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

---

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.

---

Croc (click me)

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

@+

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

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.

@+