Sub CLV1_ItemLongClick(Index As Int, Value As Object)
Dim MusicGenre As Int
Dim suffix As String, ls As Int
SongName = ListSongName.Get(Index)
Storage.FindFile(Storage.Root,SongName)
ls = SongName.length
suffix = SongName.SubString2(ls-3, ls)
Log ("Suffix = " & suffix)
Log ("File Name = " & SongName)
If SongName.EndsWith(".mp3") Or SongName.EndsWith(".MP3")Then MusicGenre = 1
If SongName.EndsWith(".wav") Or SongName.EndsWith(".WAV")Then MusicGenre = 2
If SongName.EndsWith(".flac") Then MusicGenre = 3
If SongName.EndsWith(".mid") Then MusicGenre = 4
If SongName.EndsWith(".gp3") Then MusicGenre = 5
Select MusicGenre
Case 1
'Playing the sound files in the application
Player1.Prepare(Player1.CreateFileSource(File.DirInternal,SongName))
JukeBox.Player = Player1
Label1.Text = " Music Title: " & SongName
Player1.Play
Case 2
'Playing the sound files in the application
If File.Exists(File.DirInternal,SongName) = True Then
Dim sources As List
sources.Initialize
sources.Add(Player1.CreateFileSource(File.DirInternal, SongName))
Sleep(5000)
Player1.Prepare(Player1.CreateListSource(sources))
JukeBox.Player = Player1
Label1.Text = " Music Title: " & SongName
Player1.Play
End If
'Player1.Prepare(Player1.CreateFileSource(File.DirInternal,SongName))
'JukeBox.Player = Player1
'Label1.Text = " Music Title: " & SongName
'Player1.Play
Case Else
'Play sound files outside the app through your own devices
Chooser.Show("audio/*", "Choose audio file")
Wait For Chooser_Result (Success1 As Boolean, Dir1 As String, FileName1 As String)
If Success1 Then
Dim InStr As InputStream = File.OpenInput("ContentDir",FileName1)
Dim OutStr As OutputStream = File.OpenOutput(File.DirInternal, SongName,False)
File.Copy2(InStr,OutStr)
OutStr.Close
Else
MsgboxAsync("If your music file is not playing," & CRLF & "you can open it directly outside" & CRLF & "this application by opening the"& CRLF & "folder chosen by you in the" & CRLF & "external storage","Advice")
End If
End Select
End Sub