Решил собрать все популярные скрипты в одном месте (часто ищут одно и то же):
Проигрывание трэка поверх звучащего:
var Song : TSongInfo;
var P : TPlayer;
PAL.Loop := True; // скрипт будет выполнятся постоянно
PAL.WaitForTime('+00:10:00'); // задержка в 10 секунд
P := SoundFX; // через что играть
if P <> nil then
begin
Song := CAT['Каталог'].ChooseSong(1,NoRules);
if Song <> nil then
begin
P.QueueSong(Song); //
P.Play;
end;
end;
Проигрывание трэка через 5 песен:
PAL.Loop := True; // скрипт будет выполнятся постоянно
PAL.WaitForPlayCount(5); // ставим задержку на 5 треков //выбераем случайный трек из "Каталог" и ставим его вверх очереди
CAT['Каталог'].QueueTop(smRandom, NoRules);
Проигрывание трэка через определённое время:
var Song : TSongInfo;
PAL.Loop := True; //скрипт будет выполнятся постоянно(многократно)
PAL.WaitForTime('+00:30:00'); //ставим задержку на 30 минут
Song := CAT['Каталог'].ChooseSong(smRandom,NoRules); //выбираем трек наугад
//добавляем его в начало очереди
Queue.Add(song,ipTop);
Запуск файла каждый час (отбивка времени):
var P : TPlayer;
var Song : TSongInfo;
var strFile, strPath, strJingle : String;
strPath := 'C:\CLOCK\'; // Путь к папке, где лежат отбивки часов
strJingle := 'C:\CLOCK\start_hour.mp3'; //Путь и название джингла после отбивки часов
PAL.Loop := True;
PAL.WaitForTime('XX:59:15'); //запускаемся в конце каждого часа. 45 сек - время буферезации, подбираем по свом параметрам, вкусам
strFile := strPath + FormatDateTime('hh', now+1/24) + '-00.mp3'; //определяем название файла с нужными часиками. Формат имени файла XX-XX.mp3
P := Aux1;
if P <> nil then
begin
Queue.AddFile(strJingle, ipTop);
Queue.AddFile(strFile, ipTop);
P := ActivePlayer;
if P <> nil then P.FadeToNext;
end;
Отредактировано lespaul43 (08-10-2009 12:33:42)
как мало полезных вредных привычек
Рок, альтернатива, метал, ска, панк: Red-Radio [Station]
www.red-radio.ru