controle sur la taille d'une image

Version imprimable

Me voilà de retour, je me pose décidément plein de questions!!
En fait maintenant, j'ai 1 pb de controle sur la taille d'une image dont je récupère le chemin d'accès dans une popup.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
Dim img As String
        Dim largeur As String
        Dim hauteur As String
 
        img = Request.QueryString("image")
 
        Dim bmp As New System.Drawing.Bitmap(img)
        largeur = bmp.Size.Width
        hauteur = bmp.Size.Height
 
        If File.Exists(Server.MapPath(String.Format("~/images/" & img))) Then
            If largeur > 200 Or hauteur > 200 Then
                Response.Write("redimensionner l'image")
            Else
                Image1.ImageUrl = String.Format("~/images/" & img)
            End If
        Else
            Image1.Visible = False
            Response.Write("L'image n'existe pas")
        End If

J'ai une erreur de type System.drawing non valide
Merci d'avance

04/07/2007, 12h07
Poulain

Peut etre qu'il faut que tu fasse un import...
04/07/2007, 12h13
babafredo

J'ai fait imports system.drawing.
L'erreur exacte est type de paramètre non valide.
04/07/2007, 12h26
Aspic

Citation:

Envoyé par babafredo

J'ai fait imports system.drawing.
L'erreur exacte est type de paramètre non valide.

Peux tu etre plus explicite ?? Erreur exacte et complete ainsi que la ligne où elle apparait 8-) ?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim img As String
        Dim largeur As String
        Dim hauteur As String
 
        img = Request.QueryString("image")
 
        Dim bmp As New System.Drawing.Bitmap("~/images/" & img)
        largeur = bmp.Size.Width
        hauteur = bmp.Size.Height
 
        If File.Exists(Server.MapPath(String.Format("~/images/" & img))) Then
            If largeur > 200 Or hauteur > 200 Then
                Response.Write("redimensionner l'image")
            Else
                Image1.ImageUrl = String.Format("~/images/" & img)
            End If
        Else
            Image1.Visible = False
            Response.Write("L'image n'existe pas")
        End If
    End Sub

erreur le paramètre n'est pas valide sur :

Citation:

bmp As New System.Drawing.Bitmap("~/images/" & img)

04/07/2007, 15h07
Aspic
C'est quoi ce symbole ~ ... c'est ca qui fait planter la ligne !

Avec cela, ca marche très bien :

Code:

Dim bmp As New System.Drawing.Bitmap("C:\Documents and Settings\Fdiedler\Bureau\photo_identite.jpg")

Autre chose, déclare tes variables en Integer sinon il y a une conversion implicite :
Code:

1 2 Dim largeur As Integer Dim hauteur As Integer
04/07/2007, 16h34
babafredo

ok ça marche
merci
04/07/2007, 20h05
Poulain

Citation:

Envoyé par Aspic

C'est quoi ce symbole ~ ... c'est ca qui fait planter la ligne!

Ce symbole est utilisé en asp.net pour donner par exemple l'adresse d'une image à une picturebox.

C'est une adresse relative.
04/07/2007, 20h36
Aspic

Citation:

Envoyé par Poulain

Ce symbole est utilisé en asp.net pour donner par exemple l'adresse d'une image à une picturebox.

C'est une adresse relative.

Ok et c'est normal que la ligne plante avec ce symbole s'il est cencé etre reconnu en asp.net ? Puisque avec un chemin absolu ca marche très bien ! ;)
04/07/2007, 20h53
Poulain

ben, pourquoi il plante là je ne sais pas...
04/07/2007, 22h14
Aspic

Citation:

Envoyé par Poulain

ben, pourquoi il plante là je ne sais pas...

Bref, l'essentiel c'est qu'il ai résolu son probleme ;)
04/07/2007, 22h54
Poulain

Exact.