Redimensionner une image jpg ou bmp

Signaler
Messages postés
110
Date d'inscription
dimanche 2 mars 2003
Statut
Membre
Dernière intervention
19 juin 2012
-
Messages postés
1
Date d'inscription
samedi 17 novembre 2007
Statut
Membre
Dernière intervention
18 novembre 2007
-
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

7 réponses

Messages postés
4715
Date d'inscription
dimanche 26 février 2006
Statut
Modérateur
Dernière intervention
27 mars 2018
12
jette un oeil ici :
http://nono40.developpez.com/sources/source0036/
@+

cantador
Messages postés
3811
Date d'inscription
vendredi 23 juillet 2004
Statut
Modérateur
Dernière intervention
15 juin 2020
30
Salut,
alors ça c'est pas la bonne solution c'est une vielle méthode qui est dépassé
si tu veux conserver une bonne qualité d'image il faut utiliser la procédure ScaleImage de l'unité GraphUtil qui donne des ré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é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
Messages postés
644
Date d'inscription
mardi 22 avril 2003
Statut
Membre
Dernière intervention
9 janvier 2017

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
Messages postés
4715
Date d'inscription
dimanche 26 février 2006
Statut
Modérateur
Dernière intervention
27 mars 2018
12
cirec,
je ne trouve pas la procédure ScaleImage dans GraphUtil..
Peut-être porte t-elle un autre nom ou je n'ai pas la bonne version de l'unité ?
si tu pouvais me renseigner.
merci par avance.
cantador
Messages postés
3811
Date d'inscription
vendredi 23 juillet 2004
Statut
Modérateur
Dernière intervention
15 juin 2020
30
Salut,
Elle se trouve dans l'unité GraphUtil de la version Delphi2005, si tu n'as pas cette version tu peux utiliser la fonction de Mauricio c'est pas tout à fait la même chose mais elle permet de réduire une image (BMP) tout en conservant une bonne qualité au niveau du rendu.

@+
Cirec
Messages postés
4715
Date d'inscription
dimanche 26 février 2006
Statut
Modérateur
Dernière intervention
27 mars 2018
12
donc normal puisque j'ai D7..
merci je vais tester la fonction de mauricio

cantador
Messages postés
1
Date d'inscription
samedi 17 novembre 2007
Statut
Membre
Dernière intervention
18 novembre 2007

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 ?)