Ceci est le code que je suis arrivé de This LinkRedimensionner mon image sur le téléchargement ne fonctionne pas - quel doit être mon tampon?
Je veux que l'utilisateur de télécharger une image, puis la redimensionner .............
Public Sub ResizeFromStream(ByVal ImageSavePath As String, ByVal MaxSideSize As Integer, ByVal Buffer As System.IO.Stream)
Dim intNewWidth As Integer
Dim intNewHeight As Integer
Dim imgInput As System.Drawing.Image = System.Drawing.Image.FromStream(Buffer)
'Determine image format
Dim fmtImageFormat As ImageFormat = imgInput.RawFormat
'get image original width and height
Dim intOldWidth As Integer = imgInput.Width
Dim intOldHeight As Integer = imgInput.Height
'determine if landscape or portrait
Dim intMaxSide As Integer
If (intOldWidth >= intOldHeight) Then
intMaxSide = intOldWidth
Else
intMaxSide = intOldHeight
End If
If (intMaxSide > MaxSideSize) Then
'set new width and height
Dim dblCoef As Double = MaxSideSize/CDbl(intMaxSide)
intNewWidth = Convert.ToInt32(dblCoef * intOldWidth)
intNewHeight = Convert.ToInt32(dblCoef * intOldHeight)
Else
intNewWidth = intOldWidth
intNewHeight = intOldHeight
End If
'create new bitmap
Dim bmpResized As Drawing.Bitmap = New Drawing.Bitmap(imgInput, intNewWidth, intNewHeight)
'save bitmap to disk
bmpResized.Save(ImageSavePath, fmtImageFormat)
'release used resources
imgInput.Dispose()
bmpResized.Dispose()
Buffer.Close()
End Sub
Maintenant, quand je clique sur mon bouton de soumission, il doit exécuter mon code mais je ne suis pas sûr de ce que l'entrée doit être pour le champ Buffer?
Protected Sub btnUpload_Click() Handles btnUpload.Click
ResizeFromStream("~Pics", 200, ??????????)
End Sub
Merci d'avance!
Modifier J'ai besoin d'obtenir mon image à partir du contrôle de téléchargement de fichiers!
Eh bien, où voudriez-vous que les données d'image viennent? –
De mon contrôle de téléchargement de fichier appelé FileUpload1 – Etienne