1

Q>如果显示 60*66 PNG 图像的所有 RGB 像素值需要 10-34 秒，那么 Image Viewer 如何立即显示图像？

        Dim clr As Integer ' or string
        Dim xmax As Integer
        Dim ymax As Integer
        Dim x As Integer
        Dim y As Integer
        Dim bm As New Bitmap(dlgOpen.FileName)

        xmax = bm.Width - 1
        ymax = bm.Height - 1

        For y = 0 To ymax
            For x = 0 To xmax
                With bm.GetPixel(x, y)
                    clr = .R & .G & .B
                    txtValue.AppendText(clr)
                End With
            Next x
        Next y

编辑

Dim bmp As New Bitmap(dlgOpen.FileName)
Dim rect As New Rectangle(0, 0, bmp.Width, bmp.Height)
Dim bmpData As System.Drawing.Imaging.BitmapData = bmp.LockBits(rect,Drawing.Imaging.ImageLockMode.ReadWrite, bmp.PixelFormat)
Dim ptr As IntPtr = bmpData.Scan0
Dim bytes As Integer = Math.Abs(bmpData.Stride) * bmp.Height
Dim rgbValues(bytes - 1) As Byte

System.Runtime.InteropServices.Marshal.Copy(ptr, rgbValues, 0, bytes)

For counter As Integer = 0 To rgbValues.Length - 1
       txtValue.AppendText(rgbValues(counter))
Next

System.Runtime.InteropServices.Marshal.Copy(rgbValues, 0, ptr, bytes)
bmp.UnlockBits(bmpData)

第一个代码需要10秒，第二个代码大约需要34秒，用于在具有 4 GB RAM 的 AMD A6 3500 上显示 59*66 PNG 图像的文本框中的所有值！

从文件读取和写入文本框同时发生时存在问题！

4

1 回答 1

1

问题是，如果您需要访问大量像素，您正在使用的功能 GetPixel 会非常慢。尝试使用LockBits。您可以使用它几乎立即收集图像数据。

使用 LockBits 方法访问图像数据。

于 2012-07-27T15:59:27.090 回答