Mittlerweile gibt es tausende Web-Radios und entsprechend viele Programme dazu - Auswahl:
Streaming directory – streams & radios
Radio Web TV Webradio Musik Radiosender Online
Last.fm - Höre kostenlos Musik mit Internetradio und dem größten Musikkatalog online
Radio, Webradio und Online Radio im Internet: radio.de - einfach hören.
usw.
Im Folgenden wird erklärt, wie man seine „Lieblingsradio-Stationen“ über das WebFront abspielt.
- Kategorie „Radio“ anlegen sowie: ein „Dummy Modul“, Skript und Integer Variable mit dem Namen „Volume“ (siehe Bild)
- Skript zur Änderung der Lautstärke (Optionen: Versteckt):
$id_sound = 35352 /*[Audio Video IR\Media Player Teufel]*/;
SetValue(57434 /*[Radio\Volume\Volume]*/ , $IPS_VALUE);
WAC_SetVolume($id_sound, $IPS_VALUE);
wobei „$IPS_VALUE“ den Wert enthält, auf den im WF zwischen 0% und 100% geklickt wurde.
Mit „SetValue“ wird der Wert im WF wieder aktualisiert angezeigt und
„WAC_SetVolume“ ist der eigentliche Befehl zur Änderung der Lautstärke des jeweiligen „Media Player“ Moduls.
Tipp: die %-Angaben beziehen sich auf eingestellte Gesamtlautstärke.
Bei Bedarf kann man hier einen Faktor verwenden: WAC_SetVolume($id_sound, $IPS_VALUE / 2)
3. zuweisen eines Variablen-Profil: „~Volume“ [0-100%, Schrittweite 10], „Eigne Aktion“: o.g. Skript
4. anlegen beliebiger Skripte für die einzelnen Stationen. Die URL bekommt man bei den o.g. Seiten oder man sieht sich die „Link-Eigenschafen“ der jeweiligen „Play“, „Live“, „M2U“ Buttons genauer an…
$id_sound = 35352 /*[Audio Video IR\Media Player Teufel]*/;
WAC_PlayFile($id_sound,"http://lounge-high.rautemusik.fm/listen.pls");
- natürlich darf der Stop-Befehl nicht fehlen:
$id_sound = 35352 /*[Audio Video IR\Media Player Teufel]*/;
WAC_Stop($id_sound);
- zum Schluss die Radio-Stationen nach belieben sortieren: „Objekt einsortieren“
- Tipp: wer möchte kann noch eine String-Variable mit entsprechenden Variablenprofil anlegen und den aktuellen Sender anzeigen.
WAC_PlayFile($id_sound, xxxx
SetValue(18904 /*[Radio\Volume\Station]*/, "SuperTruperStation");
oder besser:
$event = IPS_GetObject($IPS_SELF);
$name = $event['ObjectName'];
SetValue(18904 /*[Radio\Volume\Station]*/, "aktuell: ". $name);
und bei Stop:
$name = GetValue(18904);
$pos = strpos($name, ":");
$name = substr($name, $pos+2, strlen($name));
SetValue(18904 /*[Radio\Volume\Station]*/ , "gestoppt: ". $name);
- Extra-Tipp: möchte man den zuletzt gespielten Sender erneut starten - hier das Skript dazu (es benötigt die o.g. String-Variable!):
$name = GetValue(18904 /*[Radio\Volume\Station]*/);
//echo $name;
$pos = strpos($name, ":");
$name = substr($name, $pos+2, strlen($name));
//echo $name;
$ScriptID = @IPS_GetScriptIDByName($name, 20951 /*[Radio]*/);
if ($ScriptID == 0){
echo "Skript nicht gefunden!";
}else{
//echo "Die Skript-ID lautet: ". $ScriptID;
IPS_RunScript($ScriptID);
}
- Bonus-Tipp: wenn zwischenzeitlich das Media-Player Modul z.B. für Meldungen verwendet wird, kann nachfolgendes Skript hinzugefügt werden um den letzten Radiosender wieder automatisch zu starten.
(Trigger: OnChange > Status > Media Player / es benötigt ebenfalls die o.g. String-Variable!)
// STOP = 3 / Play = 1
$status = GetValue(49899 /*[Audio Video IR\Media Player Teufel\Status]*/ );
if ($status == 3){
$name = GetValue(18904 /*[Radio\Volume\Station]*/);
$pos = strpos($name, "aktuell");
if ($pos !== False){
$volume = GetValue(57434 /*[Radio\Volume\Volume]*/);
$id_sound = 35352 /*[Audio Video IR\Media Player Teufel]*/;
WAC_SetVolume($id_sound, $volume/2);
IPS_RunScript(53032 /*[Radio\Volume\letzter Sender erneut]*/ );
}
}
[b]SWF - Film[/b]
MST