将 32 位图像转换为双色调黑白时出现问题

Question

我有以下代码例程...

Public Shared Sub ConvertToBitonal(ByRef Source As System.Windows.Media.Imaging.WriteableBitmap)
    If Source.Format = System.Windows.Media.PixelFormats.BlackWhite Then
        Exit Sub
    End If

    Dim BytesPerPixel As Integer = (Source.Format.BitsPerPixel + 7) / 8
    Dim Stride As Integer = Source.PixelWidth * BytesPerPixel
    Dim NumBytes As Long = Source.PixelHeight * Stride
    Dim pixels As Byte() = New Byte(NumBytes - 1) {}

    Source.CopyPixels(pixels, Stride, 0)

    For cnt As Integer = 0 To pixels.Length - 1 Step BytesPerPixel
        Dim blue As Byte = pixels(cnt + 0)
        Dim green As Byte = pixels(cnt + 1)
        Dim red As Byte = pixels(cnt + 2)
        Dim intensity As Integer = CType(red, Integer) + CType(green, Integer) + CType(blue, Integer)
        Dim targetColor As Byte

        If intensity > 400 Then
            targetColor = 255
        Else
            targetColor = 0
        End If

        pixels(cnt + 0) = targetColor
        pixels(cnt + 1) = targetColor
        pixels(cnt + 2) = targetColor
        pixels(cnt + 3) = targetColor
    Next

    Source.WritePixels(New System.Windows.Int32Rect(0, 0, Source.PixelWidth, Source.PixelHeight), pixels, Stride, 0)
End Sub

当源图像是每像素 24 位的种类时，输出完全符合我的要求，但是当源图像是 32 位时，颜色不是纯色的，并且我在整个图像中出现垂直线。谁能告诉我如何修改例程以使 32 位图像像他们的 24 位计数器一样出来？

这是我正在谈论的内容的屏幕截图......（显然我还没有足够的代表来发布图片，所以这里是一个链接

Answer 1

您可能必须先创建图像的 24bpp 副本。你试过吗？

我很久以前做过类似的事情（很久以前无法回忆细节），这篇文章很有帮助：Bitonal conversion issues。 MSDN论坛上也有一些信息。

编辑：seen this entry?

Answer 2

我挖掘了代码并发现了问题：

Dim BytesPerPixel As Integer = (Source.Format.BitsPerPixel + 7) / 8

删除+ 7。

也改变这个：

    pixels(cnt + 0) = targetColor

    pixels(cnt + 1) = targetColor

    pixels(cnt + 2) = targetColor

    pixels(cnt + 3) = targetColor

到包含该步骤的 FOR 循环.....即：

        Dim x%

        For x = cnt To cnt + BytesPerPixel - 1

            pixels(x) = targetColor

        Next

如果步长 > 4，则不会设置该值，并且会为您提供此条。