Услуги Проверка Форумы
ОсновноеRadiotalkПользовательское
Общие вопросы по интернет радио вещанию
7   •   Посмотреть все темы

Отбивка часа (Мешает)

 
1

410
Евгений @Drakkar
Уж не знаю, как правильно сформулировать проблему. В общем у меня на на C:\CLOCK лежат отбивки часов.
Потом скриптом
  1. var P : TPlayer;
  2. var Song : TSongInfo;
  3. var strFile, strPath, strJingle : String;
  5. strPath := 'C:\CLOCK\'; // Путь к папке, где лежат отбивки часов
  6. strJingle := 'C:\CLOCK\start_hour.mp3'; //Путь и название джингла после отбивки часов
  8. PAL.Loop := True;
  10. PAL.WaitForTime('XX:59:45'); //запускаемся в конце каждого часа. 15 сек - время буферезации, подбираем по свом параметрам, вкусам
  12. strFile := strPath + FormatDateTime('hh', now+1/24) + '-00.mp3'; //определяем название файла с нужными часиками. Формат имени файла XX-XX.mp3
  14. P := Aux1;
  15. if P <> nil then
  16. begin
  18. Queue.AddFile(strJingle, ipTop);
  19. Queue.AddFile(strFile, ipTop);
  23. P := ActivePlayer;
  24. if P <> nil then P.FadeToNext;
  27. end;

Я реализовал возможность ежечасовой отбивки часа. Но почему-то эти отбивки в формате mp3 стали появляться у меня в плейлисте в категории Music (All) и иногда ротация их сама добавляет в Queue. Шозафигня ?:)

Отредактировано Drakkar - 14.10.2011
0
1572
KyPIIaToB @KyPIIaToB
Кривой у тебя скрипт.

Обычный, играет по верх трека.
  1. var P : TPlayer;
  2. var Song : TSongInfo;
  3. var strFile, strPath, strJingle : String;
  5. strPath := 'E:\CLOCK\'; //папка с отбивкой
  6. PAL.Loop := True;
  7. PAL.WaitForTime('XX:59:15'); //запускаемся в конце каждого часа
  8. P := SoundFX;
  9. strFile := strPath + FormatDateTime('hh', now+1/24) + '-00.mp3';
  10. Queue.AddFile(strFile, ipTop);
  11. Song := Queue.NextInQueue;
  12. P.QueueSong(Song);
  13. P.Play;

Вот еще немного переделанный по просьбе, он на время проигрывания отбивки приглушает играющий трек.

  1. var P : TPlayer;
  2. var Song : TSongInfo;
  3. var strFile, strPath, strJingle : String;
  4. var i : integer;
  6. PAL.Loop := True;
  8. i := ActivePlayer.GetVolume;
  10. P := SoundFX;
  12. strPath := 'E:\CLOCK\'; //путь к папке с отбивкой
  14. PAL.WaitForTime('XX:59:15'); //запускаемся в конце каждого часа
  16. strFile := strPath + FormatDateTime('hh', now+1/24) + '-00.mp3';
  17. Queue.AddFile(strFile, ipTop);
  18. Song := Queue.NextInQueue;
  19. P.QueueSong(Song);
  21. ActivePlayer.Volume := i - 40;
  22. ActivePlayer.Volume := i - 80;
  23. ActivePlayer.Volume := i - 120;
  24. ActivePlayer.Volume := i - 160;
  26. P.Play;
  27. PAL.WaitForTime('+00:00:03');
  29. ActivePlayer.Volume := i - 160;
  30. ActivePlayer.Volume := i - 120;
  31. ActivePlayer.Volume := i - 80;
  32. ActivePlayer.Volume := i - 40;
  33. ActivePlayer.Volume := i;

0
410
Евгений @Drakkar
Спасибо огромное. Ты мне очень помог!

0
245
roker @roker
Во спасибо Курпатов!

0
245
roker @roker
чот не понимаю... ставлю 2 вариант скрипта Курпатова и почему то не проигрывает джингл..затихание есть но ничего не играет...!
Пробывал вот так:
strPath := 'С:\CLOCK\1.mp3'; //путь к папке с отбивкой
и
strPath := 'C:\CLOCK\'; //путь к папке с отбивкой ( c этим вариантом музыка вообще полностью затухает)
... кто подскажет что я делаю не правильно? =)

0
1572
KyPIIaToB @KyPIIaToB
roker пишет:

чот не понимаю... ставлю 2 вариант скрипта Курпатова и почему то не проигрывает джингл..затихание есть но ничего не играет...!
Пробывал вот так:
strPath := 'С:\CLOCK\1.mp3'; //путь к папке с отбивкой
и
strPath := 'C:\CLOCK\'; //путь к папке с отбивкой ( c этим вариантом музыка вообще полностью затухает)
... кто подскажет что я делаю не правильно? smile

Названия отбивок то как сделал?
Они должны быть формата 15-00.mp3 и тд и находится в папке CLOCK, ну или как тебе удобнее.

Отредактировано KyPIIaToB - 16.11.2011
0
245
roker @roker
название поменял на 16:18 и всеравно ничего нет ;/ вроде появляется в плейлисте на долю секунды и сразу пропадает и при этом музыка затихает..

а как названия менял то правой кнопкой и переименовать =d и в теги дописывал..

____________________

а вот тут мне надо менять минуты?
strFile := strPath + FormatDateTime('hh', now+1/24) + '-00.mp3';

Отредактировано roker - 16.11.2011
0
245
roker @roker
**********

вот скрин где появляется отбивка и сразу же пропадает.. и да тестю пока на своём компе..

Отредактировано roker - 16.11.2011
0
6245
Тарас @tarasian666
roker пишет:

название поменял на 16:18 и всеравно ничего нет ;/

сказано же формат, 16-00 или 18-00 никаких 16:18 или 16:00 и тд по скольку в скрипте понимает только то что заканчиваеться на -00.mp3

0
245
roker @roker
ппц..получается час над ждать что бы ток проверить :D .. ладно подожду =D

0
1572
KyPIIaToB @KyPIIaToB
roker пишет:

ппц..получается час над ждать что бы ток проверить big_smile .. ладно подожду big_smile

ручками перевести время в виндовских часах не судьба? )

Ужасный скин у 4.9 сэма) жуть

Отредактировано KyPIIaToB - 16.11.2011
0
32
montazniktv3 @montazniktv3
roker пишет:

ппц..получается час над ждать что бы ток проверить .. ладно подожду

вбивай время на минуту две вперед и тестируй а вообще вот тебе тема ********** мы обсуждали. и я лично пришел к выводу что если выпускать ее то только вручную.

Отредактировано montazniktv3 - 01.12.2011
0





Согласие на обработку данных на нашем сайте

Продолжая просматривать страницу, вы соглашаетесь с использованием файлов «Cookie» и с Политикой конфиденциальности «Privacy».
Наверху или внизу страницы вы можете изменить валюту и язык по умолчанию. Английская версия сайта ещё находится в доработке и доступна не полностью.