Forum of program "Wild media server (UPnP, DLNA, HTTP)
https://www.wildmediaserver.com/forum/
May be in future versions.cgeorgakopoulos wrote:Hi, can you add an artist index option like twonky media server? The full artist list is not convenient with a large db.
Eg:
Artist Index ->
A B C D E F ...... ->
Celine Dion - Coolio - Cyborg .... ->
Gangsters Paradise - ...
Code: Select all
function GetProperty(aItem: TWmsScriptMediaItem; aPropertyID: Integer): string;
begin
Result := VarToStr(aItem.Properties[aPropertyID]);
if Result = '' then
Result := 'Unknown'
end;
procedure ProcessItem(aItem: TWmsScriptMediaItem);
var
i: Integer;
sCollectionPath, sDirectory: string;
begin
sCollectionPath := 'Artist Index\' + Copy(GetProperty(aItem, mpiAuthor), 1, 1) + '\' +
GetProperty(aItem, mpiAuthor) + '\' + GetProperty(aItem, mpiAlbum);
WmsDatabaseAddLink(mfAudioPlaylistsItemID, sCollectionPath, aItem);
end;
var
i: Integer;
MediaItemList: TWmsScriptMediaItemList;
begin
MediaItemList := WmsCurrentMediaListItems;
try
if MediaItemList.Count > 0 then begin
WmsShowProgress('Create Artist Index...');
try
for i := 0 to MediaItemList.Count - 1 do begin
if WmsCancelPressed then
Break
else begin
ProcessItem(MediaItemList[i]);
WmsSetProgress(Round(((i + 1) / MediaItemList.Count) * 100))
end
end
finally
WmsHideProgress
end;
if WmsCancelPressed then
MessageDlg('Create Artist Index interrupted by the user.', mtError, mbOK, 0)
else
MessageDlg('Create Artist Index was successful.', mtInformation, mbOK, 0)
end else
MessageDlg('No files to process.', mtError, mbOK, 0)
finally
MediaItemList.Free
end;
WmsDatabaseAutoSave;
ProcessMediaResult := True
end.
Code: Select all
Function GetProperty(Item As TWmsScriptMediaItem, PropertyID As Integer) As String
Dim PropertyValue As String = VarToStr(Item.Properties(PropertyID))
If PropertyValue = "" Then
PropertyValue = "Unknown"
End If
Return PropertyValue
End function
Sub ProcessItem(Item as TWmsScriptMediaItem)
Dim SongName As String = GetProperty(Item, mpiTitle)
Dim CollectionPath as String = "Song Index\" & Copy(SongName, 1, 1)
WmsDatabaseAddLink(mfAudioPlaylistsItemID, CollectionPath, Item)
End Sub
Dim MediaItemList as TWmsScriptMediaItemList = WmsCurrentMediaListItems
Dim ItemIndex As Integer
try
For ItemIndex = 0 To MediaItemList.Count - 1
ProcessItem(MediaItemList[ItemIndex])
Next
finally
MediaItemList.Free
End Try
WmsDatabaseAutoSave
ProcessMediaResult = True
There is a problem reading UNICODE-tags when scanning media resources, will be fixed in next version.LouisXIV wrote:Oops ... too quick
Song Index DID do something, I now have a new playlist, but ..... not what I thought it would do. It created a songlist based on the filename I think, see for yourself in the attachment.
How can I correct this script?
Try changing ProcessItemLouisXIV wrote:The UNICODE problem will be the problem with the "Artist index" script I guess, so there is indeed nothing for me to do than check my tags and wait for the next release.
The "Song index" script however seems to index my songs based on the filename (Eagles - Desperado - 01 - Doolin-Dalton.mp3 -> shows up under the E) instead of the trackname, in this case Doolin-Dalton should show up under the D
Code: Select all
Sub ProcessItem(Item as TWmsScriptMediaItem)
Dim SongName As String = GetProperty(Item, mpiTitle)
Dim DelimPos = EndPos(SongName, " - ")
If DelimPos > 0 Then
SongName = Copy(SongName, DelimPos + 3, 2000)
End If
Dim CollectionPath as String = "Song Index\" & Copy(SongName, 1, 1)
WmsDatabaseAddLink(mfAudioPlaylistsItemID, CollectionPath, Item)
End Sub