Radio Song der gerade läuft
- VB.NET
Es gibt 16 Antworten in diesem Thema. Der letzte Beitrag () ist von sadhow.
-
-
-
-
-
-
-
@NeonReflexe: Die PM war unnötig, dafür gibt es das Forum.
Hier ist ein Tutiral zu Regex: [VB 2008] RegEx Tutorial - Blutige Anfänger und Fortgeschrittene -
-
-
Nen push nach so kurzer Zeit ist zu 100% unnötig und nicht erlaubt.
Was erwartest du dir für eine Antwort? Allgemein gibts da schon mal gar nichts.
Wenn es für alle Radios gehen soll, dann läuft es wohl darauf hinaus die Tags aus dem Radio auszulesen und zu hoffen, dass du diese lesen kannst und überhaupt welche vorhanden sind.
Sowas wieMessageBox.Show(System.Wizard.Magic.Media.RadioStream.FromUrl("...url...").SongHistory.Last().Title)wirst du wohl weniger finden.
Wie komme ich an den Stream? Url => HttpWebRequest => HttpWebRespone => ResponseStream. Und da jetzt auf Tags parsen (shoutcast, icecast,...).
Beispielcode hast z.B. hier: codeproject.com/Articles/19125/ShoutcastStream-Class
Wird dir jedoch nicht reichen, da es protokolle wie Sand am Meer gibt.
Siehe dazu einfach die Spezifikationen (funktionieren alle nach ähnlichem Prinzip). -
-
-
-
Der Link beinhaltet den kompletten Code (auf Browse Code klicken). Kopieren => einfügen => instanzieren => schauen, was dabei rum kommt. Wenn Du das nicht kannst, ist es evtl. noch ne Nummer zu hoch.Die Unendlichkeit ist weit. Vor allem gegen Ende.
Manche Menschen sind gar nicht dumm. Sie haben nur Pech beim Denken.
-
Jedoch ist dann so ziemlich alles ne Nummer zu groß, da eine Klasse kopieren und diese zu instanzieren einfach absolut überall gebraucht wird(abgesehen von dem kopieren). Wenn du nen Fenster öffnest, wird dieses auf instanziert, ...
Also:
- Instanz von der ShoutcastStream-Klasse und beim Konstruktor die url angeben
- Dann AddHandler auf das Event wo gefeuert wird wenn der Titel sich ändert
- Dann in ner Dauerschleife einfach die Read-Methode spammen
- Irgendwann findet der in der Read-Methode nen Titel
- Event wird gefeuert
- Du liest Titel => Hura!
-
VB.NET-Quellcode
- Imports System.Net
- Imports System.IO
- Imports System.Text
- Imports System.Text.RegularExpressions
- Public Class Form1
- Private Songs As New List(Of Sänger)
- Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
- Using sr As New WebClient
- sr.DownloadStringAsync(New Uri("http://www.antenne.de/antenne/musik/songsuche/radio.php"))
- AddHandler sr.DownloadStringCompleted, AddressOf DownloadCompleted
- End Using
- End Sub
- Private Sub DownloadCompleted(sender As Object, e As DownloadStringCompletedEventArgs)
- Dim matches As MatchCollection = New Regex("(?<=""/antenne/musik/stars/detail\.php\?star\=).*?(?="")|(?<=\s+?).+(?=\s+?<p>lief am.+?</p>)").Matches(e.Result)
- For x = 1 To matches.Count - 1 Step 3
- Dim newSong As New Song(matches(x).Value.Trim)
- Dim newSaenger As New Sänger(matches(x - 1).Value.Trim, newSong)
- Songs.Add(newSaenger)
- Next
- End Sub
- Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
- For Each Item In Songs
- MessageBox.Show(String.Concat(Item.Name, " hat folgendes Lied gespielt: ", Item.Lied.Name))
- Next
- End Sub
- End Class
- Public Class Sänger
- Public Sub New(ByVal name As String, ByVal lied As Song)
- Me._name = name
- Me._lied = lied
- End Sub
- Private _name As String
- Public ReadOnly Property Name As String
- Get
- Return _name
- End Get
- End Property
- Private _lied As Song
- Public ReadOnly Property Lied As Song
- Get
- Return _lied
- End Get
- End Property
- End Class
- Public Class Song
- Public Sub New(ByVal name As String)
- Me._name = name
- End Sub
- Private _name As String
- Public ReadOnly Property Name As String
- Get
- Return _name
- End Get
- End Property
- End Class
Hiermit werden alle gespielten und auf der Seite aufgelisteten Lieder angezeigt, das erste Lied ist dann das Lied, das derzeit gespielt wird. -
-
Ähnliche Themen
-
markushettmann - - Internet-/Netzwerksoftware
