Android Question A sample code for select and play a video file by mediaStore

[rasul.g]

any sample code.
play with videoview or any other player...

 

[Erel]

Sub Button1_Click
    Dim cc As ContentChooser
    cc.Initialize("cc")
    cc.Show("video/*", "choose video")
    Wait For CC_Result (Success As Boolean, Dir As String, FileName As String)
    If Success Then
        player.Prepare(player.CreateUriSource(FileName)) 'ExoPlayer
        player.Play
    End If
End Sub

 

[Andris]

Sub Button1_Click
    Dim cc As ContentChooser
    cc.Initialize("cc")
    cc.Show("video/*", "choose video")
    Wait For CC_Result (Success As Boolean, Dir As String, FileName As String)
    If Success Then
        player.Prepare(player.CreateUriSource(FileName)) 'ExoPlayer
        player.Play
    End If
End Sub

Erel, the CC folder needs a subfolder named /Shared Files in addition to /B4A in order to compile. Adding CC/Shared Files is all that's needed. Then it compiles OK and choosing video files works perfectly.

 

[Erel]

Delete this line at the top of B4XMainPage:

#CustomBuildAction: folders ready, %WINDIR%\System32\Robocopy.exe,"..\..\Shared Files" "..\Files"

I mistakenly used File - Export as zip to create the zip, instead of clicking on the zipper comment.