Aller au contenu

Alerte Covid-19 #RestezChezVous

Depuis janvier 2020 une épidémie de Coronavirus COVID-19 (ex 2019-nCoV) s’est propagée en France. Retrouvez toutes les informations officielles sur le site du Gouvernementhttps://www.gouvernement.fr/info-coronavirus. Ne propagez pas de fausses nouvelles.
Et #RestezChezVous

Messages recommandés

Bonjour 
j'utilise Sambroadcaster 4.9.0  pour ma web radio
je recherche 2 script  qui fonctionne et comment le mettre en place 
pour diffusion toutes les heures  de bande annonce  et un 2eme pour diffusion toutes les 30 mnt

Merci pour vos réponses 

Partager ce message


Lien à poster
Partager sur d’autres sites

bonjour, ci joint un script pal pour diffusion toutes les heures.

a toi de jouer ;)

 

1. { Script PAL}

2. function ActivePlayer:TPlayer ; forward ;

3.

4. {heure de diffusion}

5. PAL.WaitForTime ( T [ " XX:00:00" ] ) ;

6.

7. { On ajoute le fichier a etre diffuser toutes les heures }

8. Queue.Addfile ( " c : \ bande annonce. mp3 ou wav " , ipTop )

9. ActivePlayer . FadeToNext ;

10.

11. { on lance le bon deck }

12. function ActivePlayer : TPlayer ;

13. begin

14. if DeckA . Status = psPlaying then

15. Result  : = DeckA

16. else

17. Result  : = DeckB

18. end ;

Modifié par lorenzo44

Partager ce message


Lien à poster
Partager sur d’autres sites

création script pal

1.active le bloc PAL script dans l option menu>windows>pal scripts

2.clique sur le boutton "+" pour ajouter le script

3.entre le chemin ou tu veux sauvegarder le script et coche la case permettant la création du fichier

4.le fichier PAL est crée il faut double cliquer dessus pour lancer l éditeur PAL

5.une fois édité enregistre la configuration en cliquant sur file>save configuration

 

 

voila si tu as des questions n hesite pas ;)

Partager ce message


Lien à poster
Partager sur d’autres sites

voici un script pour toutes les 30 minutes

 

PAL.Loop := true;

PAL.WaitForTime(T['XX:30:00']);            //Attendre 30 pour démarrer le PUB
{# Add files to queue script #}
Cat['PUB'].QueueBottom(smRandom, EnforceRules);
ActivePlayer.FadeToNext;

function ActivePlayer:TPlayer;
begin
if DeckA.Status = psPlaying then
Result := DeckA
else
Result := DeckB;
end;

Partager ce message


Lien à poster
Partager sur d’autres sites

Votre contenu devra être approuvé par un modérateur

Invité
Vous postez un commentaire en tant qu’invité. Si vous avez un compte, merci de vous connecter.
Répondre à ce sujet…

×   Collé en tant que texte enrichi.   Coller en tant que texte brut à la place

  Seulement 75 émoticônes maximum sont autorisées.

×   Votre lien a été automatiquement intégré.   Afficher plutôt comme un lien

×   Votre contenu précédent a été rétabli.   Vider l’éditeur

×   Vous ne pouvez pas directement coller des images. Envoyez-les depuis votre ordinateur ou insérez-les depuis une URL.

Chargement

×