Event Shellduler

Он просто запускает скрипт в заданное время
Значит в скрипте у тебя стоит многократное выполнение PAL.Loop := True;

Отредактировано KyPIIaToB (30-11-2011 09:21:04)

Иными словами если мне нужно, чтоб скрипт трудился ежедневно только в период с 23-30 до 07-30, то я делаю его таким:

PAL.Loop := True;
var mytime : DateTime = now;
var I : Integer;
var start_time, end_time : DateTime;
start_time := date + EncodeTime(23,30,00,0);
end_time := date + EncodeTime(07,30,00,0);
if DayOfWeek(Now) = Wednessday then
begin
      if( mytime >= start_time) and (mytime <= end_time) Then
            begin
                WriteLn('Canvas Prog Hour!');
       Queue.AddFile('C:\CLOCK\non_slip.mp3',ipTop);
       cat['Station IDs (All)'].QueueTop(smRandom,NoRules);
       PAL.WaitForTime(T['+00:01:00']);
            end;
end;

Соответственно сама ночная отбивка в формате non_slip.mp3 должна находится в категории Station IDs (All)
И В принципе мне уже не нужен Event Shellduler.

Только каким образом в этом скрипте будет задаваться частота проигрывания джингла с 23-30 до 07-30 ?

Отредактировано Drakkar (01-12-2011 10:18:11)

Коряво слепил скрипт ))) Лишь бы ка кто работало )))

Протестировал скрипт

PAL.Loop := True;
var mytime : DateTime = now;
var I : Integer;
var start_time, end_time : DateTime;
start_time := date + EncodeTime(23,30,00,0);
end_time := date + EncodeTime(07,30,00,0);
if DayOfWeek(Now) = Wednessday then
begin
      if( mytime >= start_time) and (mytime <= end_time) Then
            begin
                WriteLn('Canvas Prog Hour!');
       Queue.AddFile('C:\CLOCK\non_slip.mp3',ipTop);
       cat['Station IDs (All)'].QueueTop(smRandom,NoRules);
       PAL.WaitForTime(T['+00:01:00']);
            end;
end;

показывает ошибку компиляции на строке start_time := date + EncodeTime(23,30,00,0);
я уже переделывал эту строку на              start_time := date + EncodeTime['23,30,00'];
но ничего не помогло. чувствую, что делаю что то не то. помогите. Он мне нужен для запуска джингла с 23.30 до 07.30 утра

KyPIIaToB: Да, мне нужно, чтоб ночью через определённое время играл джингл.
Я протестировал твой скрипт:

PAL.Loop := True;
if (now >= T['23:30:00']) and (now <= T['7:30:00']) Then
            begin
       Queue.AddFile('C:\CLOCK\non_slip.mp3',ipTop);
       PAL.WaitForTime(T['+00:20:00']);
            end;

Не работает
Он у меня должен начать играть ежедневно с 23-30 до 07-30 утра раз в 20 минут например (как указано в скрипте).
Запустил его, но он не сработал в 23-30. В строке скриптов он показывает running, хотя остальные другие скрипты пишут Waiting fo time (Это я про окошко Pal scripts)
А если в этом окошке два раза кликнуть по скрипту, то в открывшемся окошке Pal Scripting IDE выделяется сначала первая, затем вторая строчка.... затем по новой. И ничего не происходит.
Ведь скрипт должен проигрываться поверх песен?

Отредактировано Drakkar (07-12-2011 15:23:45)

пишет tarasian666:

пишет Drakkar:

выделяется сначала первая, затем вторая строчка.... затем по новой.

значит now не равно или больше чем  T['23:30:00']) и не равно или меьше чем T['7:30:00']

Брр, 5 раз перечитал, повис вконец )))) Вобщем не понял, что делать нуна.

Ребята, у него же не описана переменная now
PAL.Loop := True;
var now : DateTime;
if (now >= T['23:30:00']) and (now <= T['7:30:00']) Then
            begin
       Queue.AddFile('C:\CLOCK\non_slip.mp3',ipTop);
       PAL.WaitForTime(T['+00:20:00']);
            end;

Вот так должно по идее сработать

RadioHeart.ru: Функциональный радио хостинг с автодиджеем и нонстопом, а так же быстрый виртуальный хостинг. Возможность создать радио за 5 минут, подключить автодиджей и нонстоп.
Отзывы о хостинге

пишет KyPIIaToB:

Не, на самом деле ошибка в and была

PAL.Loop := True;
var now : DateTime;
if (now >= T['23:30:00']) or (now <= T['7:30:00']) Then
            begin
       Queue.AddFile('C:\CLOCK\non_slip.mp3',ipTop);
       PAL.WaitForTime(T['+00:20:00']);
            end;

Вот так должно робить

Эмм..как бы нет. Там надо именно AND, чтобы выполнялись оба условия. OR не подходит

RadioHeart.ru: Функциональный радио хостинг с автодиджеем и нонстопом, а так же быстрый виртуальный хостинг. Возможность создать радио за 5 минут, подключить автодиджей и нонстоп.
Отзывы о хостинге

если or то условие будет выполняться всегда, в любое время

ну впринципе если оно 22.00 прошлого дня не считает меньше чем 10.30 нынешнего - тогда понятно )
(ну или 22.00 сечас не считает меньше чем 10.30 завтра )

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

Скажу проще, лично мне он не нужен, сделал без долго тестировал, у меня было все ок )
Дальше сам разберешься если будет нужно)
Могу постараться сделать рабочий 100%,лично его протестирую у себя за 10$ )