Reply to thread

Message

<blockquote data-quote="kyleh0000" data-source="post: 619218" data-attributes="member: 91207">yay i got it working!!took 3 days of banging my head against the wall but it working!here is the code for anyone else want to know how to do this<img src="data:image/gif;base64,R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7" class="smilie smilie--sprite smilie--sprite1" alt=":)" title="Smile&nbsp; &nbsp; :)" loading="lazy" data-shortname=":)" />&nbsp;Protected Sub LoadPlayList(ByVal strPlayList As String, ByVal startPlayback As Boolean)&nbsp; &nbsp; &nbsp; &nbsp; Dim loader As IPlayListIO = PlayListFactory.CreateIO(strPlayList)&nbsp; &nbsp; &nbsp; &nbsp; Dim playListPlayer As PlayListPlayer&nbsp; &nbsp; &nbsp; &nbsp; playlistPlayer = playlistPlayer.SingletonPlayer&nbsp; &nbsp; &nbsp; &nbsp; If loader Is Nothing Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Exit Sub&nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; &nbsp; &nbsp; Dim playlist As New PlayList()&nbsp; &nbsp; &nbsp; &nbsp; If Not File.Exists(strPlayList) Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Log.Info(&quot;Playlist: Skipping non-existing Playlist file: {0}&quot;, strPlayList)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Exit Sub&nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; &nbsp; &nbsp; loader.Load(playlist, strPlayList)&nbsp; &nbsp; &nbsp; &nbsp; playlistPlayer.CurrentPlaylistName = Path.GetFileNameWithoutExtension(strPlayList)&nbsp; &nbsp; &nbsp; &nbsp; For i As Integer = 0 To playlist.Count - 1&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Dim playListItem As PlayListItem = playlist(i)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; playlistPlayer.GetPlaylist(PlayListType.PLAYLIST_MUSIC).Add(playListItem)&nbsp; &nbsp; &nbsp; &nbsp; Next&nbsp; &nbsp; &nbsp; &nbsp; playlistPlayer.CurrentPlaylistType = PlayListType.PLAYLIST_MUSIC&nbsp; &nbsp; &nbsp; &nbsp; playlistPlayer.Reset()&nbsp; &nbsp; &nbsp; &nbsp; playlistPlayer.Play(0)&nbsp; &nbsp; End Sub</blockquote>

[QUOTE="kyleh0000, post: 619218, member: 91207"] yay i got it working!! took 3 days of banging my head against the wall but it working! here is the code for anyone else want to know how to do this:) Protected Sub LoadPlayList(ByVal strPlayList As String, ByVal startPlayback As Boolean) Dim loader As IPlayListIO = PlayListFactory.CreateIO(strPlayList) Dim playListPlayer As PlayListPlayer playlistPlayer = playlistPlayer.SingletonPlayer If loader Is Nothing Then Exit Sub End If Dim playlist As New PlayList() If Not File.Exists(strPlayList) Then Log.Info("Playlist: Skipping non-existing Playlist file: {0}", strPlayList) Exit Sub End If loader.Load(playlist, strPlayList) playlistPlayer.CurrentPlaylistName = Path.GetFileNameWithoutExtension(strPlayList) For i As Integer = 0 To playlist.Count - 1 Dim playListItem As PlayListItem = playlist(i) playlistPlayer.GetPlaylist(PlayListType.PLAYLIST_MUSIC).Add(playListItem) Next playlistPlayer.CurrentPlaylistType = PlayListType.PLAYLIST_MUSIC playlistPlayer.Reset() playlistPlayer.Play(0) End Sub [/QUOTE]

Verification