ActivePlayer.GetSongInfo vernield variabele

[ojee66]

Code: Selecteer alles

var liner_wait : integer;
randomize;
var SongNow : TSongInfo;
PAL.Loop := True;

SongNow := ActivePlayer.Getsonginfo;
if SongNow['songtype'] = 'S' then

begin
  SongNow.free;
  liner_wait := RandomInt(2) + 2;
  writeln(liner_wait);
	 cat['StationId-rsound'].QueueTop(smLRP,NoRules);
		writeln('Queued up StationID');
		PAL.WaitForPlayCount(liner_wait);
  PAL.WaitForTime ('+00:00:05');		
end

Werkt niet bij de WaitForPlayCount...

Als ik de

Code: Selecteer alles

SongNow := ActivePLayer.Getsonginfo

eruit haalt werkt het wel..
Eerst had ik ook de

Code: Selecteer alles

liner_wait := RandomInt(2) + 2;

boven de

Code: Selecteer alles

SongNow := ....

staan , dat werkt dus ook niet..

Raar bugje in SAM???

[Evertje]

Helaas, géén bug.. enkel een beetje onlogisch in elkaar gezet!!


Als je line_wait een random getal wil geven..

Code: Selecteer alles

var line_wait : Integer = RandomInt(2)+2;

..want je gebruikt géén loop tenzij je..

Code: Selecteer alles

PAL.Loop := True

.. als loop meetelt?!


Dan nog de GetSongInfo..

Code: Selecteer alles

SongNow := ActivePlayer.Getsonginfo;

..zonder controle of er wel een ActivePlayer is?!



Én vergeet je prive berichten niet te lezen!!

[ojee66]

Het gaat erom dat in het bovenstaande script hij bij mij niet wacht in de WaitForPlayCount.

Als ik die SongNow regel ertussenuit haalt wacht hij wel netjes

[Evertje]

Dan nog de GetSongInfo..

Code: Selecteer alles

SongNow := ActivePlayer.Getsonginfo;

..zonder controle of er wel een ActivePlayer is?!

Zolang je geen controle doet op de ActivePLayer krijg je bij GetSongInfo ook geen informatie..