Uz Galaxy - Info Archive top BBS   RSS
Info Archive  Graphics - イメージの保存  

標準では、イメージを、bmp,jpeg,tiff,gif,png の形式で保存できる。
(wmf,emf,icoは読み込みのみ)

            Dim d As DataObject = Clipboard.GetDataObject()
            Dim bmp As Bitmap = d.GetData(DataFormats.Bitmap)
            bmp.Save("C:\Image.jpg", System.Drawing.Imaging.ImageFormat.Jpeg)


jpeg 形式で品質(圧縮率)を指定するには、
            Dim eps As New System.Drawing.Imaging.EncoderParameters(1)
            Dim ep As New System.Drawing.Imaging.EncoderParameter(System.Drawing.Imaging.Encoder.Quality, 75)
            eps.Param(0) = ep
            Dim ici As System.Drawing.Imaging.ImageCodecInfo
            For Each ici In System.Drawing.Imaging.ImageCodecInfo.GetImageEncoders()
                If ici.MimeType = "image/jpeg" Then
                    Exit For
                End If
            Next
            If ici Is Nothing Then
                Exit Sub
            End If

            bmp.Save(sFileName, ici, eps)


bmp.Save("C:\Image.jpg", System.Drawing.Imaging.ImageFormat.Jpeg)
は、品質を 75 で保存したときのファイルサイズ同じになるようです。


Copyright © 2004 Uz. All rights reserved.
http://uzgalaxy.com/
このページはInfoArchiveで作成されています。