Параметры GetDiBits

[VB-constructor]

Привет всем! Снова я)).... Снова работа с битмапом... на этот раз у меня не получается работа с GetDIBits, компилятор ругается за объявленную переменную BITMAPINFOHEADER, говорит ByRef argument type mismatch

несогласовывается((

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

Option Explicit
Private Const BI_RGB = 0&
Private Declare Function GetDIBits Lib "gdi32" (ByVal aHDC As Long, ByVal hBitmap As Long, ByVal nStartScan As Long, ByVal nNumScans As Long, lpBits As Any, lpBI As BITMAPINFO, ByVal wUsage As Long) As Long

Private Type BITMAPINFOHEADER '40 bytes
        biSize As Long
        biWidth As Long
        biHeight As Long
        biPlanes As Integer
        biBitCount As Integer
        biCompression As Long
        biSizeImage As Long
        biXPelsPerMeter As Long
        biYPelsPerMeter As Long
        biClrUsed As Long
        biClrImportant As Long
End Type

Dim f As BITMAPINFOHEADER 

Dim Contain() As Byte

Private Sub Command1_Click()
    With f
        .biSize = LenB(f)
        .biWidth = ScaleX(Picture.Width, vbHimetric, vbPixels)
        .biHeight = ScaleY(Picture.Width, vbHimetric, vbPixels)
        .biPlanes = 1
        .biBitCount = 32
        .biCompression = 0
        .biBitCount = 24
        .biCompression = BI_RGB
    End With
   
   
    ReDim Contain(1 To f.biWidth, 1 To f.biHeight) As Byte
    Command1.Caption = GetDIBits(hDC, Picture1.Picture, 0, f.biHeight, Contain(1, 1), f, 0)
   
End Sub

Подскажит, в чем незадача?

Спасибо

[tyomitch]

Ну так переобъяви, делов-то...

[VB-constructor]

Он у меня ругается на f в строчке:

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

Command1.Caption = GetDIBits(hDC, Picture1.Picture, 0, f.biHeight, Contain(1, 1), f, 0)


она вроде как объявлена:

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

Dim f As BITMAPINFOHEADER 

была...

[tyomitch]

Ну правильно, а функция хочет BITMAPINFO. Какой вывод?

[VB-constructor]

ммм... снимаю шляпу...

и правда

она у меня не правильно объявлена что ли?..

я только что видел ее объявленную так: :

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

Private Declare Function GetDIBits Lib "gdi32" (ByVal aHDC As Long, ByVal hBitmap As Long, ByVal nStartScan As Long, ByVal nNumScans As Long, lpBits As Any, lpBI As BITMAPINFOHEADER, ByVal wUsage As Long) As Long

причем пример рабочий :roll

[BV]

Объявлена правильно, а вот структуру не ту передаешь.

[VB-constructor]

BV, благодарю....

все, заменил....

вот только одно смущает: функция возвращает ноль ((
значит работает неправильно? что не так?

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

Option Explicit
Private Const BI_RGB = 0&

Private Declare Function GetDIBits Lib "gdi32" (ByVal aHDC As Long, ByVal hBitmap _
As Long, ByVal nStartScan As Long, ByVal nNumScans As Long, lpBits As Any, lpBI _
As BITMAPINFO, ByVal wUsage As Long) As Long

Private Declare Function SetDIBitsToDevice Lib "gdi32" (ByVal hdc As Long, ByVal _
x As Long, ByVal y As Long, ByVal dx As Long, ByVal dy As Long, ByVal SrcX As _
Long, ByVal SrcY As Long, ByVal Scan As Long, ByVal NumScans As Long, Bits As _
Any, BitsInfo As BITMAPINFO, ByVal wUsage As Long) As Long
Private Type BITMAPINFOHEADER '40 bytes
        biSize As Long
        biWidth As Long
        biHeight As Long
        biPlanes As Integer
        biBitCount As Integer
        biCompression As Long
        biSizeImage As Long
        biXPelsPerMeter As Long
        biYPelsPerMeter As Long
        biClrUsed As Long
        biClrImportant As Long
End Type

Dim f As BITMAPINFO  'структура битмап_инфо хранит _
информацию о копируемом рисунке, 40 байтов
Dim Contain() As Byte 'массив для битов рисунка
Private Type RGBQUAD
        rgbBlue As Byte
        rgbGreen As Byte
        rgbRed As Byte
        rgbReserved As Byte
End Type
Private Type BITMAPINFO
        bmiHeader As BITMAPINFOHEADER
        bmiColors As RGBQUAD
End Type

Private Const DIB_RGB_COLORS = 0

Private Sub Command1_Click()
    With f.bmiHeader
        .biSize = LenB(f)
        .biWidth = ScaleX(Picture1.Picture.Width, vbHimetric, vbPixels)
        .biHeight = ScaleY(Picture1.Picture.Width, vbHimetric, vbPixels)
        .biPlanes = 1
        .biBitCount = 32
        .biCompression = 0
        .biBitCount = 24
        .biCompression = BI_RGB
    End With
   
    ReDim Contain(1 To f.bmiHeader.biWidth, 1 To f.bmiHeader.biHeight) As Byte
    Command1.Caption = GetDIBits(hdc, Picture1.Picture, 0, f.bmiHeader.biHeight, Contain(1, 1), f, 0)

End Sub

[BV]

Измени:

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

ReDim Contain(1 To 3, 1 To f.bmiHeader.biWidth, 1 To f.bmiHeader.biHeight) As Byte

И соответственно:

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

Command1.Caption = GetDIBits(hdc, Picture1.Picture, 0, f.bmiHeader.biHeight, Contain(1, 1, 1), f, 0)

[VB-constructor]

Good! Работает! Спасибо, BV!

Если я правильно понял, то здесь 1 to 3 - это по RGB на каждый пиксел... как в GetDiBits, только затычек нету

[tyomitch]

Да есть там затычки
Попробуй с картинкой, чей размер не кратен 4 -- увидишь.

[VB-constructor]

Да вроде он и не кратен..., картинка копируется нормально...

А что я должен увидеть?

[tyomitch]

"нормально" -- это ты по возвращаемому значению судишь, или как?

[VB-constructor]

Я копирую эту картинку в массив байт с picture, а потом вставляюа на форму:

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

Option Explicit
Private Const BI_RGB = 0&

Private Declare Function GetDIBits Lib "gdi32" (ByVal aHDC As Long, ByVal hBitmap _
As Long, ByVal nStartScan As Long, ByVal nNumScans As Long, lpBits As Any, lpBI _
As BITMAPINFO, ByVal wUsage As Long) As Long

Private Declare Function SetDIBitsToDevice Lib "gdi32" (ByVal hdc As Long, ByVal _
x As Long, ByVal y As Long, ByVal dx As Long, ByVal dy As Long, ByVal SrcX As _
Long, ByVal SrcY As Long, ByVal Scan As Long, ByVal NumScans As Long, Bits As _
Any, BitsInfo As BITMAPINFO, ByVal wUsage As Long) As Long
Private Type BITMAPINFOHEADER '40 bytes
        biSize As Long
        biWidth As Long
        biHeight As Long
        biPlanes As Integer
        biBitCount As Integer
        biCompression As Long
        biSizeImage As Long
        biXPelsPerMeter As Long
        biYPelsPerMeter As Long
        biClrUsed As Long
        biClrImportant As Long
End Type

Dim f As BITMAPINFO  'структура битмап_инфо хранит _
информацию о копируемом рисунке, 40 байтов
Dim Contain() As Byte 'массив для битов рисунка

Private Type RGBQUAD
        rgbBlue As Byte
        rgbGreen As Byte
        rgbRed As Byte
        rgbReserved As Byte
End Type
Private Type BITMAPINFO
        bmiHeader As BITMAPINFOHEADER
        bmiColors As RGBQUAD
End Type

Private Const DIB_RGB_COLORS = 0

Private Sub Command1_Click()
    With f.bmiHeader
        .biSize = LenB(f)
        .biWidth = ScaleX(Picture1.Picture.Width, vbHimetric, vbPixels)
        .biHeight = ScaleY(Picture1.Picture.Width, vbHimetric, vbPixels)
        .biPlanes = 1
        .biBitCount = 32
        .biCompression = 0
        .biBitCount = 24
        .biCompression = BI_RGB
    End With
   
    ReDim Contain(1 To 3, 1 To f.bmiHeader.biWidth, 1 To f.bmiHeader.biHeight) As Byte

    Command1.Caption = GetDIBits(hdc, Picture1.Picture, 0, f.bmiHeader.biHeight, Contain(1, 1, 1), f, 0)
   
    SetDIBitsToDevice hdc, 0, 0, f.bmiHeader.biWidth, f.bmiHeader.biHeight, 0, 0, 0, _
    f.bmiHeader.biHeight, Contain(1, 1, 1), f, DIB_RGB_COLORS
   
End Sub


изображение копируется.............

это ж "нормально"?

[tyomitch]

Естественно, что копируется нормально, потому что SetDIBitsToDevice рассчитывает, что в массиве затычки есть.
Вопрос в другом -- зачем ты копируешь картинку из одного hDC в другой через массив? Просто для интереса, или ты между GetDIBits и SetDIBitsToDevice рассчитываешь что-то делать с байтами этого массива?

[VB-constructor]

или ты между GetDIBits и SetDIBitsToDevice рассчитываешь что-то делать с байтами этого массива?

рассчитываю, но сначала мне нужно понять саму суть их работы tyomitch, вопрос:

Да есть там затычки

ну по-видимому мы их или не объявили или они остались где-то за кадром

ReDim Contain(1 To 3, 1 To f.bmiHeader.biWidth, 1 To f.bmiHeader.biHeight) As Byte

это ж тоже самое, что f.bmiHeader.biWidth*f.bmiHeader.biHeight*3, а остатка от деления f.bmiHeader.biWidth нет вопрос: где его добавить?

[VB-constructor]

И нужно ли?

[tyomitch]

Тебе не удастся прочитать 24-битную картинку в трёхмерный массив байт, потому что в картинке есть затычки, а в массиве нет.

[Sofist]

Вопрос несколько не по теме, но затрагивает ее все равно.. Допустим имеем видео файл, который проигрывается в PictureBox1 с помощью MMControl. Потом нажимается пауза и дается команда на отработку вышеизложенного алгоритма. В результате массив Contain() получается забит нулями.. Я так понимаю функции GetDIBits передается hdc именно Picture1.Picture, а как передать ей hWnd от того же Picture1??

[GSerg]

Sofist, а каким образом это, по-твоему, поможет?

[Sofist]

Вот так MMControl.hWndDisplay = Picture1.hWnd я заставляю видеофайл проигрываться в Picture1.. Самой фукнцкии я передаю Picture1.Picture и вот не знаю как через Picture1 связать видеофайл и функцию GetDIBits?? или с помощью этой функции я вообще не получу то, что хочу???

[GSerg]

Самой фукнцкии я передаю Picture1.Picture

Не смущает, что в примере передаётся hdc, и что ничего кроме hdc туда не надо передавать?
Али свойства hdc у picturebox не нашёл?

[Sofist]

Нашел.. а толку.. не понимаю куда мне его прописать.. GetDIBits(hdc, Picture1.hdc, 0, f.bmiHeader.biHeight, Contain(1, 1, 1), f, 0) - не работает.. GetDIBits(hdc, Picture1.Picture, 0, f.bmiHeader.biHeight, Contain(1, 1, 1), f, 0) - составляет массив из картинки находящейся в Picture1, а не видео, которое там проигрывается...

[Viper]

вообще-то для hDC там одно только место - первый аргумент

[GSerg]

составляет массив из картинки находящейся в Picture1, а не видео, которое там проигрывается...

Вполне реально, что проигрывается оверлеем в коордниатах пикчербокса.
Это совершенно другой и гораздо более сложный вопрос.

[Sofist]

Значит никак???

[VB-constructor]

Значит никак???

hdc - это, что относится к GDI, а видео - совсем другая история, но это не значит что не лья . Скриншоты же как-то делают. Насколько я понял, тееб нужно что-то подобное

[Sofist]

Мне нужно быстро загонять цвета пикселей в массив.. порядка 30 кадров в секунду...

[X-hacker]

И что ты массивом будешь делать?Ето типа копирование видео через
PictureBox. Посто от того что ты планируешь сделать с полученным потоком много зависит...