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

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

не стал я запариваться особо, накидал побырому.

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

PAL.Loop := True;

i := ActivePlayer.GetVolume;

P := SoundFX;

strPath := 'E:\CLOCK\'; //путь к папке с отбивкой

PAL.WaitForTime('XX:59:15'); //запускаемся в конце каждого часа

strFile := strPath + FormatDateTime('hh', now+1/24) + '-00.mp3';
Queue.AddFile(strFile, ipTop);
Song := Queue.NextInQueue;
P.QueueSong(Song);

ActivePlayer.Volume := i - 40;
ActivePlayer.Volume := i - 80;
ActivePlayer.Volume := i - 120;
ActivePlayer.Volume := i - 160;

P.Play;
PAL.WaitForTime('+00:00:03');

ActivePlayer.Volume := i - 160;
ActivePlayer.Volume := i - 120;
ActivePlayer.Volume := i - 80;
ActivePlayer.Volume := i - 40;
ActivePlayer.Volume := i;

Кто сможет получше сделать выкладывайте.

пишет KyPIIaToB:

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

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;

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

Вопрос, как теперь сделать чтобы музыка перед отбивкой часа останавливалась?

пишет KyPIIaToB:

ActivePlayer.Stop;

это где надо добавить?

пишет KyPIIaToB:

ActivePlayer.FadeToPause;

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

пишет KyPIIaToB:

ActivePlayer.Pause;

на радио NRJ так...)

пишет KyPIIaToB:

отбивку тоже от туда взял? xD

экстрасенс прям))) NRJ Волгоград

ты

пишет KyPIIaToB:

пишет Artem34:

экстрасенс прям))) NRJ Волгоград

Не стыдно тырить чужие заготовки то?

Ты не то подумал... я RJ в Волгограде NRJ

Всем доброго времени суток!

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

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

PAL.Loop := True;

i := ActivePlayer.GetVolume;

P := SoundFX;

strPath := 'D:\CLOCK\'; //путь к папке с отбивкой

PAL.WaitForTime('XX:59:54'); //запускаемся в конце каждого часа

strFile := strPath + FormatDateTime('hh', now+1/24) + '-00.mp3';
Queue.AddFile(strFile, ipTop);
Song := Queue.NextInQueue;
P.QueueSong(Song);

ActivePlayer.FadeToPause;
P.Play;
PAL.WaitForTime('+00:00:10');
ActivePlayer.FadeToNext;

Отредактировано Maksimum (23-12-2011 04:19:49)