Такой вопрос можно сделать так что бы в начале джингл тоже включался а только потом ретрансляция ?)
var Song : TSongInfo;
var P : TPlayer;
PAL.Loop := False; // скрипт не будет выполнятся постоянно
PAL.WaitForTime('+00:00:50');
P := SoundFX; // говорим через чего играть
if P <> nil then // если нет проблем то..
begin
Queue.AddFile('D:\Program Files\SpacialAudio\SAMBC\Sound\promos\Трек 1_001.mp3',ipTop); // ..выбераем папку где лежит пищалка (их может быть несколько с разными приклеенными отбивками радио и тогда будет выбираться случайным образом)
if Song <> nil then // если есть такая песня и всё в порядке то..
begin
P.QueueSong(Song); // ..Ставим ее в очередь на проигрывание
P.Play; // проигрываем поверх песни
end;
end;
//подключаем ретрансляцию.
P := Aux1; //чтобы сработало и в том случае, если в обоих плеерах что-то есть
if P <> nil then
begin
Queue.AddFile('mic://?&driver=DS&packets=10&packettime=10&deviceID=-1&volctrl=6&duration=00:01:00',ipTop); //это и есть название виртуального файла ретрансляции. packets (от 3 до 20) и packettime (от 5 до 50) - параметры буфера. deviceID - по умолчанию =1 -первичный драйвер записи звука, если же нужна другая саундкарта, то deviceID=-2 или -3. volctrl=6 - это уровень громкости, duration=00:06:00 - ретрансляция будет длиться 6 минут. ipTop - поставить вверх в списке ожидания.
P := ActivePlayer; // Ретрансляция запускается активным плеером
if P <> nil then P.FadeToNext; //песня, которая звучала, затухает
end;
PAL.WaitForTime('+00:06:35');//чтобы запустить джингл после новостей и до того, как начнёт звучать песня, немного заранее до окончания ретрансляции загружаем наш джингл в очередь
P := Aux1;
if P <> nil then
begin
Queue.AddFile('D:\Program Files\SpacialAudio\SAMBC\Sound\promos\Трек 1_001.mp3',ipTop);//конкретный джингл из конкретной папки
P := ActivePlayer; //и вот он запускается
if P <> nil then P.FadeToNext;//а ретрансляция затухает
end;