Wir haben mAirlist 2.2.1/2.2.2 und ich nutze foldende 2 Scripte für eine Automation:
[code]
const
MusicDir = ‘\Server\MP3\Lokalreport - Töne aus dem Netz\Musikarchiv\Digital Playlist’;
NewsDir = ‘\DRS-PC\Wort-Jingle’;
JinglesDir = ‘\DRS-PC\Wort-Jingle’;
var
news: IContainerPlaylistItem;
pi: IPlaylistItem;
pl: IPlaylist;
nextHour: TDateTime;
DateDay, Folder: String;
function WeekdayToFolder(DateDay: string): String;
begin
Case DateDay Of
‘Mo’: Result := ‘1 Montag’;
‘Di’: Result := ‘2 Dienstag’;
‘Mi’: Result := ‘3 Mittwoch’;
‘Do’: Result := ‘4 Donnerstag’;
‘Fr’: Result := ‘5 Freitag’;
‘Sa’: Result := ‘ups’;
‘So’: Result := ‘ups’;
else Result := ‘ups’;
end;
end;
begin
// nächste Stunde als Delphi TDateTime berechnen
nextHour := (trunc(now *24) + 1) / 24;
DateDay := FormatDateTime(‘ddd’, now);
Folder := WeekdayToFolder(DateDay);
pl := Factory.CreatePlaylist;
// Silence 4 Sekunden für das saubere Fading von der Musik
pi := IPlayListItem(Factory.CreateSilencePlaylistItem);
pi.SetDuration(40000000);
pl.Add(pi);
// News-Opener einfügen
pi := Factory.CreatePlaylistItemFromFile(JinglesDir + ‘auto_uhrzeit_’ + FormatDateTime(‘hh’, nextHour) + ‘Uhr.mp3’, true);
pl.Add(pi);
// News einfügen
pi := Factory.CreatePlaylistItemFromFile(NewsDir + ‘news.mp3’, false);
pl.Add(pi);
//Wetter einfügen
pi := Factory.CreatePlaylistItemFromFile(NewsDir + ‘auto_wetter_vormittags.mp3’, false);
pl.Add(pi);
// News-Closer einfügen
//pi := CreatePlaylistItemFromFile(JinglesDir + ‘news-close.mp3’, true);
//CurrentPlaylist.Add(pi);
// News als Container zusammenbasteln
news := Factory.CreateContainerPlaylistItem;
news.GetPlaylist.AppendPlaylist(pl);
IPlaylistItem(news).SetTitle(‘Nachrichten ’ + FormatDateTime(‘hh’, nextHour) + ’ Uhr’);
IPlaylistItem(news).SetArtist(‘ACHTUNG: Automation aktiv !!!’);
CurrentPlaylist.Add(IPlaylistItem(news));
//SystemLog('NextHour ’ + FormatDateTime(‘hh’, nextHour));
// Musik der nächsten Stunde einfügen
if(StrToInt(FormatDateTime(‘h’, nextHour)) < 12) then begin
CurrentPlaylist.AppendPlaylist(Factory.CreatePlaylistFromFile(MusicDir + ‘10-12 Uhr’ + FormatDateTime(‘yy-mm-dd’, now) + ’ ’ + FormatDateTime(‘hh’, nextHour) +’ osregional.mlp’));
end;
if(StrToInt(FormatDateTime(‘h’, nextHour)) = 12) then begin
CurrentPlaylist.AppendPlaylist(Factory.CreatePlaylistFromFile(MusicDir + Folder + ‘\mahlzeit.mlp’));
end;
end.[/code]
[code]var i: integer;
nextHour: TDateTime;
begin
nextHour := (trunc(now *24) + 1) / 24;
for i := 0 to CurrentPlaylist.GetCount - 1 do
if copy(CurrentPlaylist.GetItem(i).GetTitle, 1, 14) = 'Nachrichten ' + FormatDateTime('hh', nextHour) then begin
CurrentPlaybackControl.AutomationJump(CurrentPlaylist.GetItem(i));
break;
end;
if(StrToInt(FormatDateTime(‘h’, nextHour)) = 12) then begin
ExecuteCommand(‘AUTOMATION 1 OFF’);
ExecuteCommand(‘CARTWALL LOAD SET \Server\MP3\Lokalreport - Töne aus dem Netz\Musikarchiv\Digital Playlist\mAirlistCartwallkarten\MiMaVersion2mitTT.mlc’);
end;
end.[/code]
Das Problem ist, das wir beim Übergang zur Automation um 10 h ein Titel ausblenden und dann die Automation starten, klappt auch soweit, nur wenn der Titel den wir faden während des News Containers WIRKLICH endet, spring die Automation zum nächsten Titel und spielt den news container + den nächsten Titel parallel.
Gibts dafür ne Lösung ? Würde es reichen wenn ich die Automation nicht vorher per Event(der auch die 2 scripts ausführt) starte, sondern nach dem Laden der News per Script … kann ich n Jump machen ohne Automation an ?
Tadso