Ok, voilà pour ceux que ça intéresse (en VB.Net)
/* L'appel de la méthode */
*********************
'Vérifie les dimensions de l'image et la redimensione si besoin
Dim image As System.Drawing.Image = Nothing
Dim NewBmp As Bitmap = Nothing
Dim Stream As System.IO.MemoryStream = New System.IO.MemoryStream
Try
image = System.Drawing.Image.FromStream(leStreamAUtiliser)
NewBmp = clsImage.VerifieTailleImage(clsConstantes.i_MAXHEIGHT_IMG_CULTURE, _
clsConstantes.i_MAXWIDTH_IMG_CULTURE, _
image)
NewBmp.Save(Stream, image.RawFormat)
c = Stream.Length
ReDim objTampon(c)
objTampon = Stream.GetBuffer()
e.InputParameters("img") = objTampon
Catch ex As Exception
Throw New ApplicationException(ex.Message, ex.InnerException)
Finally
If image IsNot Nothing Then
image.Dispose()
End If
If NewBmp IsNot Nothing Then
NewBmp.Dispose()
End If
If Stream IsNot Nothing Then
Stream.Close()
End If
End Try
***************
/* La classe Image */
****************
Public Class clsImage
''' <summary>
''' Calcule les dimensions d'une image
''' </summary>
''' <param name="ObjImg">Objet image pour lequel on recherche les dimensions</param>
''' <returns>Retourne un Size contenant les dimensions de l'image</returns>
''' <remarks></remarks>
Shared Function CalculeTailleImage(ByVal ObjImg As Image) As Size
Dim b As System.Drawing.Bitmap = Nothing
Dim imgClientSize As Size = New System.Drawing.Size(0, 0)
b = New System.Drawing.Bitmap(ObjImg)
imgClientSize = New System.Drawing.Size(b.Size.Width, b.Size.Height)
Return imgClientSize
End Function
''' <summary>
''' Redimmensionne une image
''' </summary>
''' <param name="iNewHeight">Entier définissant la nouvelle hauteur de l'image</param>
''' <param name="iNewWidth">Entier définissant la nouvelle largeur de l'image</param>
''' <param name="ObjImg">Objet image qui sera redimmensionné</param>
''' <returns>Retounre un Bitmap de la nouvelle image</returns>
''' <remarks>Le Bitmap est utile au cas où l'on veut enregistrer l'image dans un flux (Stream)
''' afin d'enregistrer l'image dans une Base de Donnée par exemple</remarks>
Shared Function RedimensionneImage(ByVal iNewHeight As Integer, _
ByVal iNewWidth As Integer, _
ByVal ObjImg As Image) As Bitmap
Dim b As System.Drawing.Bitmap = New System.Drawing.Bitmap(ObjImg)
Dim Newb As System.Drawing.Bitmap = New System.Drawing.Bitmap(ObjImg, iNewWidth, iNewHeight)
Return Newb
End Function
''' <summary>
''' Vérifie la taille d'une image et la redimensionne si besoin
''' </summary>
''' <param name="iMaxHeigth">Entier définissant la hauteur maximale autorisée</param>
''' <param name="iMaxWidth">Entier définissant la largeur maximale autorisée</param>
''' <param name="ObjImg">Objet image à vérifier</param>
''' <returns>Retounre un Bitmap de la nouvelle image</returns>
''' <remarks>Le Bitmap est utile au cas où l'on veut enregistrer l'image dans un flux (Stream)
''' afin d'enregistrer l'image dans une Base de Donnée par exemple. Cette fonction utilise les Fonctions CalculeTailleImage et RedimensionneImage</remarks>
Shared Function VerifieTailleImage(ByVal iMaxHeigth As Integer, _
ByVal iMaxWidth As Integer, _
ByVal ObjImg As Image) As Bitmap
Dim iCoefficient As Double = 0
Dim iCoefficientHeight As Double = 0
Dim iCoefficientWidth As Double = 0
Dim iNewHeight As Integer = 0
Dim iNewWidth As Integer = 0
Dim iHeightImg As Integer = 0
Dim iWidthImg As Integer = 0
Dim imgClientSize As Size = New System.Drawing.Size(0, 0)
Dim ObjRetun As Object = Nothing
imgClientSize = CalculeTailleImage(ObjImg)
iHeightImg = imgClientSize.Height
iWidthImg = imgClientSize.Width
If Not imgClientSize.IsEmpty AndAlso (iHeightImg > iMaxHeigth Or iWidthImg > iMaxWidth) Then
iCoefficientHeight = iMaxHeigth / iHeightImg
iCoefficientWidth = iMaxWidth / iWidthImg
If iCoefficientHeight <= iCoefficientWidth Then
iCoefficient = iCoefficientHeight
Else
iCoefficient = iCoefficientWidth
End If
iNewHeight = CInt(iHeightImg * iCoefficient)
iNewWidth = CInt(iWidthImg * iCoefficient)
Else
iNewHeight = iHeightImg
iNewWidth = iWidthImg
End If
ObjRetun = RedimensionneImage(iNewHeight, iNewWidth, ObjImg)
Return ObjRetun
End Function
End Class
****************
Blowdesign