Script erweitern, aber wie?

Deutsch / German Allgemein
1

Hallo.

Wir haben folgendes Script laufen:

var pl: IPlaylist;

begin
try
CurrentPlaylist.LoadFromFile(‘Y:\Verzeichnisse\mAirList\playlists’ + FormatDateTime(‘YYYY-MM-DD-HH’, now) + ‘.mld’);
except
pl := Database(0).GetCurrentPlaylist;
if pl.GetCount > 0 then
CurrentPlaylist.Assign(pl)
else
CurrentPlaylist.LoadFromFile(‘Y:\Verzeichnisse\mAirList\playlists\Notplaylisten\Notplayliste-’ + FormatDateTime(‘HH’, now) + ‘-Uhr.mld’);
end;
CurrentPlaybackControl.AutomationNext;
end.

Zur vollen Stunde wird per Event die jeweilige Playliste geladen.
Erst wird versucht eine “Handgemachte” (Y:) zu laden, ist die nicht vorhanden
eine Datenbank Playliste, gibts die auch nicht, wird eine Notplayliste geladen.
Diese liegen alle auf einem Netzlaufwerk (auch die Musik).

Nun hat aus irgend einem Grund der Senderechner nachts das Netzlaufwerk verloren.
Sendeloch. Zum Glück sprang die Havarie an (wir senden auf UKW).

Dies möchte ich nun abfangen, indem ich das Script erweitere.
Sprich: Sind alle 3 Varianten nicht verfügbar, soll er aus einem lokale Pool
eine Notplayliste spielen. Diese lädt dann aus einem lokalen Ordner die Musik.

Gleiches möchte ich auch mit dem “PlaylistEmty” Script machen.

procedure OnPlaylistEmpty(PlaybackControl: IPlaybackControl; Playlist: IPlaylist);
begin
Playlist.LoadFromFile(‘Y:\Verzeichnisse\mAirList\playlists\Playlist_Emty\PL_Emty_’ + FormatDateTime(‘HH’, now) + ‘.mld’);
end;

begin
end.

Was muss ich in dem Script ändern, damit diese zusätzliche Option funktioniert.
Habe von Scripten leider wenig Ahnung.

Danke im Voraus.

2

hi,

probier mal folgende ungetestete scripts

[code]var pl: IPlaylist;

begin
try
CurrentPlaylist.LoadFromFile(‘Y:\Verzeichnisse\mAirList\playlists’ + FormatDateTime(‘YYYY-MM-DD-HH’, now) + ‘.mld’);
except
pl := Database(0).GetCurrentPlaylist;
if pl.GetCount > 0 then
CurrentPlaylist.Assign(pl)
else begin
try
CurrentPlaylist.LoadFromFile(‘Y:\Verzeichnisse\mAirList\playlists\Notplaylisten\Notplayliste-’ + FormatDateTime(‘HH’, now) + ‘-Uhr.mld’);
except
CurrentPlaylist.LoadFromFile(‘C:/irgend/eine/andere/playlist.mld’);
end;
end;
end;
CurrentPlaybackControl.AutomationNext;

end. [/code]

und:

[code]procedure OnPlaylistEmpty(PlaybackControl: IPlaybackControl; Playlist: IPlaylist);
begin
try
Playlist.LoadFromFile(‘Y:\Verzeichnisse\mAirList\playlists\Playlist_Emty\PL_Emty_’ + FormatDateTime(‘HH’, now) + ‘.mld’);
except
CurrentPlaylist.LoadFromFile(‘C:/irgend/eine/andere/playlist.mld’);
end;
end;

begin
end.[/code]

grüße, michi

3

Hallo Michi.

Werd’ ich heute Abend mal testen.
Nicht das erste Script das bei uns von Dir läuft.

Danke. ;D

4

jo, kein problem… :slight_smile: ich helfe gerne… (vorallem bei bürgersendern, über die ich auch zum radio gekommen bin)