Hallo! Ich wollte mich hier noch mal melden, da es Neuigkeiten in diesem Fall gibt.
Die Titelanzeige ist jetzt so umgesetzt: Ein PHP-Skript liest die Daten der XML-Schnittstelle des
Shoutcast2 D.N.A.S. aus. Diese wird wiederum von VB.net intepretiert und auf ein Label ausgegeben. (Für Shoutcast1-Server soltle es im Allgemeinen ähnlich aufgebaut sein.)
Das PHP-Skript ist wie folgt aufgebaut. Unbedingt das Charset einbinden - sonst schmiert alles wegen der Sonderzeichen ab.
<?php
header("Content-Type: text/plain; charset=utf-8");
$dnasstats = new SimpleXMLElement(file_get_contents("http://admin:PASSWORT@SERVER:PORT/admin.cgi?mode=viewxml&page=1&sid=1"));
if (!isset($dnasstats->SONGTITLE) || strlen($dnasstats->SONGTITLE) === 0) {
echo "Unbekannt";
} else if ($dnasstats->SONGTITLE == "news") {
echo "Radio KIM Nachrichten";
} else {
echo $dnasstats->SONGTITLE;
}
Die "else if"Deklaration ist optional und bei uns für die Einspeisung der News, da diese über keine Metadaten verfügt.
Hat man diese PHP dann beim Webhoster seines Vertrauens hinterlegt, kann man in Visual Basic die Titelinfos wie folgt einbinden:
Private Sub LoadCurrentSong()
Dim Response As HttpWebResponse = Nothing
Dim Reader As StreamReader = Nothing
Try
Dim Request As HttpWebRequest = DirectCast(WebRequest.Create("URL_ZUR_PHP_DATEI"), HttpWebRequest)
Response = DirectCast(Request.GetResponse(), HttpWebResponse)
Reader = New StreamReader(Response.GetResponseStream())
LabelSongPlaying.Text = Reader.ReadToEnd().Replace("&", "&&")
Catch ex As Exception
' Fehler beim Empfangen der Daten werden ignoriert - so funktioniert der Player auch dann noch, wenn der Stream down ist
'MsgBox(ex.ToString, MsgBoxStyle.Exclamation, "Fehler aufgetreten")
LabelSongPlaying.Text = "Unbekannt"
Finally
If Not Response Is Nothing Then Response.Close()
If Not Reader Is Nothing Then Reader.Close()
End Try
End Sub
Desweiteren müssen ein Timer eingebunden und einzelne Elemente deklariert/angepasst werden, damit der Titel geupdatet wird. Wir haben ihn auf 10 Sekunden eingestellt.
Private Sub KIMplayer_Load(sender As Object, e As EventArgs) Handles MyBase.Load
LoadCurrentSong()
End Sub
Private Sub PlayingSongTimer_Tick(sender As Object, e As EventArgs) Handles PlayingSongTimer.Tick
LoadCurrentSong()
End Sub
Private Sub LabelSongPlaying_Click(sender As Object, e As EventArgs) Handles LabelSongPlaying.Click
LoadCurrentSong()
End Sub
Optional - wenn man wie wir 2 verschiedene Streams einbindet
oder ein Stop/Play-Button - sollte man auch dafür sorgen, dass bei der Auswahl ebenfalls der Titel geupdatet wird. Bei uns sind das Link-Labels.
Private Sub LNK192_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LNK192.LinkClicked
AxWindowsMediaPlayer1.URL = "LINK_ZUR_ASX_PLAYLIST"
LoadCurrentSong()
End Sub
Private Sub LNK64_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LNK64.LinkClicked
AxWindowsMediaPlayer1.URL = "LINK_ZUR_ASX_PLAYLIST"
LoadCurrentSong()
End Sub
Das "LoadCurrentSong()" ist ausschlaggebend.
Viel Glück bei der Umsetzung allen, die bis dato das gleiche "Problem" hatten.
