| Вопрос: GetDIBits не работает | Добавлено: 20.01.06 15:50 |
Автор вопроса:  Victor | Web-сайт: vt-dbnz.narod.ru | ICQ: 345743490 |
| Ответы | Всего ответов: 30 |
|
Номер ответа: 16 Автор ответа:  Victor ICQ: 345743490 Вопросов: 42 Ответов: 385 |
Web-сайт: Профиль | | #16 | Добавлено: 21.01.06 18:52 |
|
bmiColors member of the BITMAPINFO structure consists of an array of RGBQUAD structures ЭТО ЖЕ ПАЛИТРА, а не рисунок. А какая нафиг палитра в true color 24-bit bitmap'е???
Я вообще-то графический редактор пишу, и уже давно. И битмапы на диск много раз записывал, и на эти подводные камни натыкался. Так. Все. Проверяю код примера, думаю и отвечу. |
||
|
Номер ответа: 17 Автор ответа: VictorICQ: 345743490 Вопросов: 42 Ответов: 385 |
Web-сайт: Профиль | | #17 | Добавлено: 21.01.06 19:01 |
|
Проверил. При .biWidth не кратных четырем (проверил 101) приведенный пример не работает. Либо остается небольшая серая горизонтальная полоска в левом верхнем углу рисунка, что свидетельствует о неправильном размере.
Переделал пример так: Private Const BI_RGB = 0&
Private Const DIB_RGB_COLORS = 0 ' color table in RGBs 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 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 Declare Function CreateCompatibleDC Lib "gdi32" (ByVal hdc As Long) As Long Private Declare Function CreateDIBSection Lib "gdi32" (ByVal hdc As Long, pBitmapInfo As BITMAPINFO, ByVal un As Long, ByVal lplpVoid As Long, ByVal handle As Long, ByVal dw As Long) As Long 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 Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal hObject As Long) As Long Private Declare Function DeleteDC Lib "gdi32" (ByVal hdc As Long) As Long Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long Dim iBitmap As Long, iDC As Long Private Sub Form_Paint() Dim bi24BitInfo As BITMAPINFO, bBytes() As Byte, Cnt As Long Dim LineLength As Long With bi24BitInfo.bmiHeader .biBitCount = 24 .biCompression = BI_RGB .biPlanes = 1 .biSize = Len(bi24BitInfo.bmiHeader) .biWidth = 101 .biHeight = 100 LineLength = -Int(-.biWidth * 3 / 4) * 4 'вот это добавил ReDim bBytes(1 To Abs(.biHeight) * LineLength) As Byte 'и вот это изменил End With iDC = CreateCompatibleDC(0) iBitmap = CreateDIBSection(iDC, bi24BitInfo, DIB_RGB_COLORS, ByVal 0&, ByVal 0&, ByVal 0& 
SelectObject iDC, iBitmap BitBlt iDC, 0, 0, bi24BitInfo.bmiHeader.biWidth, bi24BitInfo.bmiHeader.biHeight, GetDC(0), 0, 0, vbSrcCopy GetDIBits iDC, iBitmap, 0, bi24BitInfo.bmiHeader.biHeight, bBytes(1), bi24BitInfo, DIB_RGB_COLORS For Cnt = LBound(bBytes) To UBound(bBytes) If bBytes(Cnt) < 50 Then bBytes(Cnt) = 0 Else bBytes(Cnt) = bBytes(Cnt) - 50 End If Next Cnt SetDIBitsToDevice Me.hdc, 0, 0, bi24BitInfo.bmiHeader.biWidth, bi24BitInfo.bmiHeader.biHeight, 0, 0, 0, bi24BitInfo.bmiHeader.biHeight, bBytes(1), bi24BitInfo, DIB_RGB_COLORS  eleteDC iDC
eleteObject iBitmap
End Sub И все работает. Так, почему же у меня возникает Bad dll calling convention, буду разбираться сам. |
||
|
Номер ответа: 18 Автор ответа: VictorICQ: 345743490 Вопросов: 42 Ответов: 385 |
Web-сайт: Профиль | | #18 | Добавлено: 21.01.06 19:09 |
|
Это кто ж такое правило придумал? Ровным на 4 должно быть начало массива, все остальные пиксели автоматом становятся кратными 4.
Вот что по этому поводу думает MSDN: The BITMAP structure defines ...
typedef struct tagBITMAP { // bm LONG bmType; ... Members bmType Specifies the bitmap type. This member must be zero. bmWidth Specifies the width, in pixels, of the bitmap. ... bmWidthBytes Specifies the number of bytes in each scan line. This value must be divisible by 2, because the system assumes that the bit values of a bitmap form an array that is word aligned. bmPlanes Specifies the ... Remarks The bitmap formats currently used are monochrome and color. The monochrome bitmap uses a one-bit, one-plane format. Each scan is a multiple of 32 bits. ... |
||
|
Номер ответа: 19 Автор ответа: HOOLIGAN Вопросов: 0 Ответов: 1066 |
Профиль | | #19 | Добавлено: 21.01.06 19:34 |
Ясно, успехов вам в вашем безнадёжном предприятии 
|
||
|
Номер ответа: 20 Автор ответа: VictorICQ: 345743490 Вопросов: 42 Ответов: 385 |
Web-сайт: Профиль | | #20 | Добавлено: 21.01.06 21:32 |
|
Все. Разобрался. Теперь и моя процедурка работает. Проблема была в том, что после первого вызова GetDIBits в структуру записывалась информация о битмапе, в том числе и информация о сжатии. Так как в качестве битмапа использовался JPEG, она записывала в .biCompression значение 3. А я не написал строчку, задающую алгоритм сжатия, думая что он по умолчанию ноль и все ок. На всякий случай приведу рабочую версию процедурки. Public Sub vtGetDIBitsFromImage(ByRef Data() As Long, _
ByVal hImage As Long, _ ByVal hDC As Long, _ Optional ByVal ClearReserved As Boolean = True) Dim bmi As BITMAPINFO Dim w As Long, h As Long Dim Ret As Long With bmi.bmiHeader .biSize = Len(bmi.bmiHeader) End With Ret = APIGetDiBits(hDC, hImage, 0, 0, ByVal 0, bmi, DIB_RGB_COLORS) If Ret = 0 Then Err.Raise 1212, , "GetDIBIts for examining the dimensions failed!" End If With bmi.bmiHeader w = .biWidth h = Abs(.biHeight) .biBitCount = 32 .biSizeImage = w * h * 4& .biPlanes = 1 .biHeight = -h .biCompression = 0 'Вот что надо было дописать!!! End With ReDim Data(0 To w - 1, 0 To h - 1) Ret = APIGetDiBits(hDC, hImage, 0, h, Data(0, 0), bmi, DIB_RGB_COLORS) If Ret = 0 Then Err.Raise 1212, , "Getting bits failed!" End If If ClearReserved Then vtRepair Data End If End Sub По-моему, тема исчерпана. |
||
|
Номер ответа: 21 Автор ответа: CyRax  Разработчик Offline Client ICQ: 204447456 Вопросов: 180 Ответов: 4229 |
Web-сайт: Профиль | | #21 | Добавлено: 22.01.06 20:25 |
| А по моему всё же это ошибка в API-Guide. RGBQUAD используют все типы рисунков, независимо от разрядности и метода сжатия. | ||
|
Номер ответа: 22 Автор ответа: HOOLIGANВопросов: 0 Ответов: 1066 |
Профиль | | #22 | Добавлено: 22.01.06 21:48 |
|
Да какая разница, пусть использует свой RGBTRIAD.
До поры до времени
|
||
|
Номер ответа: 23 Автор ответа: CyRax Разработчик Offline Client ICQ: 204447456 Вопросов: 180 Ответов: 4229 |
Web-сайт: Профиль | | #23 | Добавлено: 23.01.06 01:17 |
|
Самое интересное что оно работает. Честно говоря мне и в кашмарном сне не могло приснится что для работы с битовыми картами могут использоваться дробные числа. Например, результатом выражения (-101) * 3 / 4 будет число (-75.75). Результатом округления -76, унарный минус меняет знак на положительный. Или уважаемый Victor скажет нам что сие означает или я решу что у него поехала крыша, пока она у меня самого не съехала.
|
||
|
Номер ответа: 24 Автор ответа:  [root]Вопросов: 45 Ответов: 1212 |
Web-сайт: Профиль | | #24 | Добавлено: 23.01.06 08:27 |
|
Так это же нонсенс!
Вот что это |
||
|
Номер ответа: 25 Автор ответа: VictorICQ: 345743490 Вопросов: 42 Ответов: 385 |
Web-сайт: Профиль | | #25 | Добавлено: 24.01.06 14:40 |
|
Например, результатом выражения (-101) * 3 / 4 будет число (-75.75). Результатом округления -76, унарный минус меняет знак на положительный.
Это я так делаю аналог функции Ceil. floor=Int(x) ceil=-Int(-x) Если вы мне предложите более элегантный способ паддинга на DWORD, буду очень вам благодарен. |
||
|
Номер ответа: 26 Автор ответа: HOOLIGANВопросов: 0 Ответов: 1066 |
Профиль | | #26 | Добавлено: 24.01.06 18:15 |
|
Debug.Print (101 * 3 + 3) And -4
|
||
|
Номер ответа: 27 Автор ответа: VictorICQ: 345743490 Вопросов: 42 Ответов: 385 |
Web-сайт: Профиль | | #27 | Добавлено: 24.01.06 22:01 |
| Спасибо, усек. | ||
|
Номер ответа: 28 Автор ответа: CyRax Разработчик Offline Client ICQ: 204447456 Вопросов: 180 Ответов: 4229 |
Web-сайт: Профиль | | #28 | Добавлено: 24.01.06 22:26 |
|
Victor,
ты меня чуть в ступор не в ввёл своими терминами А по русски нельзя сказать "округление" и "выравнивание", а? Или это будет не так запутано? Лучше скажи к чему весь этот сыр-бор.
|
||
|
Номер ответа: 29 Автор ответа: HOOLIGANВопросов: 0 Ответов: 1066 |
Профиль | | #29 | Добавлено: 24.01.06 23:19 |
|
"паддинг" звучит круче, чем "выравнивание" ))
|
||
|
Номер ответа: 30 Автор ответа: CyRax Разработчик Offline Client ICQ: 204447456 Вопросов: 180 Ответов: 4229 |
Web-сайт: Профиль | | #30 | Добавлено: 25.01.06 00:50 |
|
Тогда получается что Ceil - это сильно навороченное округление? Ну теперь хоть понятно в какую сторону копать
|
||