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 
				 
 
		 
 
		 
 
		