image из dibsection

[alexmckey]

подскажите пжлста , как имея 32bpp dibsection создать image и отобразить его с помощью gdipdrawimage

[tyomitch]

GdipCreateBitmapFromGdiDib

[alexmckey]

спасибо за ответ. я так и пытаюсь ,но MyImage=0




Sub CreateMyImage(wdh As Long, hgt As Long)

Dim graph As Long, _
bytes() As Byte, _
BI As BITMAPINFO, MyImage As Long, memdc As Long, membm As Long, oldBitmap As Long

With BI.bmiHeader
.biSize = Len(BI.bmiHeader)
.biBitCount = 32
.biHeight = -hgt
.biWidth = wdh
.biPlanes = 1
.biSizeImage = Abs(.biWidth * .biHeight * 4)
End With
memdc = CreateCompatibleDC(0)
membm = CreateDIBSection(memdc, BI, DIB_RGB_COLORS, ByVal 0, 0, 0)
oldBitmap = SelectObject(memdc, membm)

GdipCreateFromHDC memdc, graph

'рисовние

ReDim bytes(BI.bmiHeader.biSizeImage - 1) As Byte


GetDIBits memdc, membm, 0, -BI.bmiHeader.biHeight, bytes(0), BI, DIB_RGB_COLORS

'манипуляции с битами

SetDIBits memdc, membm, 0, hgt, bytes(0), BI, DIB_RGB_COLORS


GdipCreateBitmapFromGdiDib BI, bytes(0), MyImage

End Sub

[Viper]

а интересно каким магическим образом в приведенном коде MyImage может иметь значение отличное от нуля?

[tyomitch]

Viper, промахнулся: последний параметр в GdipCreateBitmapFromGdiDib передаётся ByRef.

alexmckey, на кой чёрт тебе вообще в этой процедуре CreateCompatibleDC? и даже CreateDIBSection?

Кроме того, все функции GDI+ возвращают код ошибки. Не пробовал его смотреть?

[alexmckey]

tyomitch
CreateCompatibleDC чтобы gdipfromhdc

[Viper]

Эх... промазал.... А вообще стоит в данном случае посмотреть на то , что возвращают все вызываемые функции. Сдается мне где-то там происходит ошибка...

[tyomitch]

CreateCompatibleDC чтобы gdipfromhdc

Зачем вообще здесь GDI-без-плюса? Всё равно всё рисование через GDI+, как я понял.

[alexmckey]

tyomitch
рисование через GDI+, но из чего мне создать graphics,направь меня

[tyomitch]

Из Image: GdipGetImageGraphicsContext

[alexmckey]

tyomitch
tyomitch спасибо еще раз и подскажи пожалуйста ,
c помощью какой функции мне создать Image ,
чтобы передать его в GdipGetImageGraphicsContext

[tyomitch]

Да ты издеваешься, что ли? GdipCreateBitmapFromScan0

А ещё лучше, если не шаришь в GDI+, возьми мою обёртку: там всё уже есть

[alexmckey]

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

[tyomitch]

GdipBitmapLockBits, GdipBitmapUnlockBits

Так и будешь про каждую строчку спрашивать? или уже возьмёшь обёртку?

[alexmckey]

tyomitch
tyomitch,огромное тебе спасибо,у меня всё получилось