Всем привет! Нужен был скриптик для рекламы. Получилось вот так в тесте:
var P : TPlayer;
var Song : TSongInfo;
var strRekB, strRekE : String;
//скрипт будет выполнятся постоянно(многократно)
PAL.Loop := True;
//ставим задержку на 30 минут
PAL.WaitForTime('+00:00:10');
strRekB := 'L:\Ruskat\Моя музыка\ZED-fm\часы\start_hour.mp3'; //Путь к началу рекламы
//выбираем трек наугад
Song := CAT['Фильмы-мульты'].ChooseSong(smRandom,NoRules);
//добавляем его в начало очереди
strRekE := 'L:\Ruskat\Моя музыка\ZED-fm\часы\start_hour.mp3'; //Путь к концу рекламы
//Задаём последовательность и место вставки в Queue.
Queue.AddFile(strRekB, ipBottom); // Начало. Интро. Реклама на таком-то радио...
Queue.Add(Song, ipBottom); // сама реклама (вывод 1 трека)
Queue.AddFile(strRekE, ipBottom); // Конец рекламы. Это была реклама на таком-то радио...
if P <> nil then
begin
Queue.AddFile(strRekB, ipTop);
Queue.AddFile(strRekE, ipTop);
P := ActivePlayer;
if P <> nil then P.FadeToNext;
end;
=======
Как в параметре Queue.Add(Song, ipBottom); // сама реклама мне указать, сколько треков нужно случайным образом брать из категории? Берёт один.
Сайт и
плейлист радио ZED-FM.