Вообще скрипт настроен на среду у тебя.. Ты его только в среду гоняешь? )
Я так понимаю вот такой вариант тебе нужен
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( mytime >= start_time) and (mytime <= end_time) Then
begin
Queue.AddFile('C:\CLOCK\non_slip.mp3',ipTop);
cat['Station IDs (All)'].QueueTop(smRandom,NoRules);
PAL.WaitForTime(T['+00:01:00']);
end;
Тебе вообще что нужно? просто ночью через определенное время джингл чтоб играл?
Если просто тупо джингл то пробуй проще так)
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;
Отпишешься помогло или нет.
PAL.WaitForTime(T['+00:20:00']); Тут пауза, нужное сам поставишь.
Queue.AddFile('C:\CLOCK\non_slip.mp3',ipTop); а это путь к твоему джинглу
Отредактировано KyPIIaToB (06-12-2011 16:14:16)
В здоровом теле - здоровый дух!