waitfortime duration

[superpeter]

Hallo allemaal

Ik heb in sam een aantal scripts staan.
In een paar van die scripts wil ik dat hij met de uitvoer gaat wagten tot dat het liedje is af gelopen
Hiervoor heb ik het volgende script gemaakt.

Code: Selecteer alles

begin
    var Song : TSongInfo;
Song := DeckA.GetSongInfo;
if Song = nil then

Song := DeckB.GetSongInfo;


 begin
 WriteLn('Artist: '+Song['artist']);
 WriteLn('Title: '+Song['title']);
 WriteLn('Album: '+Song['album']);
 WriteLn('Duration: '+Song['duration']);
PAL.WaitForTime(T['+ Duration']);

end;

echter hij wacht niet lang genoeg.
Vermoedelijk zit het probleem in het fijt dat de song duration in milliseconden is of zo
En de waitfortime een aantal uren minuten seconden wacht.
Graag oor ik of iemand me kan zegen hoe ik zorg dat sam netjes wacht tot dat de plaat af ge lopen is al vorens verder te gaan met het script.
Hopelijk kan iemand me verder helpen

Groeten: peter

[superpeter]

deze mag op slot of weg heb het al opgelost

[drOhimself]

Graag dan nog even de oplossing erbij.

[superpeter]

niet zo moeilik
zet op de plek waar hij moet gaan wagten tot het einde van het nummer neer:

PAL.WaitForPlayCount(1)

en dan wagt hij heel braaf tot het nummer is af ge lopen en gaat dan weer verder

[drOhimself]

Bedankt voor de uitleg !