jingel s via Aux1 Aux2

[radioomega]

hallo..

een vraagje is deze PAL wel oke
wilde deze gebruiken
ga via de Aux1, Aux2,
var
jingleCategory = 'Jingles'; // Replace with your jingle category
jingleVolume = 90; // Adjust jingle volume (0-100)
mainDeckVolume = 70; // Adjust main deck volume while jingle plays (0-100)
jingleDuration = 10; // Adjust jingle duration (seconds)
procedure OnSongStart(song : TSong);
var
jingle : TSong;
jinglePlayer : TPlayer;
begin
// Check if a song just started on Deck A or B
if (ActivePlayer = DeckA) or (ActivePlayer = DeckB) then
begin
// Lower the volume of the main deck
ActivePlayer.Volume := mainDeckVolume;
// Get a jingle from the specified category
jingle := PAL.GetNextSong(jingleCategory);
if Assigned(jingle) then
begin
// Get an available player (Aux1, Aux2, etc.)
jinglePlayer := PAL.GetAvailableAuxPlayer;
if Assigned(jinglePlayer) then
begin
// Load and play the jingle
jinglePlayer.LoadSong(jingle);
jinglePlayer.Volume := jingleVolume;
jinglePlayer.Play;
// Wait for jingle duration
PAL.WaitFor(jingleDuration);
// Eject the jingle and restore main deck volume
jinglePlayer.Eject;
ActivePlayer.Volume := 100;
end;
end;
end;
end;
begin
OnSongStart += OnSongStart;
end.

ga via event scheduler: load