Spanish Camara + CROP

electronicajaf

Member
Licensed User
Longtime User
Buen dia a todos, esty usando este código que lo encuentro en todos lados.
Sub camera(Directory As String, PictureName As String)
Dim i As Intent
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 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

El tema es que:
i.PutExtra("outputX", 200) 'crop size
i.PutExtra("outputY", 150) 'crop size

No fuencionan, no se respetan los valores, solo quedan los valores por defecto del telefono.
Como se hace con Android 10???
OJO para los que no les funciona este código. Por un problema de escritura de la aplicación llamada, no guarda las fotos o las guarda vacias. Lo que tenemos que hacer es guardar las fotos en DCIM, luego la pasamos a nuesta carpeta si hace falta.
Gracias
 
Last edited:
Top