1

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

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


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;


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

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

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

2

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

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

3

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

пишет tarasian666:

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

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

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

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

4

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

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

5

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

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

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

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

6

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

пишет 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)

7

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

а если так strFile := strPath + "название файла"  ?

8

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

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


var mySong : TSongInfo;

PAL.Loop := True;

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

9

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

пишет 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;

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

10

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

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

Показать / Cкрыть текст
и того что у вас в папке

11

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

пишет tarasian666:

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

    Спойлер:

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

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

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

12

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

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

13

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

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

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

В здоровом теле - здоровый дух!

14

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

пишет 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;

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

15

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

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

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

16

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

пишет tarasian666:

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

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

17

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

P := ActivePlayer;
P.Stop;

както так

18

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

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

igne natura renovatur integra

19

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

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

20

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

пишет tarasian666:

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

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

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

igne natura renovatur integra

21

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

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

22

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

пишет tarasian666:

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

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

igne natura renovatur integra

23

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

вы о playlist rotation rules ?

24

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

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

Первое Велосипедное радио
http://46.4.209.149:8002/veloradio.m3u MP3 192 kb/s 44Khz Stereo
http://46.4.209.149:8002/veloradio2.m3u MP3 48 kb/s 22Khz Stereo

25

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

Каждый трек, любой звук, можно редактировать отдельно в САМе, т.е. индивидуально каждому и фейд свой и все что умеет САМ.

В здоровом теле - здоровый дух!