Скрипты PAL для Sam Broadcaster (Страница 19 из 21)

var P : TPlayer;
var OldTime : DateTime;
OldTime := Now;
PAL.Loop:= True; // Скрипт будет выполнятся постоянно
// ------------- насторить секунды для точного запуска (интервал не более 30 сек.)
if (now >= T['19:59:16']) and (now <= T['19:59:46']) and // запуск в 20:00 вечера
((DayOfWeek(Now) = Sunday)) then // запускается только в воскресенье 
    begin
// -----------------------------------------------------------------------------
Queue.AddFile('C:\hiparad\end-voice.mp3',ipTop); // голос ведущего о завершении Хит-парада
// -----------------------------------------------------------------------------
var D : TDataSet;
var C : Integer;
D := Query('SELECT songlist.*, count(*) as cnt '+
              'FROM songlist,requestlist '+
              'WHERE songlist.ID = requestlist.songID '+
              '      AND requestlist.code < 700 '+
              'GROUP BY songlist.ID '+
              'ORDER BY cnt DESC LIMIT 10',[],True); // лимит 10 треков
// ставим в очередь на воспроизведение с 10 трека по 1
C := 0;
D.First;
while not D.EOF do
begin
C := C + 1;
WriteLn('#'+IntToStr(C)+'. '+D['artist']+' - '+D['title']);
Queue.AddFile(D['filename'],ipTop);
D.Next;
// ----------------------------------------------------------------- (7-8 сек. фоновый джингл - Желательно из ударных инструментов)
Queue.AddFile('C:\hiparad\silent-jingl.mp3',ipTop); //  джингл - для красивого эффекта перехода от трека к треку
end;
Queue.AddFile('C:\hiparad\start-voice.mp3',ipTop); // голос ведущего о начале Хит-парада
// -----------------------------------------------------------------------------
PAL.WaitForTime(T['+00:01:00']); // задержка 1 мин. от повторного запуска
end;

var P    : TPlayer;
var Song : TSongInfo;
var strFile, strPath, strJingle : String;

strPath := 'd:\Music MP3\iradio\Zastavki\'; // Путь к папке, где лежат отбивки часов
strJingle := 'd:\Music MP3\iradio\Zastavki\tchas_otbivka.mp3'; //Путь и название джингла после отбивки часов

PAL.Loop := True;

P := SoundFX; // Проигрывание файлов **-00.mp3 через SoundFX, а не через деки.

PAL.WaitForTime('XX:59:15'); //запускаемся в конце каждого часа. 45 сек - время буферезации, подбираем по свом параметрам, вкусам

//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;

{Важно! Настроить запуск скрипта в Планировщике на 10 сек. раньше чем указано здесь!}
var P    : TPlayer;
var Song : TSongInfo;
var strFile, strPath, strJingle : String;
{------------------------------------------------------------------------------}
strPath := 'C:\CLOCK\'; // Путь к папке, где лежат отбивки часов
strJingle := 'C:\CLOCK\start_hour.mp3'; // Путь и название джингла после отбивки часов
{------------------------------------------------------------------------------}
PAL.Loop := False; // Одноразовый цикл работы (потому, что используем Планировщик)
{------------------------------------------------------------------------------}
PAL.WaitForTime('XX:59:15'); // Запускаемся в конце каждого часа.
{------------------------------------------------------------------------------}
{--}ActivePlayer.FadeToPause; // Ставим активный плеер на паузу
{------------------------------------------------------------------------------}
{--Определяем название файла с нужными часиками. Формат имени файла XX-XX.mp3--}
strFile := strPath + FormatDateTime('hh', now+1/24) + '-00.mp3';
{------------------------------------------------------------------------------}
P := Aux1; // через что играть
if P <> nil then
begin
{--}Queue.AddFile(strJingle, ipTop);
{--}Queue.AddFile(strFile, ipTop);
{--}Aux1.QueueSong(Queue.NextInQueue);
{--}Aux1.Play;
end;
{------------------------------------------------------------------------------}
{--}PAL.WaitForTime('+00:00:22'); // 10-22 сек. настроить задержку под длину джингла
{------------------------------------------------------------------------------}
{--Включение трека в ожидании, через DeckA или DeckB--}
{--}DeckA.FadeToPlay; // плавное воспроизведение DeckA
{--}DeckB.FadeToPlay; // плавное воспроизведение DeckB
{------------------------------------------------------------------------------}
{После выполнения, скрипт останавливается до последующего запуска через Планировщик}

strPath := 'd:\Music MP3\iradio\Zastavki\'; // Путь к папке, где лежат отбивки часов
strJingle := 'd:\Music MP3\iradio\Zastavki\tchas_otbivka.mp3'; //Путь и название джингла после отбивки часов

PAL.Loop := True;

P := SoundFX; // Проигрывание файлов **-00.mp3 через SoundFX, а не через деки.

PAL.WaitForTime('XX:59:15'); //запускаемся в конце каждого часа. 45 сек - время буферезации, подбираем по свом параметрам, вкусам

//strFile := strPath + FormatDateTime('hh', now+1/24) + '-00.mp3'; //определяем название файла с нужными часиками. Формат имени файла XX-XX.mp3

P := Aux1;
if P <> nil then
begin

if (now >= T['19:59:00'])  and // запуск в 20:00 вечера
((DayOfWeek(Now) = Friday)) then PAL.WaitForTime(T['+02:00:00']); // задержка 2 часа от повторного запуска

// ----------------------------------------------------------------- (7-8 сек. фоновый джингл - Желательно из ударных инструментов)
Queue.AddFile('C:\hiparad\silent-jingl.mp3',ipTop); //  джингл - для красивого эффекта перехода от трека к треку
end;

var Song : TSongInfo; // для функции выключателя по типу S
const Filesongtitle = 'C:\www\htdocs\samPHPweb\recordsms.txt'; // Путь к  текстовому файлу
var UpdSong : TSongInfo;
var Banners : TStringList;
var LinePos : Integer;
{------------------------------------------------------------------------------}
var P : TPlayer;
var URL : String;
// эту строчку пока отключаем
//URL := 'http://192.168.0.02/samPHPweb/recordsms.php'; // Путь к файлу PHP
{------------------------------------------------------------------------------}
PAL.Loop := True;
PAL.WaitForPlayCount(1); // запуск скрипта после завершения очередного трека
PAL.WaitForTime(T['+00:00:01']); // 1-3 сек. задержка выполнения
{------------------------------------------------------------------------------}
{функция выключателя сценария по типу S}
if ActivePlayer <> nil then
begin
  Song := ActivePlayer.GetSongInfo();
  if Song['songtype'] = 'S' then
    begin // начало выполнения сценария
{------------------------------------------------------------------------------}
{-- загрузка URL страницы (PHP скрипта) для записи в текстовый файл --}
P := SoundFX; // через что играть
if P <> nil then
begin
{--}Queue.AddFile(URL, ipTop);
{--}SoundFX.QueueSong(Queue.NextInQueue);
{--}SoundFX.Play; // Воспроизведение через Aux1 или SoundFX
end;
{------------------------------------------------------------------------------}
end;
end; // конец выполнения сценария
{------------------------------------------------------------------------------}
// второй сценарий
PAL.WaitForTime(T['+00:00:06']); // 6-7 сек. задержка выполнения
{функция выключателя сценария по типу S}
if ActivePlayer <> nil then
begin
  Song := ActivePlayer.GetSongInfo();
  if Song['songtype'] = 'S' then
    begin // начало выполнения сценария
{------------------------------------------------------------------------------}
// создаём вывод баннера в эфир
{--}UpdSong := TSongInfo.Create;
{--}Banners := TStringList.Create;
{------------------------------------------------------------------------------}
{-- загрузка текстового файла --}
{--}if FileExists(Filesongtitle) then // чтение
{--}Banners.LoadFromFile(Filesongtitle); // загрузка
{--}UpdSong['title'] := Banners[LinePos]; // текст из файла
{--}Encoders.SongChange(UpdSong); // вывод через радио-поток
{------------------------------------------------------------------------------}
end;
end; // конец выполнения сценария
{------------------------------------------------------------------------------}
Banners.Free; // Очистить информацию после кодирования
UpdSong.Free; // Очистить информацию после кодирования
{------------------------------------------------------------------------------}

var Song : TSongInfo;
PAL.Loop := True;
Queue.AddFile('C:\jingl.mp3',ipTop); // путь до джингла
Song := CAT['CAT (New)'].ChooseSong(smRandom,NoRules);
Queue.Add(song,ipTop);
PAL.WaitForTime('+00:20:00'); //ожидаем до повтора