Помогите с написанием одного скрипта

11.11.2011

Я протестировал этот скрипт по разному и "оригинальный" без - 200. Иногда ползунок возвращается обратно, иногда нет. И эфир глохнет.... Жаль, конечно.

14.11.2011

По поводу ежечасовой отбивки. НЕ нужно, чтоб она накладывалась поверх играющего трэка. Надо, чтоб играющий трэк в 00 минут сводился, запускалась отбивка, за ней джингл. И начинался новый трэк.
С этой задачей справляется этот скрипт:
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;
Но Тов. KyPIIaToB сказал, что он кривой. (Что верно: он добавляет отбивки в категорию Music ALL, и на форме заказа песни они есть. Их каждый может заказать, как простую песню. Ужас какой)

16.11.2011

Капец. Поиски ни к чему не привели. Убрал короче ежечасовую отбивку вообще. Блин 3 штуки на звукозаписывающей студии отдал за неё и 3 джингла. И все за зря)))))