Android Code Snippet CameraEx : get smallest possible size

some times you want to take the smallest image size with CameraEx
this sub did the trick

Sub setminpicturesize
    Dim x,y As Int
    Dim x2 As Int=1000000
    Dim y2 As Int=1000000
    Dim pictureSizes() As CameraSize = camEx.GetSupportedPicturesSizes
    For i = 0 To pictureSizes.Length - 1
        x=pictureSizes(i).Width
        y=pictureSizes(i).Height
        If x2>x Then
            x2=x
            y2=y
        End If
    Next
    camEx.SetPictureSize(x2,y2)
    'ToastMessageShow(x2 & "/" & y2, False)
    camEx.CommitParameters
End Sub

* above x2 and y2 initial value equal million, because there is no camera width or height equal million

 

[Erel]

Better to check the actual size, not just the width:

Dim x2, y2, size As Int
For Each PictureSize As CameraSize In camEx.GetSupportedPicturesSizes
 Dim TempSize As Int = Sqrt(Power(PictureSize.Width, 2) + Power(PictureSize.Height, 2))
 If size = 0 OR TempSize < size Then
  x2 = PictureSize.Width
  y2 = PictureSize.Height
  size = TempSize
End If
Next

 

[Hamied Abou Hulaikah]

Better to check the actual size, not just the width:

I'm trying it; my approach set image smaller than your suggestion !
My Galaxy S6 with my sub return image size ~70kb, yours return ~4mb

 

[Erel]

What are the values of x2 and y2 with your code and my code?

 

[Hamied Abou Hulaikah]

the same

 

[Erel]

If they are the same then everything else will be the same. I only posted the code that finds the smallest screen size. You should still call:

 camEx.SetPictureSize(x2,y2)
    camEx.CommitParameters

 

[peacemaker]

My code is:

Sub Find_MaxPreviewSize
    Dim sizes() As CameraSize = camEx.GetSupportedPreviewSizes
    videoW = Max(sizes(0).Width, sizes(sizes.Length - 1).Width)
    videoH = Max(sizes(0).Height, sizes(sizes.Length - 1).Height)
    Log("PreviewSize=" & videoW & "x" & videoH)
End Sub

Sub Find_MaxCaptureSize
    Dim sizes() As CameraSize = camEx.GetSupportedPicturesSizes
    videoWmax = Max(sizes(0).Width, sizes(sizes.Length - 1).Width)
    videoHmax = Max(sizes(0).Height, sizes(sizes.Length - 1).Height)
    Log("CaptureSize=" & videoWmax & "x" & videoHmax)
End Sub

It seemed to be that some devices may return the sizes list sorted by ASC or DESC, not the always same kind.

 

[Erel]

Your code assumes that the list is sorted. I wouldn't assume it. Use the code I posted. It is simpler and will always work.