Convertir Arreglo de bytes a imagen para PictureBox

[neo101]

Saludos, mi cuestión es la siguiente:

Tengo un array de bytes que, supuestamente son una imagen la pregunta es: como puedo representarlos en un Objeto Image?

Estoy trabajando en VB6, cualquier comentario es bienvenido.

[pkj]

He buscado y buscado y no he encontrado el modo simple, así que aquí te dejo lo que he preparado al final. Creo que algo así ya lo había visto, pero en fin, si es así, pues lo he vuelto a hacer.

Código :

Sub LoadPictureConMatrizDeBytes(ByRef MatrizDeBytes() As Byte, ByRef ControlImage As Object, Optional FormatoDeLaImagen As String)
  Dim Fichero As String
  Dim numFichero As Integer
  If Trim$(FormatoDeLaImagen)="" then
    Fichero = Environ("temp") & "\ImagenTemporal.jpg"
  Else
    Fichero = Environ("temp") & "\ImagenTemporal." & FormatoDeLaImagen
  Endif
  numFichero = FreeFile
  Open Fichero For Output As #numFichero
    Print #numFichero, MatrizDeBytes()
  Close #numFichero
  ControlImage.Picture = LoadPicture(Fichero)
  Kill Fichero
End Sub
 

Puedes cargar cualquier objeto que admita LoadPicture.

Para cargar un image p.ej pondremos:

LoadPictureConMatrizDeBytes TuMatriz, TuControlImage

Saludos

PD: Quizá quieras incluir el formato de la imagen cargada en la matriz.
Voy a Modificar el código para admitir eso de modo opcional.

Ahora puedes usar esta línea:
LoadPictureConMatrizDeBytes TuMatriz, TuControlImage
o esta otra según te interese.
LoadPictureConMatrizDeBytes TuMatriz, TuControlImage, "jpg"
Si no incluyes formato se usara "jpg" por defecto.

PD2: Ahora que estoy probando creo que no importa que pongas la extensión correcta o ni siguiera hace falta poner ninguna extensión al fichero temporal. Mi jpg lo está cargando como bmp y sin extensión ninguna.

[neo101]

Gracias por tu respuesta... pero que crees? No jala... Me dice que al imagen no es válida...

Para esto seré franco contigo, pues desgraciadamente estoy suponiendo que es una imagen (lo que realmente obtengo es una huella digital) y lo que quiero es representar la misma, pero me queda claro que no podré con un objeto Image pues, ya había probado con otros códigos y tampoco, me gustó el intento que propones para bajar el arreglo al archivo, pero creo que el formato del "arreglo de bytes" no es precisamente una imagen... te dejo un código que encontré por ahi, este simplemente no tiene efecto alguno...

Código vb:

' Crea una imagen en memoria a partir de un arreglo de bytes...
Private Declare Function CreateStreamOnHGlobal Lib "ole32" (ByVal hGlobal As Long, ByVal fDeleteOnRelease As Long, ppstm As Any) As Long
Private Declare Function GlobalAlloc Lib "kernel32" (ByVal uFlags As Long, ByVal dwBytes As Long) As Long
Private Declare Function GlobalLock Lib "kernel32" (ByVal hMem As Long) As Long
Private Declare Function GlobalUnlock Lib "kernel32" (ByVal hMem As Long) As Long
Private Declare Function OleLoadPicture Lib "olepro32" (pStream As Any, ByVal lSize As Long, ByVal fRunmode As Long, riid As Any, ppvObj As Any) As Long
Private Declare Sub CopyMemory Lib "kernel32.dll" Alias "RtlMoveMemory" (ByRef Destination As Any, ByRef Source As Any, ByVal Length As Long)
 
 
Public Function ArrayToPicture(inArray() As Byte, Offset As Long, Size As Long) As IPicture
    
    ' function creates a stdPicture from the passed array
    ' Offset is first item in array: 0 for 0 bound arrays
    ' Size is how many bytes comprise the image
    Dim o_hMem  As Long
    Dim o_lpMem  As Long
    Dim aGUID(0 To 3) As Long
    Dim IIStream As IUnknown
    
    aGUID(0) = &H7BF80980    ' GUID for stdPicture
    aGUID(1) = &H101ABF32
    aGUID(2) = &HAA00BB8B
    aGUID(3) = &HAB0C3000
    
    o_hMem = GlobalAlloc(&H2&, Size)
    If Not o_hMem = 0& Then
        o_lpMem = GlobalLock(o_hMem)
        If Not o_lpMem = 0& Then
            CopyMemory ByVal o_lpMem, inArray(Offset), Size
            Call GlobalUnlock(o_hMem)
            If CreateStreamOnHGlobal(o_hMem, 1&, IIStream) = 0& Then
                  Call OleLoadPicture(ByVal ObjPtr(IIStream), 0&, 0&, aGUID(0), ArrayToPicture)
            End If
        End If
    End If
End Function
 

Quiere decir que, necesito saber que es el arreglo de bytes?

Muchas Gracias por tu respuesta...

[jmvalenzuela]

en C#
tan simple como hacer esto

byte[] arreglo;

/*
cargar el arreglo....
*/
var ms = new MemoryStream(arreglo.ToArray());
pictureBox2.Image = Image.FromStream(ms);



y listo !!!