Hallo Torben, hallo Community,
ich habe mich mit dem mAirList-Script noch nicht wirklich auseinandergesetzt, sondern habe einfach mal ein Script rauskopiert, dass den aktuellen Titel in einer Datei speichert. Allerdings kommt dann folgende Fehlermeldung: 'Fehler beim Laden des Benachrichtigungs-Scripts C:\Programme\mAirList 4.0\scripts\nowplaying-script.mls: [Error] (7:
: Unknown type 'INotification'. Das Script ist folgendes:
var
pi: IPlaylistItem;
sl: TStringList;
pi1: IPlaylistItem;
pi2: IPlaylistItem;
pi3: IPlaylistItem;
n: INotification;
begin
// fetch notification data
n := GetNotification;
if (n.GetNotificationType = ntMask) then
// we want to be notified when players start
SetNotificationTypes([ntPlayerStart])
else
if (n.GetNotificationType = ntPlayerStart) then begin
// interface #1 contains a reference to the playlist item
pi := IPlaylistItem(n.GetInterface(1));
pi1 := CurrentPlaylist.GetItem(1);
pi2 := CurrentPlaylist.GetItem(2);
pi3 := CurrentPlaylist.GetItem(3);
sl := TStringList.Create;
sl.Add('<html>');
sl.Add('<head><title>Now Playing</title></head>');
sl.Add('<body>');
sl.Add('<p>Artist: ' + pi.GetArtist + ' --- Title: ' + pi.GetTitle + '</p>');
if pi.GetTitle=pi1.GetTitle then begin
sl.Add('<p>Artist2: ' + pi2.GetArtist + ' --- Title2: ' + pi2.GetTitle + '</p>');
sl.Add('<p>Artist3: ' + pi3.GetArtist + ' --- Title3: ' + pi3.GetTitle + '</p>');
end;
if pi.GetTitle<>pi1.GetTitle then begin
sl.Add('<p>Artist2: ' + pi1.GetArtist + ' --- Title2: ' + pi1.GetTitle + '</p>');
sl.Add('<p>Artist3: ' + pi2.GetArtist + ' --- Title3: ' + pi2.GetTitle + '</p>');
end;
sl.Add('</body>');
sl.Add('</html>');
sl.SaveToFile('C:\Programme\xampp\htdocs\NowPlaying.html');
sl.Free;
end;
end.//Edit:
Ich benutze die Version 4.0 und den aktuellen Snapshot. Ich glaube 1173 war der oder?
