Чтение значения пикселя изображения

Question

В> Если показ всех значений RGB-пикселей изображения PNG размером 60 * 66 занимает 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 секунд для отображения всех значений в текстовом поле для изображения PNG размером 59 * 66 на AMD A6 3500 с 4 ГБ ОЗУ!

Проблема существует, когда чтение из файла и запись в текстовое поле происходит одновременно!

Answer 1

Проблема в том, что функция, которую вы используете, GetPixel, очень медленная, если вам нужно получить доступ к большому количеству пикселей. Попробуйте использовать LockBits. Вы можете использовать это, чтобы собрать данные изображения практически мгновенно.

Использование метода LockBits для доступа к данным изображения.