Discussion :

[clocktime]

Bonjour

Je veux redimensionner une image de 500*500 en 150*150.Le résultat génère une image de mauvaise qualité.

Ci-joint mon code:


#sRépertoireDéfaut, sFichier sont des chaînes

sRépertoireDéfaut = "XXX"


sFichier = fSélecteur(sRépertoireDéfaut, "", "Sélectionnez un fichier...", "Tous fichiers (*.*)"+TAB+"*.*"+RC+fFiltreImage(), "bmp,jpg", fselOuvre+fselExiste)

simage est une Image
simage=dChargeImage(sfichier)

simage..CouleurRemplissage = iBlanc
simage..Largeur = 150
simage..Hauteur = 150
dRedimensionne(simage,150,150,drHomothétique)

dSAuveImageJPEG(simage,ComplèteRep(repertoireWeb+"FR\Image\IndexGauche\")+fExtraitChemin(SAI_CheminImage,fFichier+fExtension),100)#

Est ce que quelqu'un a déjà eu le problème et éventuellement une solution?

Merci d'avance

[PaulNero]

salut l'ami,
je pense qu'il faut commencer déja par écrire cela dans ton code:
dRedimensionne(simage,simage..Largeur
simage..Hauteur,drHomothétique).
Tu peux aussi utilisé la variable interne drHomothétiqueCentré
.Sinon au pis des cas, comme tu n'utilise s guère les fonctions de dessin et que c'est juste un agrandissement, pourquoi ne pas faire un encrage en hauteur et en largeur,l'image suivra la dimension de la fenêtre


cordialement

[frenchsting]

Je l'avais fait en wd12 avec simplement :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

dRedimensionne(simage,150,150)

L'image est de qualité correcte.

Par contre, méfie toi du dsauveimagejpeg. Il faut trouver le bon réglage de la qualité : 100 n'est pas forcément le meilleur choix. Essaye la valeur par défaut qui est 80.

De plus, certains types d'images se prétent mal à l'encodage jpeg (dessins avec très peu de couleurs notamment).