Multi Stream Check (DJ Overname)

Voor vragen over Playlist Automation Language.
Plaats reactie
Silvertop
**
Berichten: 30
Lid geworden op: 20 apr 2010, 09:32
SAM-versie: 4.9.2.*
Database: FireBird
Windows: 7 32-bits
Locatie: Dedemsvaart
Contacteer:

Multi Stream Check (DJ Overname)

Ongelezen bericht door Silvertop » 03 jul 2017, 20:41

Hallo ik allemaal,

Ik gebruik een script voor multi stream check dJ overname, dat als de static relay online is dat dan de url in de que wordt geplaatst.
Maar nu mijn vraag, als een dj uitschakelt dus de static relay is offline hoe kan het dan dat het even duurt voor de volgende mp3 uit que weer gepakt wordt want eerst krijg je een soort van buffer volgens mij?

Alvast bedankt.
Harry

Gebruikersavatar
drOhimself
Moderator
Berichten: 2941
Lid geworden op: 27 mar 2010, 11:44
SAM-versie: SAM 2014.7
Database: MySQL 5.0
Windows: 2000

Re: Multi Stream Check (DJ Overname)

Ongelezen bericht door drOhimself » 03 jul 2017, 23:38

Graag script hier plaatsen zodat we weten hoe het werkt.


Verzonden vanaf mijn iPhone met Tapatalk
Groedjez,
drO

Silvertop
**
Berichten: 30
Lid geworden op: 20 apr 2010, 09:32
SAM-versie: 4.9.2.*
Database: FireBird
Windows: 7 32-bits
Locatie: Dedemsvaart
Contacteer:

Re: Multi Stream Check (DJ Overname)

Ongelezen bericht door Silvertop » 12 jul 2017, 21:41

Code: Selecteer alles

pal.Loop:=True;
var I : Integer;
var SongA : TsongInfo;
SongA := Activeplayer.GetSonginfo();
PAL.LockExecution;
I := 2 ; //  Statistics Relay nummer (2) -1 (min één) !!!!
begin;
    WriteStr('Relay number '); WriteLn(I);
    WriteStr('--Active: '); WriteLn(Relays[I].Active);
//    WriteStr('--Status: '); WriteLn(Relays[I].Status);
  end;
PAL.UnlockExecution;
If Relays[I].Active = False or (SongA['songtype'] = 'C') then
//do nothing
Else
Queue.AddFile('http://192.168.2.7:8264',ipTop); // IP + poort van stream die gestart moet worden.
ActivePlayer.FadeToNext;
PAL.WaitForPlayCount(1);  // PAL script was soms te snel waardoor stream soms 2x in queue stond. 5 sec pauze dus.
If Relays[I].Active = False or (SongA['songtype'] = 'C') then
//do nothing
Else
If Relays[I].Active = False or (SongA['songtype'] = 'C') then
//do nothing
Else
PAL.WaitForPlayCount(1);  // Stream is aan het spelen !!! Wacht tot stream stopt ...
SongA.Free;
PAL.WaitForTime(T['+00:00:01']); // 25 seconden pauze voor volgende stream check
Pal.LockExecution;
Laatst gewijzigd door drOhimself op 13 jul 2017, 21:29, 1 keer totaal gewijzigd.
Reden: Code tussen [CODE] geplaatst

Silvertop
**
Berichten: 30
Lid geworden op: 20 apr 2010, 09:32
SAM-versie: 4.9.2.*
Database: FireBird
Windows: 7 32-bits
Locatie: Dedemsvaart
Contacteer:

Re: Multi Stream Check (DJ Overname)

Ongelezen bericht door Silvertop » 13 jul 2017, 18:25

Iemand een idee?

Graag reactie want ik wacht hier met smart op.
Alvast vriendelijk bedankt.

Gebruikersavatar
drOhimself
Moderator
Berichten: 2941
Lid geworden op: 27 mar 2010, 11:44
SAM-versie: SAM 2014.7
Database: MySQL 5.0
Windows: 2000

Re: Multi Stream Check (DJ Overname)

Ongelezen bericht door drOhimself » 13 jul 2017, 21:30

Silvertop schreef:Graag reactie want ik wacht hier met smart op.
We moesten anders 10 dagen wachten op je script ! :-D :-D
Groedjez,
drO

Gebruikersavatar
drOhimself
Moderator
Berichten: 2941
Lid geworden op: 27 mar 2010, 11:44
SAM-versie: SAM 2014.7
Database: MySQL 5.0
Windows: 2000

Re: Multi Stream Check (DJ Overname)

Ongelezen bericht door drOhimself » 13 jul 2017, 21:37

PAL.WaitForPlayCount(1); // PAL script was soms te snel waardoor stream soms 2x in queue stond. 5 sec pauze dus.

Of de opdracht is fout, of de omschrijving is fout !
"WaitForPlayCount" is echt niet hetzelfde als 5 seconden pauze.

PAL.WaitForTime(T['+00:00:01']); // 25 seconden pauze voor volgende stream check

Hier zelfde fout; WaitForTime(T['+00:00:01'] is maar 1 seconde en geen 25 seconden.
Groedjez,
drO

Plaats reactie
  • Vergelijkbare Onderwerpen
    Reacties
    Weergaves
    Laatste bericht