Playlist with fader not playing second file

[PatrickVossen]

Hi Severino,

Could you help me out with the following issue.
I am trying to create a playlist with crossfade functionality using the AudioDJStudioApiF4 control. (version 10.1.0.0 / Engine 13.6.0.17)
The playlist is created from scratch using the PlayListCreateEx and PlayListAddItem procedure.
When I create the playlist without crossfade functionality, the second track is automatically started when the first raises a Done event (both on DeckA).
But when I add the Fader object, the second track is started and directly raises a done event.

Could you hint me what I am doing wrong?

Please find below the debug logging and VB.Net code.

=== start debug logging ===
=================
Control Version = 10.1.0.0
Engine Version  = 13.6.0.17
=================
[date/time] [deck] [event]
10:58:05.057 - 0 - EV_PLAYLIST_SOUND_LOADED
10:58:05.890 - 0 - EV_BPM_AVAILABLE
10:58:05.906 - 0 - EV_FADEIN_STARTED
10:58:05.908 - 0 - EV_SOUND_PLAYING
10:58:06.704 - 0 - EV_FADEIN_COMPLETED
10:58:06.705 - 0 - EV_VOLUME_SLIDE_COMPLETED
11:00:25.125 - 0 - EV_FADING_POINT_REACHED <--fade point first track
11:00:25.175 - 1 - EV_PLAYLIST_SOUND_LOADED <--load 2nd track in deckB
11:00:26.058 - 1 - EV_BPM_AVAILABLE
11:00:26.060 - 1 - EV_SOUND_DONE
11:00:26.063 - 1 - EV_SOUND_PLAYING <--start 2nd track in deckB
11:00:26.114 - 1 - EV_SOUND_DONE <--done 2nd track in deckB
11:00:40.084 - 0 - EV_SOUND_DONE
=== end debug logging ===

Code Select Expand

Imports System.IO
Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        InitAudioEngine()
        Timer1.Start()
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim AudioFiles As String() = Directory.GetFiles("C:\Audio Files", "*.mp3")
        CreatePlaylist(AudioFiles.ToList)
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        PlaylistStart()
    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        PlaylistStop()
    End Sub

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        Label1.Text = $"{GetCurrentTrackPositionString()} / {GetTotalTrackDurationString()}"
    End Sub
End Class

Code Select Expand

Imports AudioDjStudioApi
Imports System.IO

Module mAudioEngine
    Public AudioApiEngine As New AudioDjStudioApiObj()
    Public Const Deck_A As Short = 0
    Public Const Deck_B As Short = 1
    Private Delegate Sub CallbackForPlayersEventsDelegate(ByVal nEvent As enumPlayerEvents,
                                                          ByVal nPlayer As Int16,
                                                          ByVal nData1 As Int32,
                                                          ByVal nData2 As Int32,
                                                          ByVal fData3 As Single,
                                                          ByVal pBufferUnicode As IntPtr,
                                                          ByVal nBufferLength As Int32)
    Private addrCallbackForPlayersEvents As CallbackForPlayersEvents

    Public Sub InitAudioEngine()
        Debug.WriteLine("=================")
        Debug.WriteLine($"Control Version = {AudioApiEngine.GetControlVersion()}")
        Debug.WriteLine($"Engine Version  = {AudioApiEngine.GetEngineVersion()}")
        Debug.WriteLine("=================")

        AudioApiEngine.InitSoundSystem(2, 0, 0, 0, 0)

        ' set the player's callback
        addrCallbackForPlayersEvents = New CallbackForPlayersEvents(AddressOf PlayerCallback)
        AudioApiEngine.CallbackForPlayersEventsSet(addrCallbackForPlayersEvents)

        AudioApiEngine.Fader.Init(enumFadeTypes.FADE_SINGLE_PLAYLIST, Deck_A, Deck_B)
        AudioApiEngine.Fader.PlayListUseSingle(Deck_A)

        AudioApiEngine.Fader.FadeInEnabled = True
        AudioApiEngine.Fader.FadeInLength = 350
        AudioApiEngine.Fader.FadeOutEnabled = True
        AudioApiEngine.Fader.FadeOutLength = 3500
    End Sub
    Public Sub DisposeAudioEngine()
        AudioApiEngine.StopSound(Deck_A)
        AudioApiEngine.StopSound(Deck_B)
        AudioApiEngine.Dispose()
    End Sub
    Private Sub PlayerCallback(ByVal nEvent As enumPlayerEvents,
                               ByVal nPlayer As Int16,
                               ByVal nData1 As Int32,
                               ByVal nData2 As Int32,
                               ByVal fData3 As Single,
                               ByVal pBufferUnicode As IntPtr,
                               ByVal nBufferLength As Int32)

        Select Case nEvent
            Case enumPlayerEvents.EV_WAVEFORM_CHANGE
            Case enumPlayerEvents.EV_FADING_VOLUME_CHANGED
            Case enumPlayerEvents.EV_VUMETER
            Case Else
                Debug.WriteLine($"{Date.Now:HH:mm:ss.fff} - {nPlayer} - {nEvent}")
        End Select
    End Sub

    Public Sub CreatePlaylist(AudioFiles As List(Of String))
        AudioApiEngine.PlayListSetLoop(Deck_A, bLoop:=False)
        AudioApiEngine.PlayListSetShuffle(Deck_A, bShuffle:=False)

        AudioApiEngine.PlayListCreateEx(Deck_A, enumPlayListModes.PLAYLIST_AUTOMATION_MODE)
        Dim Index As Integer = 0
        For Each f As String In AudioFiles
            If Not File.Exists(f) Then Continue For
            AudioApiEngine.PlayListAddItem(nPlayerIndex:=Deck_A,
                                           strPathname:=f,
                                           nIndex:=Index)
            Index += 1
        Next
    End Sub
    Public Sub PlaylistStart()
        Debug.WriteLine(AudioApiEngine.PlayListExecute(Deck_A, bFromBegin:=True).ToString())
    End Sub
    Public Sub PlaylistStop(Optional ByVal Deck As Short = -1)
        If Deck = -1 Then
            AudioApiEngine.StopSound(Deck)
            Return
        End If
        AudioApiEngine.StopSound(GetPlayingDeck())
    End Sub
    Public Function GetTotalTrackDurationString() As String
        Return AudioApiEngine.GetFormattedSoundDuration(GetPlayingDeck)
    End Function
    Public Function GetTotalTrackDurationInt() As Integer
        Return AudioApiEngine.GetSoundDuration(GetPlayingDeck)
    End Function
    Public Function GetCurrentTrackPositionString() As String
        Return AudioApiEngine.GetCurrentPosString(GetPlayingDeck, False, False)
    End Function
    Public Function GetCurrentTrackPositionInt() As Integer
        Return AudioApiEngine.GetCurrentPos(GetPlayingDeck)
    End Function
    Public Function GetPlayingDeck() As Short
        If AudioApiEngine.GetPlayerStatus(Deck_B) = enumPlayerStatus.SOUND_PLAYING Then
            Return Deck_B
        End If
        Return Deck_A
    End Function

End Module


[Administrator]

Hello Patrick,

the problem should be due to the fact that you are setting the playlist to work in automation mode but without entering any kind of volume automation for the items: the volume automation is mainly intended for usage with PDJ playlist files or by entering full volume automation with an XML string passed to the strPathname parameter of the PlayListAddItem method (see its documentation for an example).

Your code should work by changing the line:
 

Code Select Expand

AudioApiEngine.PlayListCreateEx(Deck_A, enumPlayListModes.PLAYLIST_AUTOMATION_MODE)with
 

Code Select Expand

AudioApiEngine.PlayListCreateEx(Deck_A, enumPlayListModes.PLAYLIST_FULL_MODE)
Hope this helps

Kind regards

Severino Delaurenti
MultiMedia Soft

[PatrickVossen]

Hi Severino,

Thank for the explanation.

I assumed that, because the fade volume points where automatically applied for the first track, that this would apply for all the tracks.

Best regards
Patrick Vossen