Hi Severino,
For starting the playlist, I have tried :
AudioDjStudio1.PlayListExecute(Player_1, True)
AudioDjStudio1.PlayListExecute(Player_1, False)
AudioDjStudio1.PlayListExecAt(Player_1, IndexOrder(0))
AudioDjStudio1.PlayListExecAt(Player_1, 0)
I have added my vb code and the playlist (.pdj) I have used
Imports AudioDjStudio
Public Class Form1
Private Const Player_1 As Short = 0
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim ofd As New OpenFileDialog With {
.Filter = "Playlist formats (*.m3u;*.pls;*.wpl;*.pdj)|*.m3u;*.pls;*.wpl;*.pdj|M3U PlayList (*.m3u)|*.m3u|PLS PlayList (*.pls)|*.pls|WPL PlayList (*.wpl)|*.wpl|PDJ PlayList (*.pdj)|*.pdj|All files (*.*)|*.*",
.InitialDirectory = AudioDjStudio1.SoundsDirectory
}
If ofd.ShowDialog() <> DialogResult.OK Then Return
If AudioDjStudio1.PlayListLoadSync(Player_1, ofd.FileName, enumPlayListModes.PLAYLIST_AUTOMATION_MODE) <> enumErrorCodes.NOERROR Then
MessageBox.Show("Error loading playlist")
Return
End If
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
AudioDjStudio1.InitSoundSystem(1, 0, 0, 0, 0, -1)
AudioDjStudio1.PlayListSetLoop(Player_1, False)
AudioDjStudio1.PlayListSetShuffle(Player_1, True)
End Sub
Private Sub AudioDjStudio1_PlayListLoadDone(sender As Object, e As PlayListLoadDoneEventArgs) Handles AudioDjStudio1.PlayListLoadDone
Debug.WriteLine($"AudioDjStudio1_PlayListLoadDone nPlayerIndex={e.nPlayerIndex} bSuccess={e.bSuccess}")
Dim Quantity As Short = AudioDjStudio1.PlayListGetCount(Player_1)
Dim IndexOrder() As Short
If Quantity > 0 Then
ReDim IndexOrder(Quantity - 1)
Debug.WriteLine(AudioDjStudio1.PlayListExecOrderTableGet(Player_1, IndexOrder, Quantity).ToString)
Debug.WriteLine("+++++++++++++++++++++++++++++++")
For index As Integer = 0 To IndexOrder.Length - 1
Debug.WriteLine(IndexOrder(index))
Next
Debug.WriteLine("+++++++++++++++++++++++++++++++")
End If
AudioDjStudio1.PlayListExecute(Player_1, True)
'AudioDjStudio1.PlayListExecute(Player_1, False)
'AudioDjStudio1.PlayListExecAt(Player_1, IndexOrder(0))
'AudioDjStudio1.PlayListExecAt(Player_1, 0)
End Sub
Private Sub AudioDjStudio1_PlayListLoadPerc(sender As Object, e As PlayListLoadPercEventArgs) Handles AudioDjStudio1.PlayListLoadPerc
Debug.WriteLine($"AudioDjStudio1_PlayListLoadPerc nPlayerIndex={e.nPlayerIndex} nPercentage={e.nPercentage}")
End Sub
Private Sub AudioDjStudio1_PlayListLoadStart(sender As Object, e As PlayerEventArgs) Handles AudioDjStudio1.PlayListLoadStart
Debug.WriteLine($"AudioDjStudio1_PlayListLoadStart nPlayerIndex={e.nPlayerIndex}")
End Sub
Private Sub AudioDjStudio1_PlayListDone(sender As Object, e As PlayerEventArgs) Handles AudioDjStudio1.PlayListDone
Debug.WriteLine($"AudioDjStudio1_PlayListDone nPlayerIndex={e.nPlayerIndex}")
End Sub
Private Sub AudioDjStudio1_PlaylistSoundLoaded(sender As Object, e As PlaylistSoundLoadedEventArgs) Handles AudioDjStudio1.PlaylistSoundLoaded
Debug.WriteLine($"AudioDjStudio1_PlaylistSoundLoaded nPlayerIndex={e.nPlayerIndex} nItemIndex={e.nItemIndex} strTag={e.strTag}")
End Sub
Private Sub AudioDjStudio1_PlayListSoundLoadFailure(sender As Object, e As SoundLoadedEventArgs) Handles AudioDjStudio1.PlayListSoundLoadFailure
Debug.WriteLine($"AudioDjStudio1_PlayListSoundLoadFailure nPlayerIndex={e.nPlayerIndex} nItemIndex={e.nItemIndex}")
End Sub
End Class