Spanish Cargar imagen desde galeria y mostrar en imageview

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:

B4X:
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.
 

bgsoft

Well-Known Member
Licensed User
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:

B4X:
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:

B4X:
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
 
Top