Thread obsoleto script PAl per Sam Broadcaster

[darkhouse]

salve a tutti.
Mi fa piacere conoscere questo forum per la web radio.

Volevo un vostro aiuto, purtroppo col mio notebook HP Pavilion DV6 non riesco ad trasmettere con ZaraRadio a cui siccome è un software totalmente gratuito e davvero eccezionale, sono ritornato ad usare Sam broadcaster a cui il mio aprere è davvero u ottimo software anche se credo che il migliore sia MBStudio.

Ho acquisito alcuni script per SAm molto utili tipo per il segnale orario acnhe se non perfetto (riesco a fargli dire solo le ore e non i minuti a tal proposito se cè qualcuno che sa programmare in PAL script potrei postarvi lo script del segnale orario e magari potreste perfezionarlo), ma il motivo per cui viscrivo è questo, mi servirebbe uno script per cui ogni 4 ore mi farebbe partire una traccia audio mp3.

Se qualcuno sa come si fà potrebbe gentilmente postarmelo?
Grazie.

 

[darkhouse]

be non vi è risposta quindi suppongo che non ci sia modo per fare quello che vorrei fare io

 

[spyzzy87]

Riferimento: script PAl per Sam Broadcaster

QUESTO E LO SCIPT CON IL LINK PER SCARICARTI I FILE PER IL SEGNALE ORARIO per dire in regia il segnale orario file audio--http://helpdesk.xdevel.com/v4/index.php?/Knowledgebase/Article/View/20/0/creare-il-segnale-orario e questo


PAL.Loop := True;
const TimeHours : String = 'c:\ore\'; {percorso dei file ore in mp3}
const TimeMinutes : String = 'c:\oradio\minuti\'; {percordo dei file dei minuti in mp3}
const MyGMTZone : Integer = -5;

var C,N : Integer;
var fname : String;
var fnamehh : String;
var fnamemm : String;
var ampm : String;
//var E : DateTime = Queue.ETA; // Return the length of the queues
var hh,mm,ss,ms : Integer;

DecodeTime(Now,hh,mm,ss,ms);
if (hh = 0) then hh := 24;
if (hh > 24) then hh := (hh-24);
if (mm <= 9) then
WriteLn('The Time Is '+IntToStr(hh)+':'+'0'+IntToStr(mm));
if (mm >= 10) then
WriteLn('The Time Is '+IntToStr(hh)+':'+IntToStr(mm));


Pal.LockExecution;
Queue.Clear;

var E : DateTime = Queue.ETA;

DecodeTime(E,hh,mm,ss,ms);

if (hh = 0) then hh := 24;
if (hh > 24) then hh := (hh-24);
if (hh >0) then
fnamehh := IntToStr(hh)+'.mp3'; //get the right file name
WriteLn(fnamehh);

if (mm <= 9) then
fnamemm := '0'+IntToStr(mm)+'.mp3' //get the right file name
else
fnamemm := IntToStr(mm)+'.mp3'; //get the right file name
WriteLn(fnamemm);

if (mm <= 9) then
WriteLn('Will SayTime at '+IntToStr(hh)+':'+'0'+IntToStr(mm));
if (mm >= 10) then
WriteLn('Will SayTime at '+IntToStr(hh)+':'+IntToStr(mm));
// Just checking

// ends up in queuetop.

Queue.AddFile(TimeMinutes+fnamemm,ipTop);
Queue.AddFile(TimeHours+fnamehh,ipTop);

Cat['Tracks'].QueueBottom(smLRP, NoRules);
{Gave Sam 1 song, gives clockwheel re-fill time,
you may not need it}
Pal.UnlockExecution;

PAL.WaitForPlayCount(12); {You can use anything for a wait time here}

 

[Axel Neiz]

Riferimento: script PAl per Sam Broadcaster

QUESTO E LO SCIPT CON IL LINK PER SCARICARTI I FILE PER IL SEGNALE ORARIO per dire in regia il segnale orario file audio--http://helpdesk.xdevel.com/v4/index.php?/Knowledgebase/Article/View/20/0/creare-il-segnale-orario e questo


PAL.Loop := True;
const TimeHours : String = 'c:\ore\'; {percorso dei file ore in mp3}
const TimeMinutes : String = 'c:\oradio\minuti\'; {percordo dei file dei minuti in mp3}
const MyGMTZone : Integer = -5;

var C,N : Integer;
var fname : String;
var fnamehh : String;
var fnamemm : String;
var ampm : String;
//var E : DateTime = Queue.ETA; // Return the length of the queues
var hh,mm,ss,ms : Integer;

DecodeTime(Now,hh,mm,ss,ms);
if (hh = 0) then hh := 24;
if (hh > 24) then hh := (hh-24);
if (mm <= 9) then
WriteLn('The Time Is '+IntToStr(hh)+':'+'0'+IntToStr(mm));
if (mm >= 10) then
WriteLn('The Time Is '+IntToStr(hh)+':'+IntToStr(mm));


Pal.LockExecution;
Queue.Clear;

var E : DateTime = Queue.ETA;

DecodeTime(E,hh,mm,ss,ms);

if (hh = 0) then hh := 24;
if (hh > 24) then hh := (hh-24);
if (hh >0) then
fnamehh := IntToStr(hh)+'.mp3'; //get the right file name
WriteLn(fnamehh);

if (mm <= 9) then
fnamemm := '0'+IntToStr(mm)+'.mp3' //get the right file name
else
fnamemm := IntToStr(mm)+'.mp3'; //get the right file name
WriteLn(fnamemm);

if (mm <= 9) then
WriteLn('Will SayTime at '+IntToStr(hh)+':'+'0'+IntToStr(mm));
if (mm >= 10) then
WriteLn('Will SayTime at '+IntToStr(hh)+':'+IntToStr(mm));
// Just checking

// ends up in queuetop.

Queue.AddFile(TimeMinutes+fnamemm,ipTop);
Queue.AddFile(TimeHours+fnamehh,ipTop);

Cat['Tracks'].QueueBottom(smLRP, NoRules);
{Gave Sam 1 song, gives clockwheel re-fill time,
you may not need it}
Pal.UnlockExecution;

PAL.WaitForPlayCount(12); {You can use anything for a wait time here}

Questo topic è vecchio di ben due anni.

ATTENZIONE ALLA DATA.
:chiuso: