使用Visual Basic判断TIFF图像类型及彩色转灰度方法咨询

1 TIFF灰度/彩色判断方法及相关概念参考资料 #

1.1 判断属性与方法 #

基于.NET的System.Drawing类库可通过两个核心属性直接判断：

• Image.Flags属性：检查该属性是否包含ImageFlags.ColorSpaceGray标志位，符合标准的TIFF文件可直接通过该内置标记快速识别灰度类型
• PixelFormat属性：
  • 若像素格式为Format8bppIndexed，遍历调色板Palettes的所有条目，所有条目满足R=G=B则为灰度图，否则为彩色
  • 若像素格式为Format24bppRgb/Format32bppArgb等真彩色格式，采样少量像素验证是否满足R=G=B，全部满足则为灰度图

1.2 相关概念参考书籍 #

以下两本书籍覆盖Palettes、PixelFormat、ImageAttributes、Flags等图像核心概念的完整讲解：

1. 《Windows GDI+图形程序设计》：系统讲解GDI+架构下所有图像相关的核心概念、API用法，附带大量可直接复用的实践案例
2. 《数字图像处理：原理与实践（C#/VB.NET版）》：专门针对.NET平台的图像格式处理做了细化讲解，包含TIFF格式的结构解析、各类属性的读写操作逻辑

2 Visual Basic实现彩色TIFF转灰度 #

以下代码基于.NET Framework的System.Drawing类库实现，采用标准BT.601灰度转换公式：灰度值 = 0.299×R + 0.587×G + 0.114×B，默认输出带LZW无损压缩的灰度TIFF：

Imports System.Drawing
Imports System.Drawing.Imaging

Public Function ConvertTiffToGrayscale(sourcePath As String, outputPath As String) As Boolean
    Try
        ' 加载源彩色TIFF文件
        Using sourceImg As Image = Image.FromFile(sourcePath)
            ' 创建8位灰度格式的目标图像
            Dim grayscaleImg As New Bitmap(sourceImg.Width, sourceImg.Height, PixelFormat.Format8bppIndexed)
            
            ' 初始化灰度调色板
            Dim grayPalette As ColorPalette = grayscaleImg.Palette
            For i = 0 To 255
                grayPalette.Entries(i) = Color.FromArgb(i, i, i)
            Next
            grayscaleImg.Palette = grayPalette
            
            ' 锁定图像内存区域实现高速读写
            Dim sourceBmpData As BitmapData = CType(sourceImg, Bitmap).LockBits(New Rectangle(0, 0, sourceImg.Width, sourceImg.Height), ImageLockMode.ReadOnly, PixelFormat.Format24bppRgb)
            Dim targetBmpData As BitmapData = grayscaleImg.LockBits(New Rectangle(0, 0, grayscaleImg.Width, grayscaleImg.Height), ImageLockMode.WriteOnly, PixelFormat.Format8bppIndexed)
            
            Dim sourceStride As Integer = Math.Abs(sourceBmpData.Stride)
            Dim targetStride As Integer = Math.Abs(targetBmpData.Stride)
            
            ' 定义像素数据存储数组
            Dim sourcePixelBuffer(sourceStride * sourceImg.Height - 1) As Byte
            Dim targetPixelBuffer(targetStride * grayscaleImg.Height - 1) As Byte
            
            ' 复制像素数据到托管数组
            Runtime.InteropServices.Marshal.Copy(sourceBmpData.Scan0, sourcePixelBuffer, 0, sourcePixelBuffer.Length)
            Runtime.InteropServices.Marshal.Copy(targetBmpData.Scan0, targetPixelBuffer, 0, targetPixelBuffer.Length)
            
            Dim sourceOffset As Integer = 0
            Dim targetOffset As Integer = 0
            ' 遍历所有像素完成灰度转换
            For y = 0 To sourceImg.Height - 1
                sourceOffset = y * sourceStride
                targetOffset = y * targetStride
                For x = 0 To sourceImg.Width - 1
                    ' 24位RGB存储顺序为B、G、R
                    Dim b As Byte = sourcePixelBuffer(sourceOffset)
                    Dim g As Byte = sourcePixelBuffer(sourceOffset + 1)
                    Dim r As Byte = sourcePixelBuffer(sourceOffset + 2)
                    ' 计算灰度值
                    Dim grayVal As Byte = CByte(r * 0.299 + g * 0.587 + b * 0.114)
                    targetPixelBuffer(targetOffset) = grayVal
                    sourceOffset += 3
                    targetOffset += 1
                Next
            Next
            
            ' 转换完成后写回目标图像内存
            Runtime.InteropServices.Marshal.Copy(targetPixelBuffer, 0, targetBmpData.Scan0, targetPixelBuffer.Length)
            
            ' 解锁内存
            CType(sourceImg, Bitmap).UnlockBits(sourceBmpData)
            grayscaleImg.UnlockBits(targetBmpData)
            
            ' 配置TIFF编码参数，默认使用LZW无损压缩
            Dim tiffEncoder As ImageCodecInfo = ImageCodecInfo.GetImageEncoders().First(Function(codec) codec.FormatID = ImageFormat.Tiff.Guid)
            Dim encodeParams As New EncoderParameters(1)
            encodeParams.Param(0) = New EncoderParameter(Encoder.Compression, EncoderValue.CompressionLZW)
            
            ' 保存灰度TIFF
            grayscaleImg.Save(outputPath, tiffEncoder, encodeParams)
            grayscaleImg.Dispose()
        End Using
        Return True
    Catch ex As Exception
        ' 可根据业务需求补充异常日志逻辑
        Return False
    End Try
End Function

调用示例 #

ConvertTiffToGrayscale("C:\测试\彩色文件.tiff", "C:\测试\输出灰度文件.tiff") #

内容的提问来源于stack exchange，提问作者JerrMerr