Тема: Отбивка часа (Мешает)
Уж не знаю, как правильно сформулировать проблему. В общем у меня на на C:\CLOCK лежат отбивки часов.
Потом скриптом
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:45'); //запускаемся в конце каждого часа. 15 сек - время буферезации, подбираем по свом параметрам, вкусам
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;
Я реализовал возможность ежечасовой отбивки часа. Но почему-то эти отбивки в формате mp3 стали появляться у меня в плейлисте в категории Music (All) и иногда ротация их сама добавляет в Queue. Шозафигня ?:)
Отредактировано Drakkar (14-10-2011 06:11:12)