Discussion :

[babafredo]

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 :

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

[Poulain]

Peut etre qu'il faut que tu fasse un import...

[babafredo]

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

[Aspic]

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 ?

[babafredo]

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

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

[Aspic]

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

Avec cela, ca marche très bien :

Code :

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

        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 :

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

1
2
   Dim largeur As Integer
        Dim hauteur As Integer

[babafredo]

ok ça marche
merci

[Poulain]

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.

[Aspic]

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 !

[Poulain]

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

[Aspic]

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

Bref, l'essentiel c'est qu'il ai résolu son probleme

[Poulain]

Exact.