JPEGファイルの保存の際に圧縮レベルを指定するには？

ヒコヒコ 2004-02-26 20:39:24 No: 112063

ビットマップで開いたデータをJPEGで保存を行なっているのですが
その場合にJPEGでの圧縮レベルの指定方法が分かりません。
次のような方法でjpegに書き出しています。

    Dim bmp As Bitmap
    bmp = New Bitmap("bmp.bmp")
    bmp.Save("jpeg.jpg", ImageFormat.Jpeg)

魔界の仮面弁士 2004-02-26 21:48:07 No: 112064

Save時に、コーデックパラメータを指定しましょう。

Dim ImgCodec As System.Drawing.Imaging.ImageCodecInfo
ImgCodec = コーデック形式(この場合は、mimeTypeが"image/jpeg"の物)

Dim EncParams As New System.Drawing.Imaging.EncoderParameters(1)
EncParams.Param(0) = New System.Drawing.Imaging.EncoderParameter(パラメータ)
'例えば、「(System.Drawing.Imaging.Encoder.Quality, 90)」などを指定

MyImage.Save(出力先, ImgCodec, EncParams)