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

11.11.2011

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

14.11.2011

По поводу ежечасовой отбивки. НЕ нужно, чтоб она накладывалась поверх играющего трэка. Надо, чтоб играющий трэк в 00 минут сводился, запускалась отбивка, за ней джингл. И начинался новый трэк.
С этой задачей справляется этот скрипт:

1. var P : TPlayer;
2. var Song : TSongInfo;
3. var strFile, strPath, strJingle : String;
5. strPath := 'C:\CLOCK\'; // Путь к папке, где лежат отбивки часов
6. strJingle := 'C:\CLOCK\start_hour.mp3'; //Путь и название джингла после отбивки часов
8. PAL.Loop := True;
10. PAL.WaitForTime('XX:59:45'); //запускаемся в конце каждого часа. 15 сек - время буферезации, подбираем по свом параметрам, вкусам
12. strFile := strPath + FormatDateTime('hh', now+1/24) + '-00.mp3'; //определяем название файла с нужными часиками. Формат имени файла XX-XX.mp3
14. P := Aux1;
15. if P <> nil then
16. begin
18. Queue.AddFile(strJingle, ipTop);
19. Queue.AddFile(strFile, ipTop);
23. P := ActivePlayer;
24. if P <> nil then P.FadeToNext;
27. end;

Но Тов. KyPIIaToB сказал, что он кривой. (Что верно: он добавляет отбивки в категорию Music ALL, и на форме заказа песни они есть. Их каждый может заказать, как простую песню. Ужас какой)

16.11.2011

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