Private Sub B4XPage_Created (Root1 As B4XView)
Root = Root1
Root.LoadLayout("MainPage")
Player.Initialize("Player")
Player.Prepare(Player.CreateUriSource("https://bestvpn.org/html5demos/assets/dizzy.mp4"))
Dim jo As JavaObject = Player
Dim event As Object = jo.CreateEventFromUI("androidx.media3.exoplayer.Player$EventListener", "statechanged", False) 'Error
jo.GetFieldJO("player").RunMethod("addListener", Array(event))
SimpleExoPlayerView1.Player = Player
Player.Play
lblEnterFullScreen.Visible = False
End Sub
Sub StateChanged_Event (MethodName As String, Args() As Object) As Object
If MethodName = "onPlayerStateChanged" Then
Dim Playing As Boolean = Args(0)
Log("IsPlaying: " & Playing)
End If
Return Null
End Sub