Пример использования функции:
- Код: Выделить всё
'Установите на форме кнопку и PictureBox; в PictureBox загрузите картинку.
Private Type BITMAP
bmType As Long
bmWidth As Long
bmHeight As Long
bmWidthBytes As Long
bmPlanes As Integer
bmBitsPixel As Integer
bmBits As Long
End Type
Private Declare Function GetObject Lib "gdi32" Alias "GetObjectA" (ByVal hObject As Long, ByVal nCount As Long, lpObject As Any) As Long
Private Declare Function GetBitmapBits Lib "gdi32" (ByVal hBitmap As Long, ByVal dwCount As Long, lpBits As Any) As Long
Private Declare Function SetBitmapBits Lib "gdi32" (ByVal hBitmap As Long, ByVal dwCount As Long, lpBits As Any) As Long
Dim PicInfo As BITMAP
Dim Cnt As Long
Dim PicBits() As Byte
Private Sub Command1_Click()
GetObject Picture1.Image, Len(PicInfo), PicInfo
ReDim PicBits(1 To PicInfo.bmWidth * PicInfo.bmHeight * 4) As Byte ' выделяем размер буфера, почему умножаем именно на 4 не знаю, но если меньше, картинка будет не полностью обработана
GetBitmapBits Picture1.Image, UBound(PicBits), PicBits(1)
For Cnt = 1 To UBound(PicBits)
PicBits(Cnt) = 255 - PicBits(Cnt)
Next Cnt
SetBitmapBits Picture1.Image, UBound(PicBits), PicBits(1)
Picture1.Refresh
End Sub
Здесь по нажатию кнопки картинка будет инвертирована.
Нам нужно преобразовать этот буфер в массив пикселов примерно такого вида Pixel(x,y) = color, тоесть так же, как если бы мы использовали медленную функцию GetPixel.
Была мысль использовать АПИ CopyMemory и копировать из буфера по 3 байта, но по-моему получаются какие-то не такие значения цвета
Выглядит примерно так:
- Код: Выделить всё
For Cnt = 1 To UBound(PicBits) Step 3
CopyMemory lColor, PicBits(Cnt), 3
Next Cnt
Ширину и высоту рисунка мы знаем (PicInfo.bmWidth и PicInfo.bmHeight)
Заранее спасибо за ваши ответы!
гугл что-то невнятное выдает
