usar - Convierta una imagen Picture Box en una matriz de bytes en VB6

usar picturebox en visual basic

Question

Tengo un cuadro de imagen VB6 que obtiene una imagen de un dispositivo de captura de video.

Intento descubrir cómo convertir el cuadro de imagen en una matriz de bytes.

Answer 1

Ha pasado mucho tiempo desde que trabajé con VB6 pero, por lo que recuerdo, puedes serializar la imagen en un PropertyBag y obtener el contenido como una matriz de bytes.

La única alternativa que conozco requiere un uso intensivo de WinAPI para lograr lo mismo.

Answer 2

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