Programación de Gráficos - Ayuda. Urge. Copiar imagen.

 
Vista:

Ayuda. Urge. Copiar imagen.

Publicado por Pedro Molina (1 intervención) el 13/01/2001 00:00:00
Tengo una imagen en un array de bytes. Necesito pasarla a un picturebox. Lo he intentado con StretchDIBits y con BitBlt, pero no he sido capaz. No sé si estará mal la declaración de la función o qué.

DECLARACIÓN:

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

Declare Function StretchDIBits Lib "gdi32" (ByVal hDC As Long, ByVal DestX As Long, ByVal DestY As Long, ByVal wDestWidth As Long, ByVal wDestHeight As Long, ByVal SrcX As Long, ByVal SrcY As Long, ByVal wSrcWidth As Long, ByVal wSrcHeight As Long, ByVal lpBits As Long, BitsInfo As BITMAPINFO, ByVal wUsage As Long, ByVal dwRop As Long) As Long

USO:
With frmWebComm.Picture1
.ScaleMode = vbPixels
result = StretchDIBits(.hDC, 0, 0, 160, 120, 0, 0, 160, 120, VideoData(0), bm, dib_rgb_colors, srccopy)

´result = BitBlt(.hDC, 0, 0, 160, 120, VideoData(0), 0, 0, srccopy)

END wITH


Os agradezco la ayuda. Un saludo.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder