Spanish Cargar imagen desde galeria y mostrar en imageview

[Katherinnevga]

Buenas,

Estoy trabajando en un proyecto donde debo cargar una imagen desde la galería y mostrarla en un imageView, ya la puedo seleccionar con este código:

Chooser.Initialize("chooser")
 
    Try
        Chooser.Show("image/*", "Seleccione Imagen")
        Log("Imagen Cargada")
    Catch
        Log("Error al cargar galeria")
    End Try

pero no se como reflejarlo en el ImageView...

Gracias de antemano.

 

[josejad]

Hola:

Deberías usar por ejemplo este código para coger la ruta de la imagen y asignarla al imageView

https://www.b4x.com/android/forum/t...dia-files-returned-from-contentchooser.39313/

Ojo, que como indica Erel, no deberías asumir que el usuario coge una imagen del sistema de archivos. Es decir, desde ContentChooser se puede elegir por ejemplo, una imagen de Google Drive, y entonces te daría un error al intentar mostrarla.

saludos,

 

[bgsoft]

Buenas,

Estoy trabajando en un proyecto donde debo cargar una imagen desde la galería y mostrarla en un imageView, ya la puedo seleccionar con este código:

Chooser.Initialize("chooser")
 
    Try
        Chooser.Show("image/*", "Seleccione Imagen")
        Log("Imagen Cargada")
    Catch
        Log("Error al cargar galeria")
    End Try

pero no se como reflejarlo en el ImageView...

Gracias de antemano.

Hola, forma rápida de hacerlo:

Dim VerGaleriaFotos As ContentChooser
VerGaleriaFotos.Initialize("EventoGaleriaFotos") 

' para llamar a la galeria
VerGaleriaFotos.Show("image/ *jpeg","Seleccione Imagen")

' el evento cuando elijas
Sub EventoGaleriaFotos_Result (Success As Boolean, Dir As String, FileName As String)

   If Success = False Then Return ' por si canceló

  ' con el dir y filename puedes hacer lo que quieras, ponerla en un imageView por ejemplo

   ' o copiarla
    DirImagen = DirFotoGaleria
    NombreImagen = "fotodegaleria.jpg"
   Try
      File.Copy (Dir,FileName, DirImagen,NombreImagen)
    Catch
      Log("Error al copiar imagen cogida de la galeria")
    End Try
   

End Sub

Saludos

 

[roy89]

me pone este error no se que libreria tengo que agregar y las que viene con el B4A las active todas y nada sigue igual me dice que falta b4xmainpage y que falta una libreria

 

[Situ LLC]

Hi,
Puedes tener tu imagenes en .. File.DirAssets ..

        '' --->  ImageView debes de definir control
        Dim Docu AS String
        Docu ="liquida.png"
        Dim bmp As Bitmap = LoadBitmap(File.DirAssets , Docu )
        ImageView.Bitmap = bmp

Asi logras carga la imagen al ImageView.. Asi de simple
Pudes cambiar el la imagen las veces que quieras

Salud