[ASP.NET VB.NET]Possibilité de redimensionner une image

**Azephel** · 22/03/2007, 10h29

Bonjour!

Je voudrais savoir s'il est possible que lorsqu'un utilisateur upload une image sur le serveur, on redimensionne l'image à une certaine taille (hauteur/largeur) afin d'éviter de le faire à chaque affichage.

Ca m'arrangerait énormément de pouvoir le faire au moment où l'utilisateur l'envoie!

En tout cas

d'avance pour vos réponses!

**Azephel** · 27/03/2007, 09h07

Personne n'a d'idée ou d'avis?

**mafyoso** · 27/03/2007, 09h48

Bonjour

Voilà un bout de code qui peut t'aider :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
        Structure dimension
            Dim nHauteur As Int16
            Dim nLargeur As Int16
        End Structure
        .......
         Try
                Dim sFileImg As String = (sNomImg)
                Dim oDimImage As dimension
                Dim oImage As System.Drawing.Image
                oImage = System.Drawing.Image.FromFile(sFileImg)
                oDimImage.nHauteur = oImage.Height()
                oDimImage.nLargeur = oImage.Width()
                Return oDimImage
           Catch ex As Exception
                Return Nothing
           End Try

C'est pas commenté, désolé, mais j'ai pas le temps

Par contre il faut travaillé sur une image sur le serveur. Donc soit sur un fichier temporaire soit sur un flux.

Bon courage

**Azephel** · 27/03/2007, 10h33

Merci beaucoup!
Et c'est pas grave pour les commentaires ^^
Ce bout de code est à éxécuter une seule fois quand l'utilisateur choisi son image, donc il ne reste plus qu'à sauvegarder l'image que cette fonction renvoit, ou alors cette fonction permet à chaque affichage de redimmensionner l'image?

En tout cas, que ce soit l'un ou l'autre, la fonction va bien me servir! Merci beaucoup!

**mafyoso** · 27/03/2007, 11h30

Re Bonjour

J'utilise cette fonction au moment de l'upload. Les dimensions données deviennent les dimensions physiques de l'image. Attention donc au ratio et à la résolution

.

A bientôt

**Azephel** · 27/03/2007, 11h38

Alors là, je dis chapeau ! C'est exactement ce que je cherchais!

Merci beaucoup!

**Azephel** · 27/03/2007, 17h42

Aurais-tu plus le temps maintenant pour m'expliquer comment tu l'utilise, comment elle fonctionne?
Je n'ai jamais vraiment utilisé les structures, donc je vois pas trop à quoi ça sert non plus

Et ce que la fonction retourne, c'est justement la structure, comment tu l'applique à l'image?

En tout cas merci bien!

**mafyoso** · 27/03/2007, 18h39

Arf effectivement il manque la moitié du truc... Me suis gouré de méthode

Bon ben il faudra attendre que je sois au boulot demain

Mais sinon en fouillant autour de la classe System.Drawing.Image tu devrais trouver ton bonheur si tu es pressé

Bonne soirée et encore désolé

**Azephel** · 28/03/2007, 08h54

Non non, ne sois pas désolé, c'est pas grave.
Je ne suis pas hyper pressé, mais si aujourd'hui tu peux le poster ce serait super bien

Bonne journée et encore merci en tout cas!

**mafyoso** · 28/03/2007, 09h18

Bonjour

Voilà la bonne fonction, oublis la structure c'est une complication supplémentaire inutile

. Voilà la bonne méthode :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
    Private Function PhotoEnregistreRetaille(ByVal sCibleDossier As String, ByVal oImageSource As System.Drawing.Image, ByVal HauteurImage As Int16, ByVal LargeurImage As Int16) As Boolean
        Try
            Dim oImageCible As System.Drawing.Bitmap = New System.Drawing.Bitmap(LargeurImage, HauteurImage, oImageSource.PixelFormat)
            Dim oGraphique As System.Drawing.Graphics = System.Drawing.Graphics.FromImage(oImageCible)
            oGraphique.SmoothingMode = System.Drawing.Drawing2D.SmoothingMode.HighQuality
            oGraphique.InterpolationMode = System.Drawing.Drawing2D.InterpolationMode.HighQualityBicubic
            oGraphique.PixelOffsetMode = System.Drawing.Drawing2D.PixelOffsetMode.HighQuality
            oGraphique.DrawImage(oImageSource, 0, 0, oImageCible.Width, oImageCible.Height)
            oGraphique.Dispose()
            Dim ImgFormat As System.Drawing.Imaging.ImageFormat = System.Drawing.Imaging.ImageFormat.Jpeg
            oImageCible.Save(sCibleDossier, ImgFormat)
            Return True
        Catch exThread As Threading.ThreadAbortException
            Throw exThread
        Catch ex As Exception
            'RealTimeTrace(ex)
            'Server.Transfer("Error.aspx")
            Return False
        End Try
    End Function

Toujours pas commenté

ça devient une mauvaise habitude

.

Bonne journée

**Azephel** · 28/03/2007, 10h29

J'ai remarqué qu'il faut envoyer à cette fonction une system.drawing.image, or comment je fais pour lui envoyer cela? Sachant que quand j'appelle cette fonction, l'utilisateur vient tout juste de rentrer une photo qui vient d'être sauvegardée sur le serveur, donc j'ai une string, comme ceci: UploadPhoto.FileName, qui me donne le nom et l'extension de la photo.

Comment dire que la photo que je viens d'enregistrer est un system.drawing.image, afin que je l'envoie à ta fonction?

Merci beaucoup pour ton aide en tout cas. Sans toi je chercherais encore!

**mafyoso** · 28/03/2007, 10h33

(Re) Bonjour

Code :

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

1
2
3
4
5
 
'sFileImg:chemin physique de l'image sur le serveur
'exemple: C:\WebSite\MonSitePrefere\Images\MonImage.jpg
Dim oImage As System.Drawing.Image
oImage = System.Drawing.Image.FromFile(sFileImg)

A bientôt

**Azephel** · 28/03/2007, 10h34

Je viens de remarquer qu'en lui envoyant un System.Drawing.Bitmap, cela ne créai pas d'erreur. J'espère que ça va fonctionner!

**Azephel** · 28/03/2007, 10h36

Je viens de voir ton post ^^

Aller, je croise les doigts, étant donné que j'ai un peu modifié ta fonction, il se peut que j'ai fait des erreurs dedans

EDIT: Euh non rien en fait...

**mafyoso** · 28/03/2007, 10h42

Re

Oui, effectivement le nom de paramètre n'est pas top

. C'est bien le fichier image. Exemple:C:\WebSite\MonSitePrefere\Images\MonImage.jpg

Par contre je crois pas que tu puisses écrire sur l'image d'origine, j'avais eut des soucis avec ça

. Tu me diras

**Azephel** · 28/03/2007, 10h53

J'ai cette exception qui est lancée :

Un objet Graphics ne peut pas être créé à partir d'une image au format pixel indexé.

Elle est lancée quand le programme tente de faire

Code :

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

Dim oGraphique As System.Drawing.Graphics = System.Drawing.Graphics.FromImage(oImageCible)

Du coup, la fonction ne redimensionne pas

Que de soucis pour réduire une image...

**mafyoso** · 28/03/2007, 11h00

Arf

Tu travailles sur un Gif

à coup sûr. Si c'est le cas, le redimensionnement n'est pas possible (chaque pixel est indexé si tu redimensionnes tu modifis le nombre de pixel et donc l'index

).

**Azephel** · 28/03/2007, 11h05

Bon alors ça ne fonctionne pas sur les GIF?

Mais dans ce cas-là, je tentais de redimensionner un jpg. Je viens de tester avec une autre image JPG et là ça fonctionne. Sauf que j'ai une autre exception ici

Code :

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

oImageCible.Save(Server.MapPath("~\xxxxx\"), ImgFormat)

Avec un message super clair (ironiquement parlant) :
Une erreur générique s'est produite dans GDI+.

**mafyoso** · 28/03/2007, 11h15

Re

Les gif tu peux pas parcequ'un Gif est en mode "Couleurs Indexées". Le redimmensionnement n'est possible qu'avec des images en mode "RVB" ou "Niveau de gris".

C'est étonnant que ta première image Jpg soit en "Couleurs Indexées" sachant que la qualité de ce mode est bien moins bonne qu'en "RVB".

Bref, pour ce qui de l'exception je dirai que c'est parceque tu essais de sauvegarder l'image sur le fichier d'origine, l'exception est inévitable puisque tu essais d'enregistrer sur un fichier qui est en lecture exclusive puisque ton objet oImageSource est branché dessus (suis-je clair? pas sûr

).

Enregistres ton image sous un autre nom et supprime l'ancienne

.