Блог Мэтра Голосов: 1 Адрес блога: http://myasp.ru/ Добавлен: 2010-09-14 11:39:16

Уменьшение размеров фото ASP.NET

Код для уменьшения размера фото при загрузке на страницу ASP.NET
- Источник - File1.PostedFile -выбор файла
- Уменьшенная копия с высотой/шириной=100
- Возращает System.Drawing.Image

Imports System.Drawing
 Private Function ProcessingPreviewFoto() As System.Drawing.Image
        Dim myIMG As System.Drawing.Image = System.Drawing.Image.FromStream(File1.PostedFile.InputStream)
        Dim ImageStream As System.IO.MemoryStream
        Dim H As Integer, W As Integer

        With myIMG
            If .Height > .Width Then
                H = 100
                W = CInt(.Width * 100 / .Height)
            Else
                W = 100
                H = CInt(.Height * 100 / .Width)
            End If
        End With

        Dim myprvImage As System.Drawing.Image = New Bitmap(W, H)
        Dim myGR As Graphics = Graphics.FromImage(myprvImage)

        myGR.InterpolationMode = Drawing2D.InterpolationMode.HighQualityBicubic
        myGR.DrawImage(myIMG, New Rectangle(0, 0, W, H), 0, 0, myIMG.Width, myIMG.Height, GraphicsUnit.Pixel)
        myIMG.Dispose()
        Return myprvImage

    End Function

Пример использования http://birdoska.ru