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

Discussion in 'Spanish Forum' started by desof, Dec 26, 2017.

  1. desof

    desof Well-Known Member Licensed 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: Dec 26, 2017
  2. bgsoft

    bgsoft Well-Known Member Licensed User

    Hola Desof, puedes hacerlo así:

    Code:
    '  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 StringAs 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

    Code:
    ' 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
     
    rscheel, JordiCP and desof like this.
  3. desof

    desof Well-Known Member Licensed User

    Excelente como siempre BgSoft !!! 1.000.000 de gracias!!!
     
Loading...
  1. This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
    By continuing to use this site, you are consenting to our use of cookies.
    Dismiss Notice