#Region Project Attributes
#ApplicationLabel: Camera
#VersionCode: 1
#VersionName:
'SupportedOrientations possible values: unspecified, landscape or portrait.
#SupportedOrientations: unspecified
#CanInstallToExternalStorage: False
#End Region
Sub Process_Globals
Private player1 As SimpleExoPlayer
End Sub
Sub Globals
Private SimpleExoPlayerView1 As SimpleExoPlayerView
End Sub
Sub Activity_Create(FirstTime As Boolean)
If FirstTime Then
player1.Initialize("player")
player1.Prepare(player1.CreateSmoothStreamingSource("http://192.168.2.4:9090/stream"))
End If
Activity.LoadLayout("1")
SimpleExoPlayerView1.Player = player1
player1.Play
End Sub
Sub Player_Ready
Log("Ready")
End Sub
Sub Player_Error (Message As String)
Log("Error: " & Message)
End Sub
Sub Player_Complete
Log("complete")
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub