VB6에서 그림 상자 이미지를 바이트 배열로 변환

Question

비디오 캡처 장치에서 이미지를 가져 오는 VB6 그림 상자가 있습니다.

그림 상자를 바이트 배열로 변환하는 방법을 알아 내려고하고 있습니다.

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

VB6에서 작업 한 이후로 오랜 시간이 걸렸으나 이미지를 PropertyBag으로 serialize하고 내용을 바이트 배열로 가져올 수 있습니다.

내가 알고있는 유일한 대안은 동일한 목적을 달성하기 위해 WinAPI를 많이 사용해야한다는 것입니다.