sunmixradio Posté(e) 16 décembre 2017 Signaler Share Posté(e) 16 décembre 2017 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 Lien vers le commentaire Partager sur d’autres sites More sharing options...
lorenzo44 Posté(e) 19 décembre 2017 Signaler Share Posté(e) 19 décembre 2017 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 ; Lien vers le commentaire Partager sur d’autres sites More sharing options...
lorenzo44 Posté(e) 19 décembre 2017 Signaler Share Posté(e) 19 décembre 2017 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 Lien vers le commentaire Partager sur d’autres sites More sharing options...
lorenzo44 Posté(e) 19 décembre 2017 Signaler Share Posté(e) 19 décembre 2017 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; Lien vers le commentaire Partager sur d’autres sites More sharing options...
Messages recommandés
Archivé
Ce sujet est désormais archivé et ne peut plus recevoir de nouvelles réponses.