Я использую приведенный ниже код, чтобы уменьшить размер моего изображения. Это работает нормально. Моя проблема в том, что изображение размером 3 МБ будет уменьшено до 470 ~ КБ. Есть ли способ еще больше уменьшить размер файла? Я играл со всеми возможными настройками, касающимися режима интерполяции, режима сглаживания и других, но результирующее изображение по-прежнему составляет около 400 кб. Эти изображения используются на веб-сайте газеты и, следовательно, также должны сохранять свои качества.
РЕДАКТИРОВАТЬ Размеры моего изображения составляют 4000 x 3000 пикселей, и я уменьшаю его до 650 пикселей в ширину.
Dim image_p As Image = _
ResizeImage(img, Convert.ToInt32(pWidth), Convert.ToInt32(pHeight))
Private Function ResizeImage( _
original_img As Bitmap, width As Integer, height As Integer) As Bitmap
Dim callback As New Image.GetThumbnailImageAbort(AddressOf GetThumbAbort)
Dim new_img As New Bitmap(original_img, width, height) 'new blank bitmap'
Dim g As Graphics = Graphics.FromImage(new_img)
g.InterpolationMode = System.Drawing.Drawing2D.InterpolationMode.High
g.SmoothingMode = System.Drawing.Drawing2D.SmoothingMode.AntiAlias
g.PixelOffsetMode = System.Drawing.Drawing2D.PixelOffsetMode.HighSpeed
g.CompositingQuality = _
System.Drawing.Drawing2D.CompositingQuality.HighSpeed
g.CompositingMode = System.Drawing.Drawing2D.CompositingMode.SourceOver
g.DrawImage(original_img, 0, 0, width, height)
Return new_img
End Function