Private Sub FillTable As ResumableSub
Dim PathToSearch As String
Dim FileName As String
If modFunctions.Linux = True Then
PathToSearch = "/home/pi5/Audio-Demucs/"
Else
PathToSearch = "H:\Jamulus Audio\Web\Audio\Audio-Demucs\"
End If
Wait For (GetTheSongs(PathToSearch)) Complete (SongList As List)
Dim SongCounter As Int
Dim mp3 As JavaObject
For SongCounter = 0 To SongList.Size -1
FileName = SongList.Get(SongCounter)
If File.IsDirectory(FileName, "") = False Then
Wait For(LoadMp3File(FileName)) Complete (MP3File As JavaObject)
mp3 = MP3File
If mp3 <> Null Then
Dim ID2 As Object = mp3.RunMethod("hasId3v2Tag", Null)
If ID2 = True Then
Dim ID3v2Tag As JavaObject = mp3.RunMethod("getId3v2Tag", Null)
Dim Track As String = ID3v2Tag.RunMethod("getTrack", Null)
Dim Artist As String = ID3v2Tag.RunMethod("getArtist", Null)
Dim SongName As String = ID3v2Tag.RunMethod("getTitle", Null)
Dim Album As String = ID3v2Tag.RunMethod("getAlbum", Null)
Dim Year As String = ID3v2Tag.RunMethod("getYear", Null)
Dim Genre As String = ID3v2Tag.RunMethod("getGenreDescription", Null)
Dim Lyrics As String = ID3v2Tag.RunMethod("getLyrics", Null)
Wait For (modSQLITE.WriteSong(SongName, Artist, Genre, Lyrics, FileName)) Complete (RetValue As Boolean)
End If
End If
Else
Log("Is Dir " & FileName)
End If
Next
Wait For (FillAudioTable) Complete (RetValue As Boolean) 'here start the tableview filling
Return True
End Sub
