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