.NET 图片格式转换



bmp转tif

[vb] view plaincopyprint?

1. Dim bmp As Bitmap = New Bitmap(f)  
2.   
3. Dim strTifDescFile As String = "C:/abc.tif"  
4.   
5. '黑白双色图片  
6. Dim tifImageCodecInfo As ImageCodecInfo  
7. tifImageCodecInfo = GetEncoderInfo(ImageFormat.Tiff)  
8. Dim tifEncoderParameter1 As EncoderParameter  
9. Dim tifEncoderParameter2 As EncoderParameter  
10. Dim tifEncoderParameters As EncoderParameters  
11. tifEncoderParameter1 = New EncoderParameter(System.Drawing.Imaging.Encoder.ColorDepth, 8)  
12. tifEncoderParameter2 = New EncoderParameter(System.Drawing.Imaging.Encoder.Compression, EncoderValue.CompressionCCITT4)  
13. tifEncoderParameters = New EncoderParameters(2)  
14. tifEncoderParameters.Param(0) = tifEncoderParameter1  
15. tifEncoderParameters.Param(1) = tifEncoderParameter2  
16.   
17. bmp.Save(strTifDescFile, tifImageCodecInfo, tifEncoderParameters)  

Dim bmp As Bitmap = New Bitmap(f)Dim strTifDescFile As String = "C:/abc.tif"'黑白双色图片Dim tifImageCodecInfo As ImageCodecInfotifImageCodecInfo = GetEncoderInfo(ImageFormat.Tiff)Dim tifEncoderParameter1 As EncoderParameterDim tifEncoderParameter2 As EncoderParameterDim tifEncoderParameters As EncoderParameterstifEncoderParameter1 = New EncoderParameter(System.Drawing.Imaging.Encoder.ColorDepth, 8)tifEncoderParameter2 = New EncoderParameter(System.Drawing.Imaging.Encoder.Compression, EncoderValue.CompressionCCITT4)tifEncoderParameters = New EncoderParameters(2)tifEncoderParameters.Param(0) = tifEncoderParameter1tifEncoderParameters.Param(1) = tifEncoderParameter2bmp.Save(strTifDescFile, tifImageCodecInfo, tifEncoderParameters)

转载于：http://blog.csdn.net/u013162930/article/details/47806579