SavePicture !!

Question

Salut



Pourquoi lorsque je fais "SavePicture" pour obtenir une image BMP a
partir d un JPG , la qualite du BMP par rapport au JPG est vraiment
moins bonne !!



thx !


Exemple :



JPG origine :



BMP :




Herve

Gobillot · Answer

il n'y a pas de pertes de qualit&#233; de JPG en BMP sauf que l&#224; t'as redimentionn&#233; mais la perte de qualit&#233; est minime.
mais pourquoi donnes tu un JPG alors que le SavePicture ne fait que des BMP ?
j'ai repris ton image31zy.jpg dans un PictureBox, redimentionn&#233; avec PaintPicture pour la mettre en 385x404 et sauvegarder en BMP
r&#233;sultat --> qualit&#233; pratiquement identique &#224; l'original.

ensuite avec un logiciel j'ai diminu&#233; le nombre de couleurs pour passer en 16 couleurs et j'obtiens &#224; peu pr&#232;s ton r&#233;sultat.

Daniel

Seth77 · Answer

En fait les image qui sont dans le message sont juste des morceau d image.

Tu vois bien les differences de qualites des deux images ?

J ai des JPG que je DOIS convertir en BMP pour pouvoir les applique comme fond d ecran.

Oups .... est ce que si l objet IMAGE que j utilise avec SavePicture a l option Stretch=true cela modifie la qualite ?

Herve

Gobillot · Answer

Non &#231;a n'a aucune importance, avec un objet IMAGE, l'image sauvegard&#233;e n'est pas ce que tu vois mais ce que tu as charg&#233;, quelque soit la taille de l'objet et quelque soit l'option Strech.

On dirait vraiment que l'image est repass&#233;e en 16 couleurs avant d'&#234;tre reconvertie en JPG.

Pour mieux juger, il faudrait quand m&#234;me le BMP celui qui a &#233;t&#233; cr&#233;e par SavePicture.

Daniel

cqui789 · Answer

Je vois la difference entre les images que tu donne, c'est un probleme
de nombre de couleurs, mais quand je reproduit chez moi, je n'ai pas ce
probleme.

peut-etre, au chargement de l'image dans le picturebox, tu entre une valeur pour les dimentions ou la qualite de la couleur?





Private Sub Picture1_Click()

Picture1.Picture = LoadPicture("C:\asd.jpg")

Call SavePicture(Picture1, "C:\asd.bmp")

End Sub

Gobillot · Answer

un truc tout b&#234;te qui n'a besoin ni d'image ni de PictureBox

    Dim pic As Picture
    Set pic = LoadPicture("c:\img102/9223/image31zy.jpg")
    SavePicture pic, "c:\img102/9223/image31zy.bmp"

Daniel

Seth77 · Answer

Voici comment je fais :



        FondE.Picture = LoadPicture(Liste)        

        P = CheckPath(App.Path, "wp.bmp")

        SavePicture FondE, P

Herve

Seth77 · Answer

j ai teste le code de Gobillot...et j ai toujours une image de moins bonne qualite en BMP.


Herve

Gobillot · Answer

Alors l&#224; je ne comprends plus, toute la conversion s'est pass&#233;e en m&#233;moire sans passer par l'affichage &#233;cran ???
est-ce que le BMP en sortie est en 24 bits ?

Daniel

Seth77 · Answer

oui


Herve

Gobillot · Answer

si tu me donnes ton mail,
je peux t'envoyer l'image que j'ai obtenu avec ton exemple: 269010 octets

Daniel

Seth77 · Answer

seth_757@yahoo.fr

Herve

Gobillot · Answer

j'ai compar&#233; ton fichier avec celui que j'ai obtenu, &#224; part l'ent&#234;te tout est diff&#233;rent.
si je compte le nombre de couleurs, je trouve 44461 chez moi et seulement 2896 chez toi.
il doit y avoir un probl&#232;me de configuration mais je vois pas lequel !

Daniel

SavePicture !!

12 réponses

Discussions similaires