Dear all
upgraded to the latest v 1.3 of the cameraex class. and now getting an error every time commit parameter is called by the programme.
the "demo" camera app you bundled does work fine though. here's some of my code.
using b4A v 5.02
upgraded to the latest v 1.3 of the cameraex class. and now getting an error every time commit parameter is called by the programme.
the "demo" camera app you bundled does work fine though. here's some of my code.
using b4A v 5.02
B4X:
#Region Project Attributes
#ApplicationLabel: Cam
#VersionCode: 5
#VersionName:
'SupportedOrientations possible values: unspecified, landscape or portrait.
#SupportedOrientations: portrait
#CanInstallToExternalStorage: False
#End Region
#Region Activity Attributes
#FullScreen: True
#IncludeTitle: False
#End Region
Sub Process_Globals
Private frontCamera As Boolean = False
Private usbserial As felUsbSerial
Private manager As UsbManager
Dim DisableCameraTimer As Timer
Dim TakePicTimer As Timer
End Sub
Sub Globals
Private Panel1 As Panel
Private Panel2 As Panel
Private camEx As CameraExClass
Private btnTakePicture As Button
Dim awake As PhoneWakeState
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("allinone")
If FirstTime Then
manager.Initialize
End If
DisableCameraTimer.Initialize("DisableCameraTimer1",300)
TakePicTimer.Initialize("pictimer",300)
awake.KeepAlive(True)
End Sub
Sub Activity_Resume
InitializeCamera
manager.Initialize
awake.KeepAlive(True)
End Sub
Private Sub InitializeCamera
camEx.Initialize(Panel2, frontCamera, Me, "Camera1")
DisableCameraTimer.Enabled=True
frontCamera = camEx.Front
End Sub
Sub Activity_Pause (UserClosed As Boolean)
camEx.Release
awake.ReleaseKeepAlive
End Sub
Sub Camera1_Ready (Success As Boolean)
If Success Then
camEx.SetColorEffect("none")
camEx.SetFlashMode("Off")
camEx.SetPictureSize(4032, 3024)
camEx.ExposureCompensation=-6
camEx.CommitParameters
camEx.StartPreview
Else
ToastMessageShow("Cannot open camera.", True)
End If
End Sub
Sub btnTakePicture_Click
If mode_select = "I" Then
camEx.TakePicture
Else
camEx.SetFlashMode("torch")
camEx.CommitParameters
camEx.TakePicture
End If
btnTakePicture.Enabled = False
End Sub
Sub DisableCameraTimer1_Tick
DisableCameraTimer.Enabled=False
ProgressDialogHide
End Sub
Sub pictimer_Tick
TakePicTimer.Enabled=False
PicTake
End Sub
Sub PicTake
camEx.TakePicture
btnTakePicture.Enabled = False
End Sub
Sub Camera1_PictureTaken (Data() As Byte)
camEx.SetFlashMode("off")
camEx.CommitParameters
Else
End If
End Sub
