€
$
₴
₽
EN
RU
Vmeste.EU
Лента
Каталог
Файлы
Форумы
Услуги
Основное
Radiotalk
Пользовательское
Технологии вещания, софт, скрипты
3 •
Посмотреть все темы
Отбивка часа в Сэме. Все это хорошо, но есть один огромный недостаток
1
31
ivan_sh
@ivan_sh
10.01.2011
Всем привет!
Хочу Вам напомнить о скрипте отбивки часа в Сэме.Работает-то он отлично, но есть один огромнейший недостаток: исполнилось ХХ:59:15 и Cэм плавно прекращает песню и включает всю эту историю.. Ведь может быть, что песня только началась и т.д... Хочу попросить, может кто знает.. в общем как сделать так, чтоб этот скрипт хотя бы ждал конца текущей песни, а потом уже включал отбивку? за ранее огромное спасибо.
Кто не видел или забыл скрипт, вот:
Показать текст
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;
пообщаться можем по аське: 563148534
25
Sergio
@Sergio
12.01.2011
Нужно убрать
if P <> nil then P.FadeToNext;
31
ivan_sh
@ivan_sh
12.01.2011
спасибо, вроде бы помогло)