Please help how can i zoom video while using simple exo player
B4X:
#Region Project Attributes
#ApplicationLabel: B4A Example
#VersionCode: 38
#VersionName:
'SupportedOrientations possible values: unspecified, landscape or portrait.
#SupportedOrientations: unspecified
#CanInstallToExternalStorage: False
#End Region
#Region Activity Attributes
#FullScreen: False
#IncludeTitle: True
#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")
Dim sources As List
sources.Initialize
Dim acts As String ="GOOD"
Log("http://kccug.com/KabojjaApp/lessons/" & acts&".mp4")
'sources.Add(player1.CreateUriSource("https://html5demos.com/assets/dizzy.mp4"))
sources.Add(player1.CreateUriSource("http://kccug.com/KabojjaApp/lessons/" & acts&".mp4"))
'sources.Add(player1.CreateUriSource("http://kccug.com/KabojjaApp/lessons/good.mp4"))
player1.Prepare(player1.CreateListSource(sources))
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