How to save camera parameters persistent?

riko

Member
Licensed User
Longtime User
Hello,

is it somehow possible to set the picture-size parameter permanently?
I mean so that afterwards the phone-own camera-app uses it.

I have tried to do it like this...

B4X:
Sub Camera_Ready(success As Boolean)
   If success Then
      'cam.wsCPKey("picture-size","640x480")
      Dim s As String
      cam.PictureSize(640,480)
      s = cam.ParmStr
      Log(s)
      cam.ParmStr = s
   End If
End Sub

The Log shows the right setting, but after starting the cam it uses a different picture size...

B4X:
Sub button_click
    Dim pm As PackageManager
   Dim in As Intent
   Dim packages As List

      in.Initialize("","")
'packages = pm.GetInstalledPackages
      in=pm.GetApplicationIntent("com.sec.android.app.camera")
'For i = 0 To packages.Size -1
'   Log(packages.Get(i))
'Next
       If in.IsInitialized Then 
         cam.Release
          StartActivity(in)
       End If
   
End Sub

Any ideas?
 
Top