Spanish Solved - ¿Cuál es la libreria de Bitmap para B4J?

[Ender1969]

¿Cuál es la libreria de Bitmap para B4J?, estoy viendo varios ejemplos, pero cuando defino una variable como bitmap me dice que falta librería

Intento leer una imagen en un blob y cargarlo en un imgview.

¿Alguna ayudita?

Tengo este código que funciona, pero en lugar de leer un archivo de imagen quiero leerlo de un campo blob

                Dim imgfondo As ImageView
                imgfondo.Initialize("")
                #if B4j
                    imgfondo.SetImage(xui.LoadBitmapResize(DirectorioDeTrabajo, "miimagen.png",1000,1000,True))
                #Else
                    imgfondo.Bitmap = LoadBitmap(DirectorioDeTrabajo, "miimagen.png")
                #End If
                Panel1.AddView(imgfondo,0,0,1000,1000)

 

[Ender1969]

Intento sustituirlo por este código:

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

 

[josejad]

Hola:

Creo que en B4J se declara como image, o bien como B4XBitmap

 

[Ender1969]

Hola:

Creo que en B4J se declara como image, o bien como B4XBitmap


View attachment 151557

Estaba intentando usar B4XBitmap, pero no me funcionaba bien, sin embargo al poner Image en lugar de bitmap, perfecto

Gracias