Upload d'image : erreur en distant

**Azephel** · 15/11/2007, 16h37

Bonjour bonjour !

Alors voila. J'ai une super fonction (en fait deux) qui me permettent d'uploader une image sur le serveur et de la redimmensionner. Le seul souci, c'est que ça fonctionne très bien en local, mais en distant c'est niet.

Voici la fonction appelée en première :

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
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
 Public Function UploadAvatar() As Boolean
 
        If IsPostBack Then
 
            Dim path As String = Server.MapPath("~/UpImages/")
            Dim fileOK As Boolean = False
            If UploadPhoto.HasFile Then
                Dim fileExtension As String
                fileExtension = System.IO.Path.GetExtension(UploadPhoto.FileName).ToLower()
                Dim allowedExtensions As String() = {".jpg", ".jpeg"}
                For i As Integer = 0 To allowedExtensions.Length - 1
                    If fileExtension = allowedExtensions(i) Then
                        fileOK = True
                    End If
                Next
 
                If fileOK Then
                    Try
                        Dim oImage As System.Drawing.Image = Nothing
                        If File.Exists(path & "139.jpg") Then
                            File.Delete(path & "139.jpg")
                        ElseIf File.Exists(path & "139.jpeg") Then
                            File.Delete(path & "139.jpeg")
                        End If
                        Dim image As String = ""
                        If System.IO.Path.GetExtension(UploadPhoto.FileName).ToLower() = ".jpg" Then
                            UploadPhoto.PostedFile.SaveAs(path & _
                                 "139.jpg")
                            oImage = System.Drawing.Image.FromFile(path & "139.jpg")
                            image = "139.jpg"
                        ElseIf System.IO.Path.GetExtension(UploadPhoto.FileName).ToLower() = ".jpeg" Then
                            UploadPhoto.PostedFile.SaveAs(path & _
                                 "139.jpeg")
                            image = "139.jpeg"
                            oImage = System.Drawing.Image.FromFile(path & "139.jpeg")
                        Else
                            Dim ex As New Exception("Format non supporté, choisissez une autre photo.")
                            Throw ex
                        End If
                        PhotoEnregistreRetaille(oImage, System.IO.Path.GetExtension(UploadPhoto.FileName).ToLower(), image, 240, 200) 'Appel de la deuxième fonction
                        LblErreur.Text = "Image téléchargée !<br />Votre image sera redimensionnée si ses dimensions sont supérieurs à 240 X 200 pixels.<br />"
                        Return False
                    Catch ex As Exception
                        If ex.Message = "Format non supporté, choisissez une autre photo." Then
                            LblErreur.Text = ex.Message
                        Else
                            LblErreur.Text = "Ce fichier ne peut pas être téléchargé." 'C'est ce message d'erreur qui est affiché, donc c'est une exception qui est lancée.
                        End If
 
                        Return True
                    End Try
                Else
                    LblErreur.Text = "Ce fichier ne peut pas être téléchargé."
                    Return True
                End If
            End If
        End If
 
    End Function

Et voici la fonction qui permet de retailler l'image, appelée par la fonction précédente :

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
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
Private Function PhotoEnregistreRetaille(ByVal oImageSource As System.Drawing.Image, ByVal Format As String, ByVal filename As String, ByVal LargeurMaxi As Integer, ByVal hauteurMaxi As Integer) As Boolean
 
        Dim HauteurImage, LargeurImage As Integer
        Dim propor As Double
        If oImageSource.Width > LargeurMaxi Then
            propor = oImageSource.Width / oImageSource.Height
            LargeurImage = LargeurMaxi
            HauteurImage = LargeurImage / propor
            If HauteurImage > hauteurMaxi Then
                HauteurImage = hauteurMaxi
                LargeurImage = HauteurImage * propor
            End If
            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
                Select Case Format
                    Case ".jpg"
                        ImgFormat = System.Drawing.Imaging.ImageFormat.Jpeg
                    Case ".jpeg"
                        ImgFormat = System.Drawing.Imaging.ImageFormat.Jpeg
                    Case Else
                        ImgFormat = System.Drawing.Imaging.ImageFormat.Jpeg
                End Select
                oImageSource.Dispose()
                Dim path As String = Server.MapPath("~/UpImages/")
                File.Delete(path & filename)
                oImageCible.Save(path & filename, ImgFormat)
                Return True
            Catch exThread As Threading.ThreadAbortException
                Throw exThread
            Catch ex As Exception
                Return False
            End Try
        Else
            Return True
        End If
    End Function

Si quelqu'un pouvait m'aider, ça serait génial. Ca fait déjà quelques heures que je suis dessus et toujours rien...

Merci d'avance !

**lutecefalco** · 15/11/2007, 21h06

Et c'est quoi le problème???

**bossun** · 16/11/2007, 09h08

Envoyé par lutecefalco

Et c'est quoi le problème???

C'est un challenge... on doit essayer de le trouve :-)

Je pense que c'est un problème de droits qu'il doit avoir...

**Azephel** · 16/11/2007, 09h23

ça fonctionne très bien en local, mais en distant c'est niet.

Voila le souci

Code :

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

LblErreur.Text = "Ce fichier ne peut pas être téléchargé." 'C'est ce message d'erreur qui est affiché, donc c'est une exception qui est lancée.

Et voici ce que ça fait.

Je vois que la lecture des problèmes se fait rapidement...

Bon, en tout cas, bossun a raison. Après avoir virer le try catch, c'est un problème de droits d'accès.

Donc la question change :
A qui mettre les droits sur le répertoire sachant que dans le web config j'ai ceci :

Code :

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

1
2
<authentication mode="Windows"/>
		<identity impersonate="true"/>

ASP.NET possède t'il un compte pour lequel on peut lui accorder des droits ?
merci d'avance.

**bossun** · 16/11/2007, 09h44

tu as beau à mettre

Code :

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

1
2
<authentication mode="Windows"/>
		<identity impersonate="true"/>

si les utilsiateurs n'ont pas les droits, ça ne marchera pas quand meme.

SI tu es dans un environnement Intranet, Active Directory, tu dois enlever l'authentification annonyme de sur ton server IIS. si tu ne le fais pas, il va utiliser ASPNET pour se connecter et ASPNET est un compte très limité..

**Azephel** · 16/11/2007, 10h36

Je suis en extranet et donc je n'utilise pas l'AD. Nous avons donné le controle total à l'utilisateur IUSR/machine (je sais pas le nom exact, et notre admin réseau est sur un autre truc plus urgent). Je ne sais pas trop quoi faire au niveau des droits, c'est vraiment pas mon fort...

**bossun** · 16/11/2007, 10h41

c n'est pas le bon compte..

celui-ci sert pour l'accès annonyme à iis..

donne les droits au compte ASPNET et ton problème sera reglé

**Azephel** · 16/11/2007, 12h22

Le message d'erreur vient de changer sans que nous ayons changé les droits pour qui que ce soit. Maintenant, ça plante lors de

Code :

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

File.Delete(path & "139.jpg")

car le fichier est utilisé par un autre processus.

Seulement, quel processus ? Est-ce un processus lié à ASPNET ? Un processus système ?
Et surtout comment libérer ce processus pour qu'il me supprime le fichier ?

**bossun** · 16/11/2007, 13h35

Tu fais qqch qui n'est pas juste dans ton code...

quand tu upload l'imge tu la sauve d'abord et après tu la modifies... ceci peut poser problème si tu ne libère pas correctement les ressources...

charge plutot ton image en memoire et après tu la reduis, et finalement la sauvegarde.. ca t evitera ces messages d erreurs..

**Azephel** · 16/11/2007, 13h59

J'y avait même pas pensé.
Seulement est-il possible d'instancier mon objet oImage avec le fichier posté par le controle fileupload ?

Actuellement si je le sauvegarde une première fois c'est justement pour pouvoir faire

Code :

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

oImage = System.Drawing.Image.FromFile(path & "139.jpg")

Et ensuite je passe mon objet oImage à la deuxième fonction. Est-il possible donc d'instancier mon objet Drawing.Bitmap sans sauvegarder le fichier auparavant ?

**bossun** · 16/11/2007, 14h04

Voilà ce que tu veux faire en 4 lignes...

Code :

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

1
2
3
4
        Dim s As System.IO.Stream = FileUpload1.PostedFile.InputStream
        Dim img As Image = Image.FromStream(s)
        Dim bmp As Bitmap = New Bitmap(img, 100, 150)
        bmp.Save(Server.MapPath("~") & "\img.jpg", Imaging.ImageFormat.Jpeg)

à adapter selon tes besoins