Conversion d'une image Picture Box en Byte Array en VB6

Question

J'ai une boîte d'image VB6 qui obtient une image à partir d'un périphérique de capture vidéo. J'essaie de comprendre comment convertir ensuite la zone d'image en un tableau d'octets.

Answer 1

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 Sub GetPictureBytes() 
    Dim PicBits() As Byte, PicInfo As BITMAP 

    GetObject Picture1.Picture, Len(PicInfo), PicInfo 

    ReDim PicBits((PicInfo.bmWidth * PicInfo.bmHeight * 3) - 1) As Byte 

    GetBitmapBits Picture1.Picture, UBound(PicBits), PicBits(0) 
End Sub 

Answer 2

Cela fait longtemps que je n'ai pas travaillé avec VB6 mais pour autant que je me souvienne, vous pouvez juste sérialiser l'image dans un PropertyBag et obtenir le contenu sous la forme d'un tableau d'octets.

La seule alternative que je connaisse nécessite une utilisation intensive de WinAPI pour accomplir la même chose.