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!!!
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