Spanish [SOLUCIONADO] Método que carga imagen de galería o utilizar cámara para obtenerla

desof

Well-Known Member
Licensed User
Longtime User
Hola amigos, existe algun ejemplo de la clásica ventana que aparece en tantas aplicaciones que al presionar un botón por ejemplo para obtener una imagen para un fin determinado te ofrezca la posibilidad de buscarla en Galeria o de sacar la foto desde el dispositivo ?
Estuve mirando el ejemplo de Erel https://www.b4x.com/android/forum/t...e-camera-library-functionality.23801/#content
pero no realiza esa función básica.

Gracias y Feliz Año nuevo para tod@s!!!
 
Last edited:

bgsoft

Well-Known Member
Licensed User
Longtime User
Hola Desof, puedes hacerlo así:

B4X:
'  HACER FOTO CON LA APLICACION CÁMARA DE ANDROID
' LLamada
OpenCam(DirImagen, "NombreImagen.jpg") ' dejara la imagen en el directorio y con ese nombre


Sub OpenCam(Directory As String, PictureName As String)

    Dim i As Intent

    i.Initialize("android.media.action.IMAGE_CAPTURE", "")
    i.PutExtra("output", ParseUri("file://" & File.Combine(Directory, PictureName)))
           
    StartActivity(i)
           
End Sub

Sub ParseUri(FileName As String) As Object
   Log("ParseUri " & FileName)
   Dim r As Reflector

  Return r.RunStaticMethod("android.net.Uri", "parse", Array As Object(FileName), Array As String("java.lang.String"))

End Sub


B4X:
' LLAMAR A GALERIA DE FOTOS PARA SELECCIONAR UNA

' En Sub Process_Globals
Dim LlamarGaleriaFotos As ContentChooser  ' Libreria Phone

' En Sub Activity_Create(FirstTime As Boolean)
LlamarGaleriaFotos.Initialize("EventoGaleriaFotos")


' Llamar a Galeria de fotos
LlamarGaleriaFotos.Show("image/*","Texto de seleccione imagen por ejemplo"))


Sub EventoGaleriaFotos_Result (Success As Boolean, Dir As String, FileName As String )
   ' Entra aqui después de salir de galeria
  
    If Success = False Then Return ' por si no selecciona ninguna
   
    Try
      File.Copy (Dir,FileName, DirImagenSeleccionada,NombreImagenSeleccionada)
    Catch
      Log("Error al copiar imagen cogida de la galeria")
    End Try
   
           
End Sub


Saludos
 

desof

Well-Known Member
Licensed User
Longtime User
Excelente como siempre BgSoft !!! 1.000.000 de gracias!!!
 
Top