Пробуем получить цвет пиксела из массива GetBitmapBits

[Mihail_]

Здравствуйте, подскажите пожалуйста, как выделить цвет пиксела из массива, создаваемого функцией GetBitmapBits ?
Как там формируется цвет из RGB?

неудачная попытка прилагается

на форме 2 пикчер-бокса, в первом картинка, во-второй я пытаюсь ее по-пиксельно перенести (чтобы понять как выделается цвет пиксела)
вроде как там нужно делать блоки по 4 байта, где первые 3 байта это RGB, а 4-й не используется
Я пытался эти байты и перемножать и складывать, но в результате получается либо переполнение буфера, либо не тот результат, который ожидался..

Код: Выделить всё

Private Sub Command1_Click()
Dim lCol As Long, x As Integer, y As Integer

GetObject Picture1.Image, Len(PicInfo), PicInfo
BytesPerLine = (PicInfo.bmWidth * 3) + (PicInfo.bmWidth Mod 4)
ReDim PicBits(1 To BytesPerLine * PicInfo.bmHeight * 3) As Byte
GetBitmapBits Picture1.Image, UBound(PicBits), PicBits(1)

For Cnt = 4 To UBound(PicBits) Step 4 ' отсчитываем 4 байта

x = x + 1
If x = Picture1.ScaleWidth Then
x = 0
y = y + 1
End If
lCol = PicBits(Cnt - 1) '+ PicBits(Cnt - 2) + PicBits(Cnt - 1)

Picture2.PSet (x, y), lCol

Next Cnt

End Sub


Буду признателен за помощь.

[Йода]

3 байта это RGB, а 4-й не используется

Первые 3 байта это не RGB, а BGR. То есть первый байт содержит значение синего компонента.

Я пытался эти байты и перемножать и складывать

Есть специальная функция. Называется RGB.
Держи слегка поправленный код.

[Mihail_]

как говорится: все гениальное - просто
большое спасибо!