RGB字节数组转图像时颜色分量顺序反转问题排查

看起来你碰到了一个很典型的GDI+颜色通道顺序坑——从图像提取的RGB数组转回去后颜色完全反转，蓝变橙这种情况明显是红和蓝通道搞反了，而且你试了交换组件也没用，大概率是颜色顺序不匹配+像素格式错位两个问题叠加导致的，我们一步步来拆解和修复。

核心问题分析 #

1. 颜色通道顺序的天然差异

你在RGB_Byte_Array_From_Image里通过GetPixel获取像素的R→G→B，并按这个顺序存入数组，也就是数组里每个像素的字节顺序是[R, G, B]。但Windows GDI+的Format24bppRgb格式Bitmap，在内存中的存储顺序是B→G→R（这是历史遗留的硬件兼容设计）。

你现在的转换代码里，错误地把数组的第一个字节（R）当成B写入内存，第三个字节（B）当成R写入内存，导致内存里的顺序是[R, G, B]，Bitmap读取时会把这个当成[B, G, R]，自然就出现蓝变橙的反转效果。

2. 像素格式不匹配导致数据错位

你的RGB_Byte_Array_From_Image固定创建width*height*3长度的数组，默认图像是24bpp（无Alpha通道），但如果原图像是32bpp（带Alpha，比如某些PNG或隐含格式的JPG），bytesPerPixel会是4，这时候数组长度不够，转写时每行的偏移计算完全错位，颜色混乱会更严重，甚至出现花屏——这也是你之前尝试交换组件无效的潜在原因之一。

3. Stride对齐的小疏忽

Bitmap的Stride（行字节数）是按4字节对齐的，比如宽度是奇数时，24bpp的行字节数会自动补全为4的倍数，而你的源数组每行是严格的width*3字节，所以转写时不能直接用y * width * bytesPerPixel作为源数组的行偏移，必须用固定的y * width *3（因为数组是3字节每像素）。

修正后的代码方案 #

我们统一按24bpp RGB格式处理，避免格式兼容问题，同时修正颜色顺序和偏移计算：

1. 修正图像转RGB数组函数

确保输出标准RGB数组，并且自动将原图像转为24bpp格式：

Private Function RGB_Byte_Array_From_Image(filePath As String) As Byte()
    Dim imageBytes As Byte()
    ' 先统一转换为24bpp RGB格式，避免原格式差异
    Using originalImage As New Bitmap(filePath)
        Using rgbImage As New Bitmap(originalImage.Width, originalImage.Height, Imaging.PixelFormat.Format24bppRgb)
            Using g As Graphics = Graphics.FromImage(rgbImage)
                g.DrawImage(originalImage, New Rectangle(0, 0, rgbImage.Width, rgbImage.Height))
            End Using
            imageBytes = New Byte(rgbImage.Width * rgbImage.Height * 3 - 1) {}
            For y As Integer = 0 To rgbImage.Height - 1
                For x As Integer = 0 To rgbImage.Width - 1
                    Dim pixelColor As Color = rgbImage.GetPixel(x, y)
                    Dim pixelIndex As Integer = (y * rgbImage.Width + x) * 3
                    imageBytes(pixelIndex) = pixelColor.R
                    imageBytes(pixelIndex + 1) = pixelColor.G
                    imageBytes(pixelIndex + 2) = pixelColor.B
                Next
            Next
        End Using
    End Using
    Return imageBytes
End Function

2. 修正RGB数组转图像函数

匹配数组的RGB顺序和Bitmap的BGR内存顺序，同时修正行偏移：

Private Shared Function RGB_Byte_Array_To_Image(rgbByteArray() As Byte, width As Integer, height As Integer) As Bitmap
    ' 固定使用24bpp格式，和数组的3字节每像素结构匹配
    Dim targetFormat As Imaging.PixelFormat = Imaging.PixelFormat.Format24bppRgb
    Dim b As New Bitmap(width, height, targetFormat)
    Dim boundsRect As New Rectangle(0, 0, width, height)
    Dim bmpData As Imaging.BitmapData = b.LockBits(boundsRect, Imaging.ImageLockMode.WriteOnly, targetFormat)
    
    Dim bytesPerPixel As Integer = 3 ' 24bpp固定3字节每像素
    Dim stride As Integer = bmpData.Stride
    Dim scan0 As IntPtr = bmpData.Scan0

    For y As Integer = 0 To height - 1
        Dim imageRowOffset As Integer = y * stride ' 图像内存的行偏移（考虑对齐）
        Dim arrayRowOffset As Integer = y * width * bytesPerPixel ' 数组的行偏移（无对齐）
        For x As Integer = 0 To width - 1
            Dim pixelOffset As Integer = x * bytesPerPixel
            ' 数组里是R-G-B，内存需要B-G-R，交换R和B的写入顺序
            Dim red As Byte = rgbByteArray(arrayRowOffset + pixelOffset)
            Dim green As Byte = rgbByteArray(arrayRowOffset + pixelOffset + 1)
            Dim blue As Byte = rgbByteArray(arrayRowOffset + pixelOffset + 2)

            Runtime.InteropServices.Marshal.WriteByte(scan0, imageRowOffset + pixelOffset, blue)
            Runtime.InteropServices.Marshal.WriteByte(scan0, imageRowOffset + pixelOffset + 1, green)
            Runtime.InteropServices.Marshal.WriteByte(scan0, imageRowOffset + pixelOffset + 2, red)
        Next
    Next
    b.UnlockBits(bmpData)
    Return b
End Function

3. 简化后的调用代码

因为统一用24bpp格式，不需要再传递原图像的像素格式：

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Dim filePath As String = "C:\Users\...\Pictures\Testbild mit Gimp erstellen\Test, nicht optimiert, nicht progressiv 2.jpg"
    Dim rgbByteArray As Byte() = RGB_Byte_Array_From_Image(filePath)
    Dim width As Integer
    Dim height As Integer

    Using image As New Bitmap(filePath)
        width = image.Width
        height = image.Height
    End Using

    Using normal_Image As System.Drawing.Bitmap = RGB_Byte_Array_To_Image(rgbByteArray, width, height)
        normal_Image.Save("C:\Users\...\Desktop\Test.png", Imaging.ImageFormat.Png)
    End Using
End Sub

为什么之前交换组件没用？ #

你之前尝试交换组件，但可能没抓准核心矛盾：要么是交换了数组里的存储顺序，但没匹配Bitmap内存的BGR要求；要么是原图像格式不是24bpp，导致数组长度不够，数据错位后单纯交换颜色也无法恢复正常。现在的修正既统一了格式，又明确了颜色顺序的转换逻辑，应该能解决你的问题。

备注：内容来源于stack exchange，提问作者Daniel