Как сохранить изображение с указанием уровня компрессии?

[Nick Bober]

Как сохранить изображение с указанием уровня компрессии (JPEG)?
Может кто сталкивался? Там какие-то
ImageCodecInfo и EncoderParameters. Описание - фиг поймешь.
Если не лень - строчку кода, плиз.

[Nick Bober]

Пишу так:

Код: Выделить всё

    Private Function GetEncoderInfo(ByVal mimeType As String) As Imaging.ImageCodecInfo
        Dim j As Integer
        Dim encoders() As Imaging.ImageCodecInfo
        encoders = Imaging.ImageCodecInfo.GetImageEncoders()
        For j = 0 To encoders.Length - 1
            If encoders(j).MimeType = mimeType Then
                Return encoders(j)
            End If
        Next
        Return Nothing
    End Function

    Private Sub SaveJpeg(ByRef img As Image, ByVal fname As String, ByVal qlt As Long) 'параметр "qlt" обязательно должен быть Long!!!
        Dim ci As Imaging.ImageCodecInfo
        ci = GetEncoderInfo("image/jpeg")
        Dim ep As New Imaging.EncoderParameters(1)
        ep.Param(0) = New Imaging.EncoderParameter(Imaging.Encoder.Quality, qlt)
        img.Save(fname, ci, ep)
    End Sub

Вопрос снят. Заработало.