[记录]高品质图像保存代码

 

[C#]
/**//// <param name="fileName">图像名</param>
/// <param name="quality">品质</param>
public static void SaveImage(string fileName, int quality)
{
    
    Bitmap  myBitmap= new Bitmap(fileName);

   
    System.Drawing.Imaging.EncoderParameters myEncoderParameters =
        new System.Drawing.Imaging.EncoderParameters(1);

    System.Drawing.Imaging.EncoderParameter myEncoderParameter =
        new System.Drawing.Imaging.EncoderParameter(
        System.Drawing.Imaging.Encoder.Quality, quality);
  
    myEncoderParameters.Param[0] = myEncoderParameter;

  
    System.Drawing.Imaging.ImageCodecInfo myImageCodecInfo;
    myImageCodecInfo = GetEncoderInfo("image/jpeg");

   
    string ext = myImageCodecInfo.FilenameExtension.Split(';')[0];
    ext = System.IO.Path.GetExtension(ext).ToLower();

    string saveName= System.IO.Path.ChangeExtension(fileName, ext);

    //保存
    myBitmap.Save(saveName, myImageCodecInfo, myEncoderParameters);
}

//获取MimeType
private static System.Drawing.Imaging.ImageCodecInfo
    GetEncoderInfo(string mineType)
{
    
    System.Drawing.Imaging.ImageCodecInfo [] myEncoders=
        System.Drawing.Imaging.ImageCodecInfo.GetImageEncoders();
    
    foreach (System.Drawing.Imaging.ImageCodecInfo myEncoder in myEncoders)
        if (myEncoder.MimeType == mineType)
            return myEncoder;
    return null;
}

[VB.NET]
Public Shared  Sub SaveImage()Sub SaveImage(ByVal fileName As String, _
        ByVal quality As Integer)
    
    Dim myBitmap As Bitmap =  New Bitmap(fileName) 
 
    
    Dim myEncoderParameters As _
        New System.Drawing.Imaging.EncoderParameters(1) 
    
    Dim myEncoderParameter As _
        New System.Drawing.Imaging.EncoderParameter( _
        System.Drawing.Imaging.Encoder.Quality,quality) 
    
    myEncoderParameters.Param(0) = myEncoderParameter

    
    Dim myImageCodecInfo As System.Drawing.Imaging.ImageCodecInfo
    myImageCodecInfo = GetEncoderInfo("image/jpeg")
 
    
    Dim ext As String =  myImageCodecInfo.FilenameExtension.Split(";"c)(0) 
    ext = System.IO.Path.GetExtension(ext).ToLower()
 
    
    Dim saveName As String = _
        System.IO.Path.ChangeExtension(fileName, ext) 
 
    '保存
    myBitmap.Save(saveName, myImageCodecInfo, myEncoderParameters)
End Sub
 
'获取MimeType
Private Shared Function GetEncoderInfo()Function GetEncoderInfo(ByVal mineType As String) _
        As System.Drawing.Imaging.ImageCodecInfo
    
    Dim myEncoders() As System.Drawing.Imaging.ImageCodecInfo = _
        System.Drawing.Imaging.ImageCodecInfo.GetImageEncoders() 
    
    Dim myEncoder As System.Drawing.Imaging.ImageCodecInfo
    For Each myEncoder In myEncoders
        If myEncoder.MimeType = mineType Then
            Return myEncoder
        End If
    Next
    Return Nothing
End Function