My script “now playing” does not work with 3.0.13?
where is my mistake?
[/b] procedure OnPlayerStart(PlaylistIndex: integer; PlayerIndex: integer);
var
Item: IPlaylistItem;
sl: TStringList;
begin
item := Playlist(PlaylistIndex).GetPlayer(PlayerIndex).GetItem;
if Instance.GetOnAir = True then begin
sl := TStringList.Create;
[i] sl.Add(’"’ + Item.GetArtistsString + ‘"’ + ‘-’ + ‘"’ + Item.GetTitle + ‘"’);
sl.SaveToFile(‘C:\Users\Seb\Documents\NowPlaying\RDS.txt’);
sl.Free;
end;
end;
begin
end.[/i]
My error message :
20/03/2010 11:11:37 Error PLAYERCONTROL_START 39A0AE0364EF261 0 0 AbbaKnowing Me, Knowing You241684890720/03/2010 11:11:37GenreDisco 80D:\Ma musique\DISCO 80\ABBA - Knowing Me, Knowing You.mp3 List index out of bounds (4637681)