Como hago para tomar la foto con la resolución más alta permitida por el dispositivo.
Tengo el siguiente código:
Dim pictureSizes() As CameraSize = camEx.GetSupportedPicturesSizes
Dim current As CameraSize = camEx.GetPictureSize
For i = 0 To pictureSizes.Length - 1
If pictureSizes(i).Width = current.Width And pictureSizes(i).Height = current.Height Then Exit
Next
Dim ps As CameraSize = pictureSizes((i + 1) Mod pictureSizes.Length)
camEx.SetPictureSize(ps.Width, ps.Height)
ToastMessageShow(ps.Width & "x" & ps.Height, False)
camEx.CommitParameters
Lo que hace esto es cambiar de resolución entre las permitidas y quiero que tome la resolución más alta permitida
Hola, veo que estas empleando camEx, puedes hacer esto para poner la resolucion mas alta
B4X:
Dim maxSize As CameraSize
maxSize.Height = 0
maxSize.Width = 0
For Each cs As CameraSize In camEx.GetSupportedPicturesSizes
If Power(cs.Width, 2) + Power(cs.Height, 2) > Power(maxSize.Width, 2) + Power(maxSize.Height, 2) Then maxSize = cs
Next
camEx.SetPictureSize(maxSize.Width, maxSize.Height)
Esto lo pones en el evento Ready si Success = True
Hola Jaime, podrias añadir al título [SOLUCIONADO] , así ayudamos a otros compañeros a encontrar las soluciones mas rapidamente y mejoramos la agilidad del foro.