Jingle inladen in aux 1....

[dj-joris]

Hoi!

Is het mogelijk om op de overgang van een liedje een jingle te laten horen erdoorheen zegmaar?
En dan het liefst op aux 1...

Ik had wel deze code om elke minuut een jingle naar aux 1 te sturen...

Code: Selecteer alles

PAL.loop := true;
//Returns the player object for the SoundFX player
//play ids
var theaj : TSongInfo;

theaj := CAT['Jingles non-stop'].ChooseSong(smRandom,NoRules);
Aux1.QueueSong(theaj);
// Wait for 01 minutes
PAL.WaitForTime('+00:01:00');

Maar daar heb ik dus niks aan....
Heeft iemand een PAL script? of iets anders?


Tnx!

Gr. Joris!

[Wout]

Dus tussen 2 plaatjes in, terwijl de ene uitfade en de andere begint, wil je daar overheen een jingle?
Of nummer-jingle-nummer.

[dj-joris]

tussen 2 plaatjes in, terwijl de ene uitfade en de andere begint, daar overheen een jingle

[dj-joris]

Iemand? :axe:

[dj-joris]

Helemaal niemand? Daar word ik van!

[Borg]

Pluk een :weedman: zet hem op je :wayne: en je voelt je morgen weer

:löl:

Ik zou ook niet weten hoe je dat voor elkaar krijgt..ben trouwens benieuwd
of dat wel lekker klinkt wat jij wilt. Waarom niet gewoon een jingle mooi in
en uit faden ?


Jos

[dj-joris]

Pluk een :weedman: zet hem op je :wayne: en je voelt je morgen weer

:löl:

Ik zou ook niet weten hoe je dat voor elkaar krijgt..ben trouwens benieuwd
of dat wel lekker klinkt wat jij wilt. Waarom niet gewoon een jingle mooi in
en uit faden ?


Jos

Ook goed! weet iemand daar een PAL voor?

[Borg]

Moet je even uitleggen hoe je nu draait, je kan b.v. met een PAL een jingle inladen in je queue wanneer jij maar wilt.
Dan is het alleen van belang dat als je echt een strakke start wilt hebben je als eerste je gapkiller en je crossfading instellingen optimaliseert, hierdoor krijg mooie overgangen.
Daarnaast kun je per jingle instellen waar de plaat moet starten.
Deze instellingen kun je opslaan echter is het wel zo voor zover ik weet dat als je de track verwijderd en opnieuw toevoegt de instellingen weg zijn.

Wat ikzelf ook wel ervaar is dat als de soundprosessing goed is de overgangen ook beter klinken.


Jos

[dj-joris]

Moet je even uitleggen hoe je nu draait, je kan b.v. met een PAL een jingle inladen in je queue wanneer jij maar wilt.
Dan is het alleen van belang dat als je echt een strakke start wilt hebben je als eerste je gapkiller en je crossfading instellingen optimaliseert, hierdoor krijg mooie overgangen.
Daarnaast kun je per jingle instellen waar de plaat moet starten.
Deze instellingen kun je opslaan echter is het wel zo voor zover ik weet dat als je de track verwijderd en opnieuw toevoegt de instellingen weg zijn.

Wat ikzelf ook wel ervaar is dat als de soundprosessing goed is de overgangen ook beter klinken.


Jos

Waar kan je dat instellen/aanpassen?

[Wout]

Waar kan je dat instellen/aanpassen?

Hier sta wat voorbeelden van goede setting en instellingen.
http://wout.broadcasterforum.nl/SAM%20instellen.pdf

[ojee66]

Wil je echt een jingle eroverheen???

Probeer dan deze eens

Code: Selecteer alles

var Song3, Song4, Promo : TSongInfo;

Promo := CAT['StationPromo'].ChooseSong(smRandom,NoRules);
var Volume2 : integer;
var Waiting2 : Boolean = True;
PAL.Loop := True;

Song3 := ActivePlayer.GetSongInfo;
Song4 := QueuedPlayer.GetSongInfo;

   if ((Song3['songtype']='S') AND (Song4['songtype']='S')) then
   
begin
if (ActivePlayer.Duration>0) AND ((ActivePlayer.Duration-ActivePlayer.CurTime)<60000) then

begin

PAL.LockExecution;
Aux1.Eject;
// Get the volume of one of the decks, assuming they are the same
Volume2 := DeckA.GetVolume;

// Reduce the player volumes in order to cover also transitions
DeckA.Volume := Volume2 / 6;
DeckB.Volume := Volume2 / 6;


Aux2.Volume := 260;
Aux2.QueueSong(Promo);
Aux2.Play;
Waiting2 := false;



// Set the player volumes back to normal
DeckA.Volume := Volume2;
DeckB.Volume := Volume2;


Song3.Free; Song3 := nil;
Song4.Free; Song4 := nil;

PAL.UnLockExecution;
 end;

 PAL.WaitForPlayCount(3);

end

Deze kijkt niet naar je intro of uit tro. Dus hij kan soms over de zang heen gaan.

[GerberaRadio]

Hallo, Kan je deze pall ook automatisch laten stoppen en weer aan zetten. of liever gezegd kan je de pall combineren met:

Code: Selecteer alles

    var D : DateTime;
    D := T['XX:50:00'];  //de tijd waarmee hij er mee stopt.
    WriteLn(D); //da`s een test voor de output

    repeat
     PAL.WaitForPlayCount(4); //na 4 nummers 1 jingle blijft doorgaan tot hij de stop-tijd krijgt
    if Now < D then
      Cat['Gerbera-Jingles'].QueueTop(smLRP, NoRules);
    until Now > D;

    PAL.WaitForTime(T['XX:`17:00']);  //wacht tot XX:03 en daarna begint ie weer van voor af aan

Alvast bedankt voor de hulp

[drOhimself]

Een PAL-script kun je niet laten stoppen of starten IN een PAL.
Je kunt een PAL eenmalig laten lopen, dan mag er geen 'PAL.Loop := True;' bovenaan staan.
Het enige wat je kunt doen is het testen op een waarde van een variable, zodat de PAL iets, of juist niets doet.
Voorwaarde is vaak, dat je die regel (PAL.Loop := True;) erin houdt.

[roy1986]

is dit ook mogelijk met het direct aan spreken van een mp3 via
C:\**\**\**\*.mp3

[drOhimself]

Ik zal even een stukje uit de SAM-bijble hierover citeren :

Some warnings about PAL scripting
PAL scripting is a powerful programming language. With this power comes a lot of responsibility.
Incorrectly written PAL scripts can have many bad side effects, those include:
1. Cause SAM to lock up/freeze.
2. Cause exception errors in SAM, affecting the stability in SAM.
3. Although PAL does automatic garbage collection on script restart, it is possible to write scripts that consume all available memory if memory allocation is done in long-running loops.
4. PAL gives you direct access to your SQL database. It is possible to use SQL queries to completely erase or destroy the database and data integrity.
5. PAL gives you the power to work with files on your local hard disk and network. PAL can be used to delete or modify files.


2.1.1 Importing or exporting files to/from the media library

Importing
You can add files to either a category or directly to the queue using various PAL commands.
A few examples:
CAT['MyCategory'].AddDir(‘c:\music\’, ipBottom);
CAT['MyCategory'].AddFile(‘c:\music\test.mp3’, ipBottom);
CAT['MyCategory'].AddList(‘c:\music\playlist.m3u’, ipBottom);
CAT['MyCategory'].AddURL(‘http://localhost:8000/test.mp3’, ipBottom);

The same commands can also be used for adding files to the queue
Queue.AddDir(‘c:\music\’, ipBottom);
Queue.AddFile(‘c:\music\test.mp3’, ipBottom);
Queue.AddList(‘c:\music\playlist.m3u’, ipBottom);
Queue.AddURL(‘http://localhost:8000/test.mp3’, ipBottom);