[.NET] GENERER UN PAGE IMAGE: IMAGE.JPG.ASPX

Imports System.io

Public Class image
    Inherits System.Web.UI.Page

#Region " Code généré par le Concepteur Web Form "

    'Cet appel est requis par le Concepteur Web Form.
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

    End Sub

    'REMARQUE : la déclaration d'espace réservé suivante est requise par le Concepteur Web Form.
    'Ne pas supprimer ou déplacer.
    Private designerPlaceholderDeclaration As System.Object

    Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
        'CODEGEN : cet appel de méthode est requis par le Concepteur Web Form
        'Ne le modifiez pas en utilisant l'éditeur de code.
        InitializeComponent()
    End Sub

#End Region


    Private Sub Page_PreRender(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.PreRender

        Try

            ' On déclare une nouvelle image provenant du querystring("photo") 
            Dim newImage As System.Drawing.Image
            newImage = System.Drawing.Image.FromFile(Request.QueryString("photo"))

            ' On redefinit une hauteur
            Dim hauteur As Integer = 120
            Dim largeur As Integer

            Try

                ' Nouveau paramètres d'entrée on peut définir une hauteur pour une image 
                ' à partir du querystring height=88
                ' le try est la au cas ou qu'on rentre autre chose 
                ' qu' un string dans le querystring
                If Not Request.QueryString("height") = "" Then
                    'Si on mets qqchose dans le querystring height
                    'on essaye de le convertir en integer
                    'on prend sa valeur absolue car une hauteur négative bof
                    'si c'est pas possible le try est fait pour ca
                    'j'aime pas trop cette facon de travailler et si qqn en connaissait une autre plus efficace je suis preneur
                    hauteur = Math.Abs(CInt(Request.QueryString("height")))
                End If

            Catch ex As Exception
                Trace.Warn(ex.ToString)
            End Try

            ' on calcule la largeur suivant le rapport Width/Height de l'image d'origine 
            largeur = (newImage.Width / newImage.Height) * hauteur

            'On fait de cette manière pour définir la hauteur suivant la largeur 
            'Dim hauteur, largeur As Integer 
            '
            '...
            '
            'hauteur = (newImage.Height / newImage.Width) * largeur 

            'On déclare un Bitmap ayant pour paramètre l'image   
            'd'origine la nouvelle largeur et la nouvelle hauteur 
            Dim oB As New Bitmap(newImage, largeur, hauteur)

            'On fait un graphics avec comme image source le bitmap nouvellement crée
            'On lui met une qualité haute
            Dim g As Graphics = Graphics.FromImage(oB)
            g.SmoothingMode = Drawing.Drawing2D.SmoothingMode.HighQuality

            'Voici un exemple si vous voulez ecrire qqchose dans l'image
            'Mais il existe de nombreuse propriétés pour le graphics

            'Dim drawFont As New Font("comic sans ms", 16, FontStyle.Bold)
            'Dim srectangle As New Rectangle(0, 0, 100, 32)
            'Dim drawBrush As New Drawing2D.LinearGradientBrush(srectangle, Color.Gray, Color.White, LinearGradientMode.Vertical)
            'g.DrawString("www.monsite.fr.st", drawFont, drawBrush, largeur / 2, hauteur - 32)

            Try
                'On vide tt ce qui est peut etre écrit dans la page web
                Response.ClearContent()
                'On envoie le contenu binaire du jpeg dans la page web
                oB.Save(Response.OutputStream, Imaging.ImageFormat.Jpeg)

            Catch ex As Exception
                Trace.Warn(ex.ToString)

            Finally
                'On envoie ce qu'on veut écrire
                Response.Flush()
                'on dit que le fichier est une image jpeg
                Response.ContentType = "image/jpeg"

            End Try

            'On décharge toutes les images
            oB.Dispose()
            g.Dispose()
            newImage.Dispose()

        Catch ex As Exception
            'si il y'a une erreur on l'ecrit dans le trace 
            Trace.Warn(ex.ToString)
            'une erreur courante peut etre le fait que 
            'l'image demandé n'existe pas dans ce cas

            Dim sfilename As String = "images/none.jpg"

            Response.WriteFile(sfilename)
            Response.Flush()
            Response.ContentType = "image/jpeg"

        End Try

    End Sub

End Class