ASP.NET - COMMENT CRÉER UNE IMAGE DE TAILLE PLUS RÉDUITE EN CONSERVANT LA QUALITÉ MAXIMUM

Commentaire de jesusonline le 04/05/2004 20:48:58 administrateur CS

oui pas mal
Cependant dans certains cas ce n'est pas la largeur qu'on fixe mais la hauteur.
Pour permettre de fixer la hauteur on pourrait alors faire un truc de ce style :

    Public Sub ResizeImage(ByVal CheminFichier As String, ByVal CheminFichierTemp As String, ByVal LargeurPrevue As Integer)
        If LargeurPrevue = 0 Then Throw New Exception("0 interdit !!!") : Exit Sub
        ResizeImage(CheminFichier, CheminFichierTemp, LargeurPrevue, 0)
    End Sub
    Public Sub ResizeImage(ByVal CheminFichier As String, ByVal CheminFichierTemp As String, ByVal LargeurPrevue As Integer, ByVal HauteurPrevue As Integer)
        If LargeurPrevue = 0 And HauteurPrevue = 0 Then Throw New Exception("0 interdit !!!") : Exit Sub

        Try
            Dim LargeurMiniature As Integer = LargeurPrevue 'On fixe la largeur de l'image
            Dim HauteurMiniature As Integer = HauteurPrevue 'On fixe la hauteur de l'image

            Dim BMPTemp As System.Drawing.Bitmap
            Dim graphicTemp As System.Drawing.Graphics

            File.Copy(CheminFichier, CheminFichierTemp, True)
            File.Delete(CheminFichier)

            Dim bmp As New System.Drawing.Bitmap(CheminFichierTemp)

            If HauteurMiniature = 0 Then
                HauteurMiniature = (bmp.Size.Height * LargeurMiniature / bmp.Size.Width)
            End If

            If LargeurMiniature = 0 Then
                LargeurMiniature = (bmp.Size.Width * HauteurMiniature / bmp.Size.Height)
            End If

            BMPTemp = New System.Drawing.Bitmap(LargeurMiniature, HauteurMiniature)
            graphicTemp = System.Drawing.Graphics.FromImage(BMPTemp)

            graphicTemp.CompositingMode = System.Drawing.Drawing2D.CompositingMode.SourceOver
            graphicTemp.CompositingQuality = System.Drawing.Drawing2D.CompositingQuality.HighQuality
            graphicTemp.SmoothingMode = System.Drawing.Drawing2D.SmoothingMode.HighQuality
            graphicTemp.InterpolationMode = System.Drawing.Drawing2D.InterpolationMode.HighQualityBicubic
            graphicTemp.PixelOffsetMode = System.Drawing.Drawing2D.PixelOffsetMode.HighQuality

            graphicTemp.DrawImage(bmp, 0, 0, LargeurMiniature, HauteurMiniature)
            graphicTemp.Dispose()

            BMPTemp.Save(CheminFichier, System.Drawing.Imaging.ImageFormat.Jpeg)
            BMPTemp.Dispose()
            bmp.Dispose()
            File.Delete(CheminFichierTemp)

        Catch ex As Exception
            Throw New Exception(ex.Message)
        End Try

    End Sub

Ce bout de code permet de garder la compatibilité avec celui ci dessus  et offre une hyper rapide gestion d'erreur :)

Commentaire de tmcuh le 25/02/2005 11:59:46

humm interressant quand on doit mettre des petites images à agrandir, mais la quantité à downloader reste la meme non?

Commentaire de ja001net le 01/08/2006 11:55:11

Bonjour,

J'utilise cette méthode pour créer des images réduites à partir d'images plus grandes ;)
Cependant, la qualité des images réduites n'est vraiment pas bonne et les images sont très "pixelisées". La résolution des images source est de 300 dpi alors que la résolution des images créées est de 96 dpi. Y'a t'il un moyen de spécifier la résolution de sortie pour les miniatures ?

Merci d'avance.