#Region Module Attributes
#FullScreen: False
#IncludeTitle: False
#ApplicationLabel: Camera Elton mod
#VersionCode: 1
#VersionName:
#SupportedOrientations: unspecified
#CanInstallToExternalStorage: False
#End Region
'Activity module
Sub Process_Globals
Private frontCamera As Boolean = True
' Public ServerIp As String = "192.168.1.101"
' Public ServerPort As Int = 17178
Private IntervalMs As Int = 10000
Private lastPreviewSaved As Long
End Sub
Sub Globals
Private Panel1 As Panel
Private camEx As CameraExClass
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("1")
'StartService(Communicator)
End Sub
Sub Activity_Resume
InitializeCamera
End Sub
Private Sub InitializeCamera
camEx.Initialize(Panel1, frontCamera, Me, "Camera1")
End Sub
Sub Activity_Pause (UserClosed As Boolean)
camEx.Release
End Sub
Sub Camera1_Ready (Success As Boolean)
If Success Then
camEx.StartPreview
Log("Supported sizes:")
For Each size As CameraSize In camEx.GetSupportedPicturesSizes
Log(size.Width & "x" & size.Height)
Next
camEx.SetJpegQuality(90)
camEx.SetPictureSize(1280,720)
Log(camEx.GetSupportedFlashModes)
camEx.CommitParameters
Else
ToastMessageShow("Cannot open camera.", True)
End If
End Sub
Sub btnTakePicture_Click
camEx.TakePicture
ToastMessageShow("Manual save", True)
End Sub
Sub Camera1_Preview (PreviewPic() As Byte)
If DateTime.Now > lastPreviewSaved + IntervalMs Then
' Dim jpeg() As Byte = camEx.PreviewImageToJpeg(PreviewPic, 70)
camEx.TakePicture
ToastMessageShow("Picture auto saved", True)
lastPreviewSaved = DateTime.Now
' CallSubDelayed2(Communicator, "Send", jpeg)
End If
End Sub
Sub Camera1_PictureTaken (Data() As Byte)
camEx.SavePictureToFile(Data, File.DirRootExternal, "1.jpg")
camEx.StartPreview
End Sub
Sub ChangeCamera_Click
camEx.Release
frontCamera = Not(frontCamera)
InitializeCamera
End Sub