redimensionner une image jpg ou bmp

Question

bonsoir

je voudrais redimensionner une image jpg ou bmp. en important deja l'image avec opendialogpicture puis pour le redimensionnement je voudrais qu'il fonctionne avec les centimetre

ex pour tel ou tel photo je voudrais qu'elle s'imprime par exemple largeur 4 cm longueur 10 cm

est ce possible si oui comment???

cordialemnt

cs_cantador · Answer

jette un oeil ici :
http://nono40.developpez.com/sources/source0036/
@+

cantador

Cirec · Answer

Salut,
alors &#231;a c'est pas la bonne solution c'est une vielle m&#233;thode qui est d&#233;pass&#233;
si tu veux conserver une bonne qualit&#233; d'image il faut utiliser la proc&#233;dure ScaleImage de l'unit&#233; GraphUtil qui donne des r&#233;sultats plus que satisfaisant et ce dans les deux sens. Il faut l'essayer pour l'adopter 

Mais il faut, comme pour l'autre m&#233;thode d'ailleurs, que ce soit un bmp donc pour re-dimensionner un Jpg tu dois avant tout le transformer en bmp. Par contre en ce qui concerne le re-dimensionnement en cm la j'ai pas de solution pour l'instant mais ce que je peut te dire c'est que :


100 pixels en largeur = 2,50 cm
100 pixels en hauteur = 2,34 cm


@+
Cirec

yvessimon · Answer

Regarde avec ce code


function TForm_VisuTrajectoires.AutoResizeImage(Image: TImage; W,H: Integer): Boolean;

var

  X, Y: Integer;

  R: Variant;

begin

{

 redimensionne une image

}

  try

    with Image do

    begin

      X:=Picture.Width;

      Y:=Picture.Height;

      R:= X / Y;

      if H>0  then

        begin

          if (W / H)>=R

          then begin Height:=H; Width:=H*R; end

          else begin Width:=W; Height:=W / R; end;

          Stretch:=True;

        end;

    end;

    Result:=True;

  except

    Result:=False

  end;

end;



Salutation


yvessimon

cs_cantador · Answer

cirec, 
je ne trouve pas la proc&#233;dure ScaleImage dans GraphUtil..
Peut-&#234;tre porte t-elle un autre nom ou je n'ai pas la bonne version de l'unit&#233; ?
si tu pouvais me renseigner.
merci par avance.
cantador

Cirec · Answer

Salut,
Elle se trouve dans l'unit&#233; GraphUtil de la version Delphi2005, si tu n'as pas cette version tu peux utiliser la fonction de Mauricio c'est pas tout &#224; fait la m&#234;me chose mais elle permet de r&#233;duire une image (BMP) tout en conservant une bonne qualit&#233;  au niveau du rendu.

@+
Cirec

cs_cantador · Answer

donc normal puisque j'ai D7..
merci je vais tester la fonction de mauricio

cantador

lpgc · Answer

bonjour, j'ai bien travaillé il y a fort longtemps avec Delphi 2 ... et j'ai besoin de réduire des pachshot de dvd pour mon site que je réalise comme hobby
Je n'ai malheureusement pas les moyens de m'acheter Delphi (sans emploi) ...
Y a-t-il moyen d'avoir une version de Delphi chez Borland juste pour faire ce programme.  (téléchargeable sur leur site ?)

Redimensionner une image jpg ou bmp

7 réponses

Votre réponse

Discussions similaires