Public Sub BytesToImage(bytes() As Byte) As Bitmap
Dim In As InputStream
In.InitializeFromBytesArray(bytes, 0, bytes.Length)
Dim bmp As Bitmap
bmp.Initialize2(In)
Return bmp
End Sub
Private Sub leerimagen
Dim Buffer() As Byte = (variable_leida_del_blob)
Dim imgfondo As ImageView
imgfondo.Initialize("")
imgfondo.Bitmap = BytesToImage( Buffer)
Panel1.AddView(imgfondo,0,0,1000,1000)
End Sub
Esto es lo que quiero hacer, la funcion BytesToImage, la he cogido del foro, pero en B4J me falta libreria para bitmap