Услуги Проверка Форумы
ОсновноеRadiotalkПользовательское
Технологии вещания, софт, скрипты
7   •   Посмотреть все темы

Помогите со скриптом для СЭМа по отбивки часа.

 
1 2 3

19
Leon @Leon
Привет всем! Помогите пожалуйста со скриптом , который будет делать отбивки автоматически часа. я пробовал взял скрипт вот такого характера


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

strPath := 'H:\музыка\Radio\Отбивки\Часовые';


PAL.Loop := True;

PAL.WaitForTime('XX:59:15');

strFile := strPath + FormatDateTime('hh', now+1/24) + '23-00.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;


вот , он вроде работает....и время отсчитывает назад до отбивки.....а как подходит время отбивки он звучащий трек резко перематывает в конец и запускает новый трек , без отбивки часа......и опять обратный отсчет до новой отбивки что делать....много лазил по нету так и не разобрался.......

может это из за того что в папке для отбивок лежит только один файлик отбивки - только одного часа - я чисто для пробы делал ...( вот так...помогите!!!! если можно по пунктам и подробно что делать - хочу с этим разобраться.......

Заранее спасибо!

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

0
19
Leon @Leon
tarasian666 пишет:

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

попробовал - не получается....короче я заменил строчку
strFile := strPath + FormatDateTime('hh', now+1/24) + '23-00.mp3';

на strFile := strPath + '23-00.mp3';

не получилось((((

0
6245
Тарас @tarasian666
**********&p=1
гляньте тут, должно быть что то похожее

0
6245
Тарас @tarasian666
Запуск файла каждый час (отбивка времени):
Показать текст

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

0
19
Leon @Leon
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
0
6245
Тарас @tarasian666
а если так strFile := strPath + "название файла" ?

0
6245
Тарас @tarasian666
или чуть переделайте вот такой код


var mySong : TSongInfo;

PAL.Loop := True;

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

0
19
Leon @Leon
tarasian666 пишет:

var mySong : TSongInfo;

PAL.Loop := True;

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

Спасибо за помощь! а можете код целиком прописать, с использованием моего который я давал сверху.....(т.е. его изменить) или свой можете кинуть а я потом поменяю только путь к папке, а то я попробовал - не получается, вернее получилось - отбивка звучит, только одного файла, которого указываю в пути.....((

0
6245
Тарас @tarasian666
несовпадение названия файлов
Показать текст
и того что у вас в папке

0
19
Leon @Leon
tarasian666 пишет:

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

Спойлер:

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

и того что у вас в папке

Немного не понял Вас, можете подробнее и целиком весь код.....плиз, очень надо!

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

0
1572
KyPIIaToB @KyPIIaToB
Показать текст


Ну и файлы с отбивкой назвать как пологается
12-00.mp3
13-00.mp3
14-00.mp3
и тд.

0
19
Leon @Leon
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;

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

0
6245
Тарас @tarasian666
SoundFX; поменять на deck или как там, но перед проигрыванием остановить обе дэки

нужные "строчки" встречались уже

0
19
Leon @Leon
tarasian666 пишет:

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

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

0
6245
Тарас @tarasian666
P := ActivePlayer;
P.Stop;

както так

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

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

0
17
Денис @INRI666
tarasian666 пишет:

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

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

Отредактировано INRI666 - 24.03.2011
0





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

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