Script pour les décrochages (avec titrage)

[Starflit]

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;

{--------------------------------------------------}

[yannou0]

Si j'est bien compris.

le titrage de l'emission s'alterne toute les 45 secondes avec un texte que l'on peut choisir.

Exemple: EMISSION TRALALA 45sec > Contacter l'equipe de TRALALA sur le chat 45 sec > EMISSION TRALALA 45sec > Contacter l'equipe de TRALALA sur le chat 45 sec ect...

Il sert a sa le script ? :? j'est pas tros compris

[Starflit]

Salut

j'ai complété le PAL en faisant en sorte que ce ne soit plus un message fixe mais plusieurs messages qui s'affichent les uns a la suite des autres pendant le decro. Dans le fichier decro.txt on mettra le texte en passant a la ligne pour chaque nouveau message.

Starflit

{

Starflit pour Radio-fr. On peut choisir l'heure du depart du decrochage et la fin. A la

fin du decrole programme normal. Pandant

le decrochage un message s'affichera pour les auditeurs.

}

{ CONFIGURATION }

var UpdSong : TSongInfo;

var Banners : TStringList;

var LinePos : Integer = 0;

var Bool : Boolean = True;

const bannertext_file = 'C:\Program Files\SpacialAudio\SAMBC\PAL\decro.txt';

const ShowURL = 'http://194.158.114.66:8100';

const StartTime = '22:12:00';

const EndTime = '22:13:00';

const change_interval = '+00:00:10';

UpdSong := TSongInfo.Create;

Banners := TStringList.Create;

{ Charger le texte }

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}

Queue.Clear;

Queue.AddURL(ShowURL,ipTop);

ActivePlayer.FadeToNext;

{Messages de l'emission}

While (now

begin

LinePos := 0;

while (LinePosT[EndTime]) then

begin

bool:=FALSE;

ActivePlayer.FadeToNext;

end

else

begin

PAL.WaitForTime(change_interval);

UpdSong['title'] := Banners[LinePos];

Encoders.SongChange(UpdSong);

LinePos := LinePos + 1;

end;

end;

end;

Banners.Free;

UpdSong.Free;

{--------------------------------------------------}

[Starflit]

Je mets le script de mon dernier post en téléchargement direct.

Starflit

Decrochage&titrage3.pal