Use of Window handle and BMP's

Check out the DIBSection class from vbAccelerator.com.  This contains all the functionality needed to manipulate DIB's.

http://www.vbaccelerator.com/codelib/gfx/cdibsect.zip

You can use the oleCreatePictureIndirect API to convert a bitmap handle into an OLE Picture object.  Here is an example which loads a bitmap from file and uses its handle to create a picture.

Option Explicit
Private Type PicBmp
    Size As Long
    Type As Long
    hBmp As Long
    hPal As Long
    Reserved As Long
End Type
Private Type GUID
    Data1 As Long
    Data2 As Integer
    Data3 As Integer
    Data4(7) As Byte
End Type
Private Declare Function OleCreatePictureIndirect Lib "olepro32.dll" _
    (PicDesc As PicBmp, RefIID As GUID, _
    ByVal fPictureOwnsHandle As Long, IPic As IPicture) As Long
   
'// For testing
Const LR_LOADFROMFILE = &H10
Const LR_DEFAULTSIZE = &H40
Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long
Private Declare Function LoadImage Lib "user32" Alias "LoadImageA" _
    (ByVal hInst As Long, ByVal lpsz As String, ByVal un1 As Long, ByVal n1 As Long, ByVal n2 As Long, ByVal un2 As Long) As Long
'//

Private Sub Command1_Click()
    Dim hBmp As Long
    'Get a bitmap handle
    hBmp = LoadImage(0, "c:\bitmap1.bmp", 0, 0, 0, LR_DEFAULTSIZE Or LR_LOADFROMFILE)
    'Create a picture from a bitmap handle
    Picture1.Picture = CreateBitmapPicture(hBmp)
    'Free the picture in memory
    Call DeleteObject(hBmp)
End Sub

Public Function CreateBitmapPicture(ByVal hBmp As Long, Optional ByVal hPal As Long) As Picture

    Dim r As Long
    Dim Pic As PicBmp
    ' IPicture requires a reference to "Standard OLE Types."
    Dim IPic As IPicture
    Dim IID_IDispatch As GUID
   
    If IsMissing(hPal) Then hPal = 0
    ' Fill in with IDispatch Interface ID.
    With IID_IDispatch
    .Data1 = &H20400
    .Data4(0) = &HC0
    .Data4(7) = &H46
    End With

    ' Fill Pic with necessary parts.
    With Pic
    .Size = Len(Pic)          ' Length of structure.
    .Type = vbPicTypeBitmap   ' Type of Picture (bitmap).
    .hBmp = hBmp              ' Handle to bitmap.
    .hPal = hPal              ' Handle to palette (may be null).
    End With

    ' Create Picture object.
    r = OleCreatePictureIndirect(Pic, IID_IDispatch, 1, IPic)

    ' Return the new Picture object.
    Set CreateBitmapPicture = IPic
End Function

morgan_peat: This is a good site, and I've downloaded the DIB class but it will need me to spend some time looking through it.

Erick37: This was simple to setup and works well with Windows Bmp's.

My Problem is that I am working with a Bmp which is a DIB Device Independant Bitmap) in 'top-down' format with a negative height (Let's be honest I don't really know what I'm talking about!).

l99057j: Your comment looks as though it might do some conversion as it references CreateCompatibleBitmap??? But I would need a little more explanation from 'Create a device context......'
 

You need to BitBlt the image from the capture to the picture box.  BitBlt requires two Device Contexts... one for the source and one for the destination.  The captured image is not bound to a device context, it is simply the minimum amount of information necessary to define what the bitmap looks like.

CreateCompatibleDC creates a device context that has the same configuration (bits-per-pixel, planes, etc.) as the picturebox you are going to copy the bitmap to.  

SelectObject actually associates the bitmap with the device context you created so that it can be used in the BitBlt call.

The second select object de-associates the bitmap with the device context.

The DeleteDC call cleans everything up so we don't leak memory.

l99057j:

This looks good!

Does gdi32.dll come with NT, Win95, and Win98 do you know?

I've setup the code and when I run it I get the message no picture loaded, so I assume the BiBlt function is not working yet. MSDN notes for BitBlt say that the parameter  hdcSrc, which you have as hNewDC, is the handle to the source device context. Should hNewDC be hOldBitmap? I tried changing it but it did not work. I need to do some more testing on it

(I assume hBMPHandle is the handle I have which is returned from the capture card.)

I shall be back on the case Tuesday, have a good weekend everyone.

No hNewDC is correct.  The code ran on my machine. The only thing I left out is that hBMPHandle is indeed the handle returned from the capture card.  

Check the return values from all the API calls and you'll narrow down the problem.  I left them out for brevity.

P.S. gdi32.dll is an integral part of windows.  If it isn't there, your application will be the least of the user's worries :)

l99057j: I tried loading the image using the Bmp handle from the capture card with your code and got the error message no image loaded. I then tried loading an image direct from a saved Bmp and passing to a handle with the your code adapted as below, but I get the same message.

What format of Bmp is your code compatible with?


Public Declare Function CreateCompatibleBitmap Lib "gdi32" (ByVal hdc As Long, ByVal nWidth As Long, ByVal nHeight As Long) As Long
Public 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
Public Declare Function CreateCompatibleDC Lib "gdi32" (ByVal hdc As Long) As Long
Public Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal hObject As Long) As Long
Public Declare Function DeleteDC Lib "gdi32" (ByVal hdc As Long) As Long
Public Const SRCCOPY = &HCC0020 ' (DWORD) dest = source
Public Declare Function LoadImage Lib "user32" Alias "LoadImageA" (ByVal hInst As Long, ByVal lpsz As String, ByVal un1 As Long, ByVal n1 As Long, ByVal n2 As Long, ByVal un2 As Long) As Long


Sub Main()

'Some code

hBmp = LoadImage(0, "C:\dog.bmp", 0, 0, 0, &H40 Or &H10)
Call ConvertAndLoadDIBBmp(hBmp)

'Some more code

End Sub


Public Function ConvertAndLoadDIBBmp(hBmp As Long)

    Dim hNewDC As Long
    Dim hOldBitmap As Long
   
    On Error GoTo errHandler
   
    'Create a device context
    hNewDC = CreateCompatibleDC(Form1.Picture1.hdc)
    'hNewDC = CreateCompatibleDC(frmLive.imPhoto.hdc)
   
    'Select the bitmap into the device context...
    hOldBitmap = SelectObject(hNewDC, hBmp)
       
    'Draw the picture into the picture box...
    BitBlt Form1.Picture1.hdc, 0, 0, 20, 20, hNewDC, 0, 0, SRCCOPY
   
    Form1.Show
   
    'Deselect the bitmap
    SelectObject hNewDC, hOldBitmap
       
    'Release the device context
    DeleteDC hNewDC

End Function

l99057j: Should your code work with a handle to a DIB Bmp as compared to a windows Bmp?

I copied my code from above, pasted it into VB and it worked fine... step through the code one line at a time and tell me which line is throwing the error.

l99057j:You tried it with a DIB?

I tried your code which loaded a BMP from a file.  Since I don't have a video capture card or other easy way to create a DIB in memory I didn't try that.  Theoretically, once Windows has a handle to a bitmap you aren't supposed to have to worry about minor differences in structure.

P.S.  In reference to your earlier post about the top-down format with a negative height...  this just means that the image is stored "upside down".  If you want to learn all about bitmaps I recommend Nigel Thompsons's "Animation Techniques in Win32."  The book is aimed at game developers and was written before the advent of DirectX, so most of the game stuff is outdated.  But the early chapters tell all about bitmap structures, device contexts, and palettes.  A VERY good source of information.  I had to read these chapters four or five times before everything clicked, but I have yet to find anything better.  I know at one point you could find it on MSDN for free.

l99057j: I can believe it works with a handle to a normal Bmp, infact I successfully tested one of the above code examples with a handle to a Windows Bmp. I think the problem lies with the format of the DIB. Can I send you the DIB file (163KB)?