Помогите со скриптом для СЭМа по отбивки часа. (Страница 1 из 2)

для начала пробуйте так
strFile := strPath + '23-00.mp3';

Скрипты PAL для Sam Broadcaster&p=1
гляньте тут, должно быть что то похожее

пишет tarasian666:

Запуск файла каждый час (отбивка времени):

    Спойлер:

    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;

джинг пропустили, вместо него укажите любой файл

спасиюо, попробовал.....только прикол в том что играет тот джингл который я указал здесь :
strJingle := 'C:\CLOCK\start_hour.mp3'; //Путь и название джингла после отбивки часов

может я что0тот еправильно сделал.я прописал вот такой путь

strPath := 'H:\музыка\Radio\Отбивки\Часовые'; // Путь к папке, где лежат отбивки часов
strJingle := 'H:\музыка\Radio\Отбивки\Часовые\07-00.mp3'; //Путь и название джингла после отбивки часов

Путь и название джингла после отбивки часов взял просто наугад из той же папки что бы попробовать и вот результат - играет не сама отбивка часа - типа 23 00 а джингл после отбивки......что за ерунда(

что теперь для каждого часа свой скрипт делать и прописывать в название джингла, звучащего после отбивки часов нужный мне в этот час джинг отбивки(((
что делать?

Отредактировано Leon (11-10-2010 00:09:45)

или чуть переделайте вот такой код

var mySong : TSongInfo;

PAL.Loop := True;

PAL.WaitForTime('XX:15:00');
mySong := Cat['promo'].ChooseSong(smRandom, noRules);
Aux1.QueueSong(mySong);
Aux1.Play;
mySong.Free;

несовпадение названия файлов

Показать / Cкрыть текст

FormatDateTime('hh', now+1/24) + '-00.mp3';

скрипт ищет в папке файл с названием "текущий час"-00.mp3 которого видимо нет

пишет KyPIIaToB:

Спойлер:

var P    : TPlayer;
var Song : TSongInfo;
var strFile, strPath, strJingle : String;

strPath := 'E:\CLOCK\'; //папка с отбивкой
PAL.Loop := True;
PAL.WaitForTime('XX:59:15'); //запускаемся в конце каждого часа
P := SoundFX;
strFile := strPath + FormatDateTime('hh', now+1/24) + '-00.mp3';
Queue.AddFile(strFile, ipTop);
Song := Queue.NextInQueue;
P.QueueSong(Song);
P.Play;

Попробовал, спасибо - работает - только одно НО.... отбивка часа звучит поверх играющего трека , а я хочу, что бы играющий трек останавливался  и только после этого звучала нормально отбивка....а затем после нее другие треки начинали играть. как это сделать..... на примере этого спойлера

пишет tarasian666:

но перед проигрыванием остановить обе дэки

и как это сделать?

Доброго времени. Вопрос такой, Часовая отбивка:
Хотелось бы что бы она запускалась не поверх трека, и даже не обрывая предыдущий, а после него. т.е. что бы трек нормально доигрывал и только после него часовая отбивка. Подскажите пожалуйста, как это технически сделать?

пишет tarasian666:

можете просто через schedule настроить добавление трека в очередь (queue) на первое место

tarasian666, Спасибо большое!
А не подскажите мануал по schedule где найти можно?
Попробовал сам, добавляется в конец очереди, что прописать нужно и куда для добавления в начало?

Отредактировано INRI666 (24-03-2011 10:15:14)

пишет tarasian666:

вместо bottom вписать top

Бардце Дженкуе если можно так транслитирировать)))
Ещё позвольте один вопрос: Что такое clockwhell и с чем его едят? Что это за скрипт? Что делает?  Откуда брать или как писать?)

Да классно работает. Только вот если бы отбивка еще с фейдом выходила а то резко врывается неочень красиво. Может кто знает что можно сделать?