Topic: BASS.Net - SHOUTcast / Icecast mediainfo

[Creatus72]

SHOUTcast

Imports System.IO
Imports Newtonsoft.Json.Linq
Public Class SHOUTcast
   'lblTitle -> Label1
   'IP -> Server IP / Hostname
   'PORT -> Server Port
   'STREAMPATH -> SHOUTcast Mountpoint
   Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
      Timer1.Interval = 5000
      Dim url As String = "https://IP:PORT/stats?mount=/STREAMPATH&json=1"
      'or Dim url As String = "https://IP:PORT/stats?sid=1&json=1"
      Dim request As HttpWebRequest = DirectCast(WebRequest.Create(url), HttpWebRequest)
      Dim response As String
      Try
         Dim res As New StreamReader(request.GetResponse().GetResponseStream())
         response = res.ReadToEnd()
         Dim data As JObject = JObject.Parse(response)
         lblTitle.Text = data("songtitle").ToString
         res.Close()
      Catch ex As Exception
      End Try
   End Sub
End Class

Lekérdezhető információk: PÉLDÁUL -> lblTitle.Text = data("songtitle").ToString

currentlisteners -> data("currentlisteners").ToString
peaklisteners -> data("peaklisteners").ToString
maxlisteners -> data("maxlisteners").ToString
uniquelisteners -> data("uniquelisteners").ToString
averagetime -> data("averagetime").ToString
servergenre -> data("servergenre").ToString
serverurl -> data("serverurl").ToString
servertitle -> data("servertitle").ToString
songtitle -> data("songtitle").ToString
streamhits -> data("streamhits").ToString
streamstatus -> data("streamstatus").ToString
backupstatus -> data("backupstatus").ToString
streamlisted -> data("streamlisted").ToString
streamlistederror -> data("streamlistederror").ToString
streampath -> data("streampath").ToString
streamuptime -> data("streamuptime").ToString
bitrate -> data("bitrate").ToString
samplerate -> data("samplerate").ToString
content -> data("content").ToString
version -> data("version").ToString

Icecast

Imports System.IO
Imports Newtonsoft.Json.Linq
Public Class SHOUTcast
   'lblTitle -> Label1
   'IP -> Server IP / Hostname
   'PORT -> Server Port
   'MOUNTPOINT -> Icecast Mountpoint
   Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
      Timer1.Interval = 5000
      Dim url As String = "https://IP:PORT/status-json.xsl?mount=/MOUNTPOINT"
      Dim request As HttpWebRequest = DirectCast(WebRequest.Create(url), HttpWebRequest)
      Dim response As String
      Try
         Dim res As New StreamReader(request.GetResponse().GetResponseStream())
         response = res.ReadToEnd()
         Dim data As JObject = JObject.Parse(response)
         lblTitle.Text = data("icestats")("source")("title").ToString
         res.Close()
      Catch ex As Exception
      End Try
   End Sub
End Class

Lekérdezhető információk: PÉLDÁUL -> lblTitle.Text = data("icestats")("source")("title").ToString

admin -> data("icestats")("admin").ToString (admin email)
host -> data("icestats")("host").ToString (radioserver host)
location -> data("icestats")("location").ToString (Location)
server_id -> data("icestats")("server_id").ToString (radioserver type)
server_start -> data("icestats")("server_start").ToString (radioserver last start)
bitrate -> data("icestats")("source")("bitrate").ToString
genre -> data("icestats")("source")("genre").ToString
listener_peak -> data("icestats")("source")("listener_peak").ToString
listeners -> data("icestats")("source")("listeners").ToString
listenurl -> data("icestats")("source")("listenurl").ToString
server_description -> data("icestats")("source")("server_description").ToString
server_name -> data("icestats")("source")("server_name").ToString
server_type -> data("icestats")("source")("server_type").ToString
server_url -> data("icestats")("source")("server_url").ToString
stream_start -> data("icestats")("source")("stream_start").ToString (or data("icestats")("server_start").ToString)
title -> data("icestats")("source")("title").ToString