bmp转tif
- Dim bmp As Bitmap = New Bitmap(f)
- Dim strTifDescFile As String = "C:/abc.tif"
- '黑白双色图片
- Dim tifImageCodecInfo As ImageCodecInfo
- tifImageCodecInfo = GetEncoderInfo(ImageFormat.Tiff)
- Dim tifEncoderParameter1 As EncoderParameter
- Dim tifEncoderParameter2 As EncoderParameter
- Dim tifEncoderParameters As EncoderParameters
- tifEncoderParameter1 = 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) = tifEncoderParameter1
- tifEncoderParameters.Param(1) = tifEncoderParameter2
- bmp.Save(strTifDescFile, tifImageCodecInfo, tifEncoderParameters)
Dim bmp As Bitmap = New Bitmap(f)
Dim strTifDescFile As String = "C:/abc.tif"
'黑白双色图片
Dim tifImageCodecInfo As ImageCodecInfo
tifImageCodecInfo = GetEncoderInfo(ImageFormat.Tiff)
Dim tifEncoderParameter1 As EncoderParameter
Dim tifEncoderParameter2 As EncoderParameter
Dim tifEncoderParameters As EncoderParameters
tifEncoderParameter1 = 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) = tifEncoderParameter1
tifEncoderParameters.Param(1) = tifEncoderParameter2
bmp.Save(strTifDescFile, tifImageCodecInfo, tifEncoderParameters)
转载于:http://blog.youkuaiyun.com/u013162930/article/details/47806579