ISDBApplication::PlaylistByID: Difference between revisions
Jump to navigation
Jump to search
(better style, unificatiion with PlaylistByTitle page) |
(Added example for not returning root node when playlist is not found) |
||
| Line 16: | Line 16: | ||
''Introduced in MediaMonkey 4.0.'' | ''Introduced in MediaMonkey 4.0.'' | ||
===Example code=== | ===Example code=== | ||
<source lang="vb"> | |||
' Safe PlaylistByID wrapper - returns Nothing when playlist with given ID is not found | |||
Sub SafePlaylistByID(ID) | |||
Dim RootList : Set RootList = SDB.PlaylistByID(-1) ' Get root node | |||
SafePlaylistByID = SDB.PlaylistByID(ID) ' Get playlist by ID | |||
If SafePlaylistByID Is RootList Then | |||
SafePlaylistByID = Nothing ' Do not return playlist when nothing was found | |||
End If | |||
End Sub | |||
</source> | |||
Example for playlist nodes iteration: | |||
<source lang="vb">Dim Playlist : Set Playlist = SDB.PlaylistByID(-1) ' Playlist represents the root (virtual) playlist | <source lang="vb">Dim Playlist : Set Playlist = SDB.PlaylistByID(-1) ' Playlist represents the root (virtual) playlist | ||
Dim List : Set List = Playlist.ChildPlaylists ' List represents a list of all first-level playlists | Dim List : Set List = Playlist.ChildPlaylists ' List represents a list of all first-level playlists | ||
Revision as of 20:13, 20 April 2013
CoClass SDBApplication, Interface ISDBApplication
Property Get PlaylistByID(ID As Long) As ISDBPlaylist
Parameters
| Name | Type | Description |
|---|---|---|
| ID | Long | ID of the playlist to get (use -1 to get root of all playlists) |
Property description
Retrieves SDBPlaylist object of the given playlist ID.
Call method with -1 as the argument to get the (virtual) root playlist node. Then you can use its ChildPlaylists property to get all the first-level playlists.
WARNING: Also if no playlist with the specified ID exists, the (virtual) root playlist will be returned. Be aware of this fact, especially if you are planning to remove a playlist. Making an error could remove the root, and so all playlists.
Introduced in MediaMonkey 4.0.
Example code
' Safe PlaylistByID wrapper - returns Nothing when playlist with given ID is not found
Sub SafePlaylistByID(ID)
Dim RootList : Set RootList = SDB.PlaylistByID(-1) ' Get root node
SafePlaylistByID = SDB.PlaylistByID(ID) ' Get playlist by ID
If SafePlaylistByID Is RootList Then
SafePlaylistByID = Nothing ' Do not return playlist when nothing was found
End If
End SubExample for playlist nodes iteration:
Dim Playlist : Set Playlist = SDB.PlaylistByID(-1) ' Playlist represents the root (virtual) playlist
Dim List : Set List = Playlist.ChildPlaylists ' List represents a list of all first-level playlists
Dim i, itm
For i = 0 To List.Count - 1 ' For all (first-level) playlists in List...
Set itm = List.Item(i) ' ... print out the number of child playlists and tracks
fout.WriteLine itm.Title & " (" & CStr(itm.ChildPlaylists.Count) & "/" & CStr(itm.Tracks.Count) & ")"
Next
' in this case, fout represents a TextStream object (not shown here)