sync - magic nodes - playlist

[ZvezdanD]

Though I'm guessing you may need to access the text files in the first place, since there seems to be no way of directly retrieving tracks from the 'tracklists' that MegaDJ/MagicNodes uses.

How about SDB.AllVisibleSongList?

[twinbee]

How about SDB.AllVisibleSongList?

Hey nice find. I suppose it makes sense to externalize the command due to the dynamic updating of tracks MM uses for tracklists. As long as one doesn't mind being on the actual list, then that's fine.

Triponi, by the way, as well as my previous post's way of getting MegaDJ's track data (and the above way more generally), these three links will help you on your way to syncing:
http://www.mediamonkey.com/wiki/index.p ... StartSynch
http://www.mediamonkey.com/wiki/index.php/SDBDevice
http://www.mediamonkey.com/wiki/index.p ... ynchStatus

A nice way of searching when looking for appropriate commands is to go to the Allpages. One can then use the in built browser's search to look for stuff more easily than Wiki's search allows.

[Triponi]

Okay, so further to my last message, I've had a look at some of the stuff you guys posted to see actually how much work would it be. Turns out I have managed to get something incredibly ugly working in about half an hour (for MegaDJ). Basically, I alter the fillList sub so that every time my "sync" node is filled it also fills a static playlist with the same data.

The problem is however, it turns out that writing to a static playlist is incredibly slow (of the order of minutes for a 1000 song list). So this is pretty much a nonstarter. Oh well, I'll post my code alterations here anyway. The search continues...

Triponi

Code: Select all

Sub fillList(subnode)

    'MsgBox("fillist")

    Dim filesys, path
    Set filesys = CreateObject("Scripting.FileSystemObject")
    path = filesys.GetAbsolutePathName(strMMPath & "MegaDJ\" & subnode.CustomNodeID)
    If filesys.FileExists(path) Then
   
        Const ForReading = 1
        Set objFSO = CreateObject("Scripting.FileSystemObject")

        Set objFile = objFSO.OpenTextFile(strMMPath & "MegaDJ\" & subnode.CustomNodeID, ForReading)

        MyString = objFile.Readall

        objFile.Close
        
        If InStr(MyString, "ERROR") Then
            MsgBox (MyString)
            Exit Sub
        End If
       
        'tr.AddTracksFromQuery("WHERE ID IN(" & MyString & ")") 'MyString
        
        '''''''''''''''''''''''''''''''
        'Triponi
        Const nodeToCopy = 0
        
        If (subnode.CustomNodeID = nodeToCopy) Then
            'Get the syncplaylist
            Dim syncList
            Set syncList = SDB.PlaylistByTitle("SyncMegaDJ")
            syncList.Clear
        End If
        ''''''''''''''''''''''''''''''

        fields = Split(MyString, ",")
        'MsgBox(UBound(fields))
        For i = 0 To UBound(fields)

            ' The CORE of the program :)
            If Not (SDB.Objects(fields(i)) Is Nothing) Then
                tr.AddTrack (SDB.Objects(fields(i)))

                 '''''''''''''''''''''''''''''''
                 'Triponi
                 If (subnode.CustomNodeID = nodeToCopy) Then                    
                     syncList.AddTrack (SDB.Objects(fields(i)))
                 End If
                 '''''''''''''''''''''''''''''''
                
            End If
            'MsgBox("i: " & i & ", ID not found: " & fields(i) & " ...so caching song data")

        Next
        Set fields = Nothing

        'tr.AddTracksFromQuery("WHERE ID IN(" & MyString & ")")


        tr.FinishAdding
    
    End If
End Sub

[twinbee]

To further this topic, and to help copy to playlists generally:- I've found that using AddTracks instead of AddTrack (without the S) speeds up the process of copying to a playlist by a few orders of magnitude.

AddTracks takes a SongList object (collection of SongData objects), rather than a single SongData object as with AddTrack. The process of transferring them all at once with AddTracks somehow does the trick.

Info: http://www.mediamonkey.com/wiki/index.php/SDBPlaylist