Buenos días,
He desarrollado una APP donde realizo y guardo una foto con el método siguiente:
He desarrollado una APP donde realizo y guardo una foto con el método siguiente:
B4X:
Sub [B]camera[/B](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)))
StartActivity(i)
End Sub
Sub [B]ParseUri[/B](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
[endcode]
y en todos los dispositivos que he instalado la APP de distintas marcas me está funcionando perfectamente. Pero al instalar la APP en un Xiami MI9 da un error de 'Cámara sigue sin funcionar' y no me guarda la foto. En el MANIFEST he añadido <uses-permission android:name="android.permission.CAMERA" /> pero tampoco me funciona.