Android Question CameraEx High quality?

Erel said:

The manufacturer app can be more fine tuned to this specific hardware.

Click to expand...

Public Sub GetSupportedSceneModes As List
    r.target = parameters
    Return r.RunMethod("getSupportedSceneModes")
End Sub

Public Sub SetSceneMode(sceneMode As String)
    r.target = parameters
    r.RunMethod2("setSceneMode", sceneMode, "java.lang.String")
End Sub

'Add this Sub
Public Sub SetSceneModeIfSupported(newMode as String)
    Dim supportedSceneModesList as List = CamEx.GetSupportedSceneModes
    For k=0 to supportedSceneModesList.size-1
        Dim mode as String = supportedSceneModesList.Get(k)
        Log("Supported scene mode "&k&": "& mode)
        if mode = newMode Then
           camEx.SetSceneMode(newMode)
        End if
    Next
End Sub

Sub Camera1_Ready (Success As Boolean)
    If Success Then
        camEx.SetJpegQuality(90)
        camEx.SetContinuousAutoFocus

        SetSceneModeIfSupported("hdr")     '<--- Add this line before 'commitParameters' (needed)

        camEx.CommitParameters
        camEx.StartPreview
        Log(camEx.GetPreviewSize)
    Else
        ToastMessageShow("Cannot open camera.", True)
    End If
End Sub

JordiCP said:

Also, according to the 2nd picture name, it seems to be taken in HDR, that extends the dynamic range.
If your camera supports it (getSupportedSceneModes), you could select hdr mode (setSceneMode("hdr")) and compare results.

(Totally untested, but this is the idea )

Add this to the CameraEx class

B4X:

Public Sub GetSupportedSceneModes As List
    r.target = parameters
    Return r.RunMethod("getSupportedSceneModes")
End Sub

Public Sub SetSceneMode(sceneMode As String)
    r.target = parameters
    r.RunMethod2("setSceneMode", sceneMode, "java.lang.String")
End Sub

And this to your main module

B4X:

'Add this Sub
Public Sub SetSceneModeIfSupported(newMode as String)
    Dim supportedSceneModesList as List = CamEx.GetSupportedSceneModes
    For k=0 to supportedSceneModesList.size-1
        Dim mode as String = supportedSceneModesList.Get(k)
        Log("Supported scene mode "&k&": "& mode)
        if mode = newMode Then
           camEx.SetSceneMode(newMode)
        End if
    Next
End Sub

Sub Camera1_Ready (Success As Boolean)
    If Success Then
        camEx.SetJpegQuality(90)
        camEx.SetContinuousAutoFocus

        SetSceneModeIfSupported("hdr")     '<--- Add this line before 'commitParameters' (needed)

        camEx.CommitParameters
        camEx.StartPreview
        Log(camEx.GetPreviewSize)
    Else
        ToastMessageShow("Cannot open camera.", True)
    End If
End Sub

Click to expand...