Android Question ExoPlayer subtitles

Sasuke Sama said:

I tried the example above and copied it to my project but as i said im only having a problem with this line

Click to expand...

Erel said:

1. Download the subtitles and save them as UTF8 file:

B4X:

    Dim j As HttpJob
   j.Initialize("", Me)
   j.Download("http://45.79.158.247/test.srt")
   Wait For (j) JobDone(j As HttpJob)
   If j.Success Then
       Dim s As String = j.GetString2("windows-1252")
       File.WriteString(File.DirInternal, "1.srt", s)
   End If
   j.Release

2. Created a merged source with the video source and subtitles source:

B4X:

Dim subtitles As Object = CreateSingleSampleMediaSource("file://" & File.Combine(File.DirInternal, "1.srt"))
Dim video As Object = player1.CreateUriSource("http://clips.vorwaerts-gmbh.de/big_buck_bunny.mp4")
sources.Add(CreateMergedSource(Array(video, subtitles)))

Subs:

B4X:

Sub CreateMergedSource(Sources() As Object) As Object
   Dim arr As JavaObject
   arr.InitializeArray("com.google.android.exoplayer2.source.MediaSource", Sources)
   Dim m As JavaObject
   Return m.InitializeNewInstance("com.google.android.exoplayer2.source.MergingMediaSource", Array(arr))
End Sub

Sub CreateSingleSampleMediaSource (Uri As String) As Object
   Dim format As JavaObject
   format = format.InitializeStatic("com.google.android.exoplayer2.Format").RunMethod("createTextSampleFormat", Array(Null, "application/x-subrip", 1, "en"))
   Dim source As JavaObject
   Dim u As Uri
   u.Parse(Uri)
   Dim exo As JavaObject = player1
   source.InitializeNewInstance("com.google.android.exoplayer2.source.SingleSampleMediaSource", Array(u, exo.RunMethod("createDefaultDataFactory", Null), _
       format, -9223372036854775807))
   Return source
End Sub

Depends on ContentResolver library.

Click to expand...

format.InitializeStatic("com.google.android.exoplayer2.Format").RunMethod("createTextSampleFormat", Array(Null, "application/x-subrip", 1, "en"))