Redimensionnement d'imageRésolu

Question

Bonjour à tous,

J'aimerais en savoir plus sur le redimensionnement d'image. Toutes les techniques que j'ai vu sur le site utilisent des PictureBox pour redimensionner les images. Or, j'aimerais pouvoir le faire par d'autres moyens (APIs, ou autres fonctions...) car d'un côté je ne veux pas être dépendant de contrôles (histoire d'être plus propre de mon point de vue...) et d'un autre le résultat est plutôt moche (l'image ainsi redimensionnée semble avoir perdu de la qualité)...

Merci d'avance à tous,

BILALoch

PCPT · Accepted Answer

salut,

voici une manière sans contrôle :
http://www.vbfrance.com/codes/DESSINER-PASSANT-PICTUREBOX-MODULE-CLASSE_43226.aspx

++
<hr size="2" width="100%" />Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp

pneau · Answer

salut
as tu regardé du coté de l'api "StretchBlt"

perso je l'utilise lorsque je souhaite géré un redimensionnement dynamique d'une picture box.... la dégradation éventuelle de l'image est plus liée à sa qualité d'origine qu'au redimensionnement proprement dit..

sur ce...

bonne journée

Pat

 Don't Worry , Be Happy 

<hr />lorsque le problème est résolu, pensez Réponse Acceptée

jmfmarques · Answer

car d'un côté je ne veux pas être dépendant de contrôles (histoire d'être plus propre de mon point de vue...) et d'un autre le résultat est plutôt moche (l'image ainsi redimensionnée semble avoir perdu de la qualité)...




Je vois mal comment tu pourrais ne pas être dépendant d'un contrôle, à moins que tu ne nous aies pas tout dit de ce que tu entends par "redimensionnement d'une image" .... Qu'est exactement pour toi une image ? Ne voudrais-tu pas plutôt parler de fichier graphique ?

Une image redimensionnée perd forcément de sa qualité (en retrécissement, il va bien falloir enlever des pixels  quelque part, par exemple... ce sera moins mal en agrandissement, mais se posera quand même un problème également ... tiens : imagine que tu augmentes la largeur d'un pixel ... lequel ajouteras-tu ?))

bilaloch · Answer

Merci pour vos réponses. Bon, alors dans l'ordre :


- pneau : je te remercie de ton idée. Je garde à l'esprit ton API si je n'ai pas d'autres solutions (car dans ton API on passe encore en arguments des contrôles PictureBox, or, c'est ce que j'aimerais éviter).

- jmfmarques : je t'explique. Une image est pour moi un fichier image. En gros j'aimerais pouvoir écrire une fonction dans un module indépendant (donc sans contrôle) qui pourrait faire quelque chose comme :
"ReDimensionner (CheminSource As String, CheminDestination As String)", où "CheminSource" désigne le lien du fichier image à redimensionner et "CheminDestination" désigne le lien du fichier image redimensionné.
Pour finir, je dirai qu'une perte de qualité dans tes deux cas est normale, mais que certains algos permettent de garder le maximum de qualité dans le fichier redimensionné par certaines techniques (par exemple, au lieu de supprimer des pixels, ça fait une sorte de moyenne entre les différents pixels de l'endroit du redimensionnement...), et je ne suis pas sûr que cela se fait rapidement en VB, c'est pourquoi je voulais en savoir davantage...

BILALoch

bilaloch · Answer

Aujourd'hui PCPT, tu es une vraie furie :D Non sérieusement, merci pour tes réponses instructives. J'aimerais te poser une question : comment puis je perdre le moins de qualité sur le redimensionnement d'une image ? Parce que je remarque bien qu'entre une classe de redim écrite en VB et le résultat obtenu sur toshop, il y a une réelle différence de qualité :(

BILALoch

PCPT · Answer

re,

c'est pas le principe d'une classe mais de ce que tu fais au final...
c'est sur que de re-dimensionner un bmp 800*600 en bmp 400*300, çà rendra bien plus net qu'un jpg de 1000*850 en bmp 400*300 ....

après reste à voir comment tu t'y prendras, à savoir ma classe (pour l'exemple), un bitblt, du stretchblt, paintpicture, gdi+ etc....

le lien que je t'ai donné permet d'avoir un hdc sans picturebox et contient quelques fonctions pratiques dont le resize mais ce n'est pas forcément optimisé pour.... à toi de voir selon tes images.
surtout si, cumulé avec ta dernière question, tu travailles en jpg! pour conserver la qualité il sera peut-être préférable de re-dimensionner avant de convertir

bon courage ++
PCPT  [AFCK]
<hr size="2" width="100%" />Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp

bilaloch · Answer

Ne t'inquiètes pas, je redimensionne l'image avant de la transformer en JPG. Mais bon... malgré cela, l'image redimensionnée en plus petite a une qualité assez médiocre :S Cela est assez étonnant d'ailleurs... J'ai ensuite essayé de rendre l'image floue avant de la redimensionner, et aussi de la pixeliser avant de la redimensionner, mais dans les 2 cas, la perte de qualité est présente... As tu une idée pour moi ? De la doc, des liens, des contacts...? :)

Merci encore,

BILALoch

PCPT · Answer

montre un bout de code? voir comment tu t'y prends ?

bilaloch · Answer

Le code que je te donne permet de redimensionner une image en une autre de 100 * 100 pixels (on centre l'image, sans la déformer). Je précise que je ne peux donner qu'un bout du code ici, pas assez de place pour le reste, donc il y a quelques appels de fonction assez incompréhensibles sans le reste du code, mais c'est le plus important. Voilà :

Public Function Redimensionner(FichierSource As String, FichierDestination As String, frmReDim As Form, PicSource As PictureBox, PicDestination As PictureBox, Taille As Integer)
    ' ---Change le pointeur de la souris---
    Screen.MousePointer = vbHourglass
    ' ---Déclaration des variables---
    Dim Ret As Long
    Dim Hauteur As Long
    Dim Largeur As Long
    Dim Recupere As Long
    Dim cDib As New cDIBSection
    Dim Bits() As Byte
    
    PicSource.AutoSize = True
    PicSource.AutoRedraw = True
    PicDestination.AutoRedraw = True
    PicSource.Appearance = 0
    PicDestination.Appearance = 0
    PicSource.BorderStyle = 0
    PicDestination.BorderStyle = 0
    
    ' ---Initialisation---
    PicSource.ScaleMode = vbPixels
    PicDestination.ScaleMode = vbPixels
    frmReDim.ScaleMode = vbPixels
    
    PicSource.Picture = LoadPicture(FichierSource)
    
    DC = GetPixelData(PicSource.Image, Bits())
    Mosaique Bits(), 0, 0, PicSource.ScaleWidth, PicSource.ScaleHeight, 5, 5
    SetPixelData DC, PicSource.Image, Bits()
    
    PicDestination.Height = Taille
    PicDestination.width = Taille
    
    If PicSource.width > PicSource.Height Then
        Recupere = PicSource.Height
    Else
        Recupere = PicSource.width
    End If
    
    PicDestination.PaintPicture PicSource, 0, 0, PicDestination.ScaleWidth, PicDestination.ScaleHeight, (PicSource.width / 2) - (Recupere / 2), (PicSource.Height / 2) - (Recupere / 2), Recupere, Recupere
    PicDestination.Picture = PicDestination.Image
    ' ---Remet le pointeur de la souris par défaut---
    
    cDib.CreateFromPicture PicDestination.Picture
    
    Screen.MousePointer = vbDefault
    
    SaveJPG cDib, FichierDestination, 100
End Function

J'espère que cela t'a un peu aidé pour comprendre mon problème. Si tu veux le code intégral, je pourrais te l'envoyer par mail.

Merci ^^

BILALoch

PCPT · Answer

http://tools.codes-sources.com/copy-paste-code.aspx

bilaloch · Answer

Merci pour le lien :) Voilà mon code simplifié. N'hésite pas à le tester pour me dire ce que tu en penses...

BILALoch

bilaloch · Answer

J'aimerais te poser une autre question. Si j'applique une API genre SetPixel pour colorier ma PictureBox, comment pourrais je faire pour l'enregistrer ? Avec SavePicture, l'image reste normale, même après un appel à la fonction Refresh de la PictureBox...

BILALoch

PCPT · Answer

pour le code.... il n'y a qu'un paintpicture?! je pensais que tu ne passais pas par une picturebox?!!
et les API? tu as essayé? quel code?
savepicture, me semble que c'est intégré dans ma classe

<hr size="2" width="100%" />Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp

bilaloch · Answer

Je n'ai pas encore utilisé ta classe ^^ . J'ai testé avec les APIs, même résultat. L'image redimensionnée est exactement la même, c'est-à-dire qu'il y a une perte de qualité claire dans les deux cas. Donc le problème ne disparaîtra avec ta classe. C'est pourquoi je prefère corriger cela avant d'integrer ton travail dans le tout ^^ .

Merci encore ^^ ,

BILALoch

jmfmarques · Answer

A moins que tu ne développes ton propre code, tu n'obtiendras à mon avis rien de mieux qu'en utilisant la fonction SetStretchBlt avec HALFTONE

bilaloch · Answer

Merci jmfmarques, c'est bien ce que je me disais. J'ai trouvé mon bonheur en la codant moi même XD (j'y taffe depuis 9 h du matin lol). Je compte poster une source là dessus, ça pourrait aider, et les gens qui ont besoin d'une technique du genre, et moi pour optimiser mon code avec quelques conseils constructifs (notamment sur la qualité et le temps que ça prend pour la réduire).

BILALoch

PCPT · Answer

désolé mais en restant proportionnel, perso je vois peu de différence...
testé avec une JPG 1024*768 :

encore qu'il est possible d'utiliser les API pour obtenir directement les thumbnails !!
voir les sources existantes

++ ;)
<hr size="2" width="100%" />Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp

PCPT · Answer

arf çà a buggé....

    With Picture2
        .Width = Picture1.Width / 2
        .Height = Picture1.Height / 2
        DoEvents
        .ScaleMode = vbPixels
        .PaintPicture Picture1, 0, 0, .Width, 
.Height, 0, 0, Picture1.Width, Picture1.Height, 
vbSrcCopy
    End With

<hr size="2" width="100%" />Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp

bilaloch · Answer

Comme tu le remarques, quand on transforme un grand format (disons 1600 * 1200) en un petit (disons 160 * 120), la qualité baisse quand même pas mal. Ma source permettra de garder la même qualité à peu près.

Rappelle toi de cet exemple, comme ça tu testeras avec ma source, et dans le petit format je pense que tu pourras toujours lire "The Codyx" ("The" c'est pas sûr XD), et tu me diras ce que tu en penses...

BILALoch

PCPT · Answer

... évidemment puisque c'est en utilisant PAINTPICTURE !!!
ta demande n'était pas de te passer d'un HDC physique?

sans méchanceté : pense à mettre le lien de ce topic dans ta source, çà sera moins amusant je pense.
pour du miniature je te dis qu'il y a des API utilisables !!!

t'as juste à intégrer le module..
http://www.vbfrance.com/codes/EXTRACTION-MINIATURES-FICHIERS-COMME-DANS-EXPLORATEUR-MODE-DETAILS_39524.aspx

remarque tu n'as pas essayé le précédent lien alors pourquoi le faire avec celui-ci 
++ bonne soirée

bilaloch · Answer

Je vois. Vraiment desolé je n'avais pas trop compris ce que tu voulais dire (au début j'avais cru que tu parlais de StretchBlt, mais après relecture...). Merci de ton aide :) . Euh... donc oui, je prefererais me passer de picturebox et j'ai regardé de plus près ton joli code de picturebox virtuel.

Plusieurs questions subsistent dans tout ça :

1) Quelle est la license du Thumbnails Extractor qu'utilise la source sont tu m'as donné le lien ?

2) Avec ta virtuel picturebox, comment puis je utiliser un StretchBlt ? (en ayant une virtuel picturebox d'origine où est chargé une image et une autre où l'on veut le résultat, sachant que celle de destination est vide...). Desolé si ma question te paraît stupide...

Merci ^^ ,

BILALoch

PCPT · Answer

1) c'est posté en open source, aucune contre-indication dans la source, c'est libre en respectant l'auteur....
2) une fois la vbox chargée (voir source), tu utilises l'api sur le HDCdestination voulu, avec le HDCsource retourné par la classe

<hr size="2" width="100%" />Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp

bilaloch · Answer

C'est ce que j'ai essayé de faire :

If VirtualPB.Width < VirtualPB.Height Then
    Recupere2 = VirtualPB.Width
    Recupere1 = VirtualPB.Height
Else
    Recupere2 = VirtualPB.Height
    Recupere1 = VirtualPB.Width
End If
    
Taille = 100 * (Recupere1 / Recupere2)

StretchBlt VirtualPBDest.hDC, 0, 0, 100, 100, VirtualPB.hDC, (((Taille / 2) - 50)), (((Taille / 2) - 50)), 100, 100, SRCCOPY

With VirtualPBDest
    .SetSTDSize Me
    .CreateDCFromStd .Std, 0, 0
    .CreateStdPicture 0, 0
    .PaintStdPictureToDC Me.hDC, 0, 0
End With

Je précise que l'image est bien chargée dans VirtualPB et que j'arrive parfaitement à l'afficher, mais l'application bug à la fonction SetSTDSize... J'ai vérifié une à une les variables : elles ont toutes les bonnes valeurs.

BILALoch

PCPT · Answer

ton code est dans uen form? un module? c'est complet là?

<hr size="2" width="100%" />Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp

bilaloch · Answer

Ce code est dans une form, mais il n'est pas complet. Le voilà, le complet.

Merci encore de ton aide.

BILALoch

PCPT · Answer

VirtualPBDest n'as pas de hDC initialisé au moment où tu l'utilises

<hr size="2" width="100%" />Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp

bilaloch · Answer

Ok, merci. Effectivement il n'avait pas de hDC. Alors j'ai remplacé :

StretchBlt VirtualPBDest.hDC, 0, 0, 100, 100, VirtualPB.hDC, (((Taille / 2) - 50)), (((Taille / 2) - 50)), 100, 100, SRCCOPY

VirtualPBDest.PaintStdPictureToDC Me.hDC, 0, 0

Par :

VirtualPBDest.CreateDC
    
StretchBlt VirtualPBDest.hDC, 0, 0, 100, 100, VirtualPB.hDC, (((Taille / 2) - 50)), (((Taille / 2) - 50)), 100, 100, SRCCOPY

VirtualPBDest.PaintStdPictureToDC Me.hDC, 0, 0

Et pourtant il ne veut toujours pas fonctionner... :/

Merci,

BILALoch

bilaloch · Answer

Je m'excuse pour tout cela. J'ai compris qu'il fallait préciser la hauteur et la largeur de l'image avant de créer le hDC.

Merci beaucoup pour ton aide et cette classe (qui a la classe :P ok ok, c'est une blague pourrie, je sors ======> EXIT).

Bref je vais essayer ta classe pour l'enregistrer en JPG. Merci encore =D

BILALoch

bilaloch · Answer

Ta classe est parfaite. J'ai dû enregistrer le contenu de ma virtuelle picturebox dans un fichier bmp puis le convertir en jpg. Bon... je doute sortir une source, puisque je n'apporte rien de nouveau par rapport à toutes les sources que tu m'as donné.

BILALoch

PCPT · Answer

tu n'as pas besoin de passer par un bmp
dans la virtualbox tu as .CreateStdPicture
et dans ma conversion tu as de STD vers JPG

++
<hr size="2" width="100%" />Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp

bilaloch · Answer

Bizarre... Je ne vois que du presse papier à un JPG ou à un STD, du BMP à un JPG ou à un STD et du handle (hWnd) à un fichier ou à un STD.

BILALoch

PCPT · Answer

exact, je pensais....
c'est modifié et mis à jour

laisse un comm sur la source si tu veux être averti des maj
++
<hr size="2" width="100%" />Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp

bilaloch · Answer

Ok, je te remercie :)

BILALoch

Redimensionnement d'image

33 réponses

Votre réponse

Discussions similaires