Spanish Fotos camara

Jorgelcr

Active Member
Licensed User
Hola,

Utilizo el siguiente código para cargar imagenes desde galeria o cámara para despues subirlas a un FTP y funciona perfectamente en casi todos dispositivos que he probado, el problema es que lo he probado en un móvil Huawei P8 Lite (Android 5) y con este código no deja subir las fotos desde la opción de camara, otro cliente también me indicó que en su movil (Chino) cuando elegía la opcion de galeria y hacía clic en la imagen no le mostraba la opcion (ok,Cancel) para poder elegir la foto.

¿Hay alguna incompatibilidad con versiones de Android?
Alguna solución?

Gracias!!!


B4X:
Sub imgfoto_Click
    Dim resultfoto As String
    resultfoto=Msgbox2 ("¿Qué desea realizar?","","Cargar Foto","","Hacer Foto",LoadBitmap(File.DirAssets, "logoprincipal.png"))
    name=""
    If resultfoto= DialogResponse.POSITIVE Then
        Try
       
            Galeria(DirmTMPFoto, "imgfoto.jpg")
            name="imgfoto.jpg"
          
    Else
        If resultfoto=DialogResponse.NEGATIVE Then
            camera(DirmTMPFoto, "imgfoto.jpg")
            name="imgfoto.jpg"
        End If
       
       
    End If
End Sub


''''''''''''''''''''''''''''''''''''' CAMERA + CROP '''''''''''''''''''''''''''''''''''''''''''''
Sub camera(Directory As String, PictureName As String)
    Dim i As Intent
    onoff = True
    i.Initialize("android.media.action.IMAGE_CAPTURE", "" )
    i.PutExtra("crop", "true") 'crop ON
    i.PutExtra("aspectX", 0) 'crop aspects
    i.PutExtra("aspectY", 0) 'crop aspects
   
   
    i.PutExtra("outputX", 200) 'crop size
    i.PutExtra("outputY", 150) 'crop size
    i.PutExtra("output", ParseUri("file://" & File.Combine(Directory, PictureName))) 'output folder you set OpenCam(File.DirRootExternal, "1.jpg")
    StartActivity(i)     
End Sub

Sub ParseUri(filename As String) As Object
Dim r As Reflector
Return r.RunStaticMethod("android.net.Uri", "parse", Array As Object(filename), Array As String("java.lang.String"))
End Sub
 

bgsoft

Well-Known Member
Licensed User
Top