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