Sub Class_Globals
Private Root As B4XView
Private xui As XUI
Public player1 As SimpleExoPlayer
Private SimpleExoPlayerView1 As SimpleExoPlayerView
End Sub
Public Sub Initialize
End Sub
Private Sub B4XPage_Created (Root1 As B4XView)
Root = Root1
Root.LoadLayout("MainPage")
player1.Initialize("player1")
SimpleExoPlayerView1.Player = player1
Dim sources As List
sources.Initialize
sources.Add(player1.CreateUriSource("https://html5demos.com/assets/dizzy.mp4"))
player1.Prepare(player1.CreateListSource(sources))
Dim jo As JavaObject = SimpleExoPlayerView1
Dim event As Object = jo.CreateEventFromUI("com/google/android/exoplayer2/ui/PlayerControlView.VisibilityListener".Replace("/", "."), "VisibilityChange", Null)
jo.RunMethod("setControllerVisibilityListener", Array(event))
End Sub
Sub VisibilityChange_Event (MethodName As String, Args() As Object) As Object
Dim IsVisible As Boolean = 0 = Args(0)
Log("Visible: " & IsVisible)
Return Null
End Sub