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