Script pal pour affichage

bonjour à tous,

je cherche un script pour que le Nom de la radio et sa Description

s'affiche en alternance avec le Titre/Artiste..

qu on puisse preciser pendant combien de secondes l'un ou l'autre s'affiche..

c'est possible ça ?

merci

SP

j'ai essayé ce script donné par sam mais il n'alterne pas.., Toggle est toujours en True dans la condition..

vous avez une idée de la modif à faire..

{ ABOUT:
    Script to change title displayed in listener's streaming player.
    This script will read a banner text source file to get a list of
    messages to display, then switch between the normal song information
    and the banner text on regular intervals.

    Not only does this make for a more interesting experience for listeners,
    it also prevents stream rippers from being able to make copies of your
    tracks.

  USAGE:
    a) Create a normal plain text file and type your banner messages into this file.
       Each new line should contain one new banner message.
    B) Change the configuration settings below to point to your file and
       specify the interval to wait between changes.
}

{ CONFIGURATION }
{==================================================}
const bannertext_file = 'd:\Program Files\SpacialAudio\SAMBC\PAL\BannersTexts.txt';
const change_interval = '+00:00:5';
{==================================================}


{ IMPLEMENTATION }
{--------------------------------------------------}
var CurSong : TSongInfo;
var UpdSong : TSongInfo;
var Banners : TStringList;
var Toggle  : Boolean = True;
var LinePos : Integer = 0;



{Set this script to restart itself}
PAL.Loop := True;

{ Create some objects that we will need}
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!');

LinePos := 0;
while (LinePos<Banners.Count) do
begin
  {Wait for specified time}
  PAL.WaitForTime(change_interval);

  {Retrieve the current banner line and assign it to song object}
  UpdSong['title'] := Banners[LinePos];

  {Tell encoders to update song information:
    When Toggle is True, we use the normal song information from
    the active player - otherwise we use our banner song object
  }

//  Toggle := not Toggle;


   if Toggle then
   begin
    CurSong := ActivePlayer.GetSongInfo;
     Encoders.SongChange(CurSong);
    CurSong.Free;
    Toggle := false;
   end

 else
    Encoders.SongChange(UpdSong);
    //Toggle := Toggle;

  {Move to the next line in the banner file before we continue}

  LinePos := LinePos + 1;

end;

{Destroy objects once we no longer need them}
Banners.Free;
UpdSong.Free;
{--------------------------------------------------}