Windows-Media-Stream - PAL Script in SAM

[BaSStii]

Hallo!

Ich habe einen WMA-Stream im SAM 4.9.1, der über ein PAL-Skript gesteuert wird. Sprich mein SAM soll sich sofort mit dem Stream verbinden und Musik abspielen!

So sieht das Skript aus:

var DSL : Integer;
var Modem : Integer;
var I : Integer;
var Fmt : String;
var S : TSongInfo;
var tm : String;
var sStart : String;
var sDay : String;
var stt : String;

DSL := 1;
tm := '+00:00:01';
DeckA.Eject;
DeckB.Eject;
S := Queue.NextInqueue;
DeckA.Queuesong(S);
repeat
PAL.WaitForTime(tm);
if Encoders[DSL].Status = 'Error' then Encoders[DSL].stop;
PAL.WaitForTime('+00:00:01');
if not Encoders[DSL].started then Encoders[DSL].start;
tm := '+00:00:01';
until Encoders[DSL].status = 'Encoding';
begin
DeckA.Play;
end;

Klappt eigentlich auch - jedoch ist bei dem Stream das Problem, dass sich der Encoder verbindet, auch wenn er besetzt ist, und erst dann feststellt, dass er besetzt ist. Das PAL-Skript ist dadurch natürlich gestoppt.

Gibt es eine Möglichkeit, dass das PAL-Skript so lange wiederholt wird, bis eine Verbindung zum Stream mindestens 15 Sekunden ohne Unterbrechung ist? Wie kann ich das umsetzen?

Beim Shoutcast-Stream (an 1. Stelle) funktioniert alles bestens, nur der WMA-Stream (an 2. Stelle) taucht dieses Problem auf.

Liebe Grüße
Basti