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

Version imprimable

Voir 40 message(s) de cette discussion en une page

22/03/2007, 10h29
Azephel

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

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! :calim2:

En tout cas :merci: d'avance pour vos réponses!
27/03/2007, 09h07
Azephel

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

Bonjour

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

Code:

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 :aie:
Par contre il faut travaillé sur une image sur le serveur. Donc soit sur un fichier temporaire soit sur un flux.

Bon courage ;)

27/03/2007, 10h33
Azephel

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!
27/03/2007, 11h30
mafyoso

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 :)
27/03/2007, 11h38
Azephel

Alors là, je dis chapeau ! C'est exactement ce que je cherchais! :king:
:ave: Merci beaucoup!

:chin:
27/03/2007, 17h42
Azephel

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!
27/03/2007, 18h39
mafyoso

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

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é :oops: :(
28/03/2007, 08h54
Azephel

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 :D
Bonne journée et encore merci en tout cas!

Bonjour

Voilà la bonne fonction, oublis la structure c'est une complication supplémentaire inutile;) . Voilà la bonne méthode :

Code:

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é :oops: ça devient une mauvaise habitude ;) .

Bonne journée :D

28/03/2007, 10h29
Azephel

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!

(Re) Bonjour ;)

Code:

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 :D

28/03/2007, 10h34
Azephel

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! :mrgreen:
28/03/2007, 10h36
Azephel

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 :roll:

EDIT: Euh non rien en fait... :roll:
28/03/2007, 10h42
mafyoso

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 :aie: . Tu me diras ;)
28/03/2007, 10h53
Azephel

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:

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

Du coup, la fonction ne redimensionne pas :cry:

Que de soucis pour réduire une image...
28/03/2007, 11h00
mafyoso

Arf :(

Tu travailles sur un Gif :oops: à 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 :aie: ).
28/03/2007, 11h05
Azephel

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:

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

Avec un message super clair (ironiquement parlant) :
Une erreur générique s'est produite dans GDI+. 8O 8O
28/03/2007, 11h15
mafyoso

Re :D

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 8O ).

Enregistres ton image sous un autre nom et supprime l'ancienne :? .
28/03/2007, 11h17
Azephel

Oui tu es clair! (enfin, pour moi :D)

Sinon, si je supprime d'abord et que j'enregistre ensuite, ça marche aussi?

Voir 40 message(s) de cette discussion en une page