Voila un petit script qui pourra sans doute vous servir. On peut mettre le script dans le gestionnaire d'evenements de SAM. Le texte pour masquer l'adresse du stream necessite un fichier .txt dans lequel on mettra sur la premiere ligne le texte.
{
Starflit pour Radio-fr. On peut choisir l'heure du depart du decrochage et la fin. A la
fin du decro le programme normal redemarre. Pandant
le decrochage un message s'affichera pour les auditeurs.
{ CONFIGURATION }
var UpdSong : TSongInfo;
var Banners : TStringList;
{Fichier de texte du message}
const bannertext_file = 'C:\Program Files\SpacialAudio\SAMBC\PAL\decro.txt';
const ShowURL = 'http://194.158.114.66:8100';
const StartTime = 'XX:44:00';
const EndTime = 'XX:45:00';
UpdSong := TSongInfo.Create;
Banners := TStringList.Create;
{ Load banner lines into stringlist object }
if FileExists(bannertext_file) then
Banners.LoadFromFile(bannertext_file)
else
WriteLn('Banner source file does not exist!');
{Attendre le départ}
PAL.WaitForTime(StartTime);
{Décrochage + message}
Queue.Clear;
Queue.AddURL(ShowURL,ipTop);
ActivePlayer.FadeToNext;
{Messages de l'emmission}
UpdSong['title'] := Banners[0];
Encoders.SongChange(UpdSong);
{Attendre la fin}
PAL.WaitForTime(EndTime);
{Passer au programme normal}
ActivePlayer.FadeToNext;
{--------------------------------------------------}