VB.Net – icsc_meta.dll (SHOUTcast / Icecast rádiószerver meta adatok lekérdezése)
SHOUTcast / Icecast rádiószerver(ek) meta adatainak a lekérdezése Windows alkalmazásokhoz az alábbi példa szerint:
1. icsc_meta.dll (1.0) – https://www.dllme.com/get/80283?hash=63be2e445690729df8c55a8b63423bd9
2. Properties/References/Add/Browse…
3. icsc_meta.dll fájl kiválasztása.
4. Fájl importálása az alábbi paranccsal: Imports icsc_meta
6. A fájlban szereplő összetevők behívása: Dim metadata As New icsc_meta.meta_data
7. Kiválasztott parancs alkalmazása az alábbi példa szerint:
Label1 = Label
Timer1 = Timer (Interval: 1000)
Imports icsc_meta
Public Class Form1
Dim metadata As New icsc_meta.meta_data
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Me.Text = metadata.server_meta(1, “radio.freestream.hu”, 8000, “ebm_radio”, 7, 0, 0) & ” (” & metadata.server_meta(1, “radio.freestream.hu”, 8000, “ebm_radio”, 16, 0, 0) & “kbps)”
Label1.Text = metadata.server_meta(1, “radio.freestream.hu”, 8000, “ebm_radio”, 8, 0, 0)
End Sub
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
Label1.Text = metadata.server_meta(1, “radio.freestream.hu”, 8000, “ebm_radio”, 8, 0, 0)
End Sub
End Class
metadata.server_meta(ssl, “ip”, port, “mount”, metadata, servertype, errmess)
no ssl (http://) = 0, ssl (https://) = 1
metadata = SHOUTcast 1 – 20
metadata = Icecast 1 – 16
servertype = 0 (SHOUTcast), 1 (Icecast)
errmess = 0 (show), 1 (hide)
1. icsc_meta.dll (1.1) – https://www.dllme.com/get/80283?hash=4bf257b518394e1e8cd15e69352b44c3
2. Properties/References/Add/Browse…
3. icsc_meta.dll fájl kiválasztása.
4. Fájl importálása az alábbi paranccsal: Imports icsc_meta
6. A fájlban szereplő összetevők behívása: Dim metadata As New icsc_meta.meta_data
7. Kiválasztott parancs alkalmazása az alábbi példa szerint:
Label1 = Label
Timer1 = Timer (Interval: 1000)
Imports icsc_meta
Public Class Form1
Dim metadata As New icsc_meta.meta_data
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Me.Text = metadata.shoutcast(1, “radio.freestream.hu”, 8000, “ebm_radio”, 7, 0) & ” (” & metadata.shoutcast(1, “radio.freestream.hu”, 8000, “ebm_radio”, 16, 0) & “kbps)”
Label1.Text = metadata.shoutcast(1, “radio.freestream.hu”, 8000, “ebm_radio”, 8, 0)
End Sub
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
Label1.Text = metadata.shoutcast(1, “radio.freestream.hu”, 8000, “ebm_radio”, 8, 0)
End Sub
End Class
metadata.shoutcast(ssl, “ip”, port, “mount”, metadata, errmess)
VAGY
metadata.icecast(ssl, “ip”, port, “mount”, metadata, errmess)
no ssl (http://) = 0, ssl (https://) = 1
metadata = SHOUTcast 1 – 20
metadata = Icecast 1 – 16
errmess = 0 (show), 1 (hide)
METADATA – SHOUTCAST
1. currentlisteners
2. peaklisteners
3. maxlisteners
4. uniquelisteners
5. servergenre
6. serverurl
7. servertitle
8. songtitle
9. streamhits
10. streamstatus
11. backupstatus
12. streamlisted
13. streamlistederror
14. streampath
15. streamuptime
16. bitrate
17. samplerate
18. content
19. version
20. averagetime
METADATA – ICECAST
1. admin (nem engedélyezett – későbbi verzió)
2. host
3. location (nem engedélyezett – későbbi verzió)
4. server_id
5. server_start (nem engedélyezett – későbbi verzió)
6. bitrate
7. genre
8. listener_peak
9. listeners
10. listenurl
11. server_description
12. server_name
13. server_type
14. server_url
15. stream_start
16. title
Icecast rádiószerver esetén ajánlott az SSL használata, míg SHOUTcast rádiószerver esetén bármelyik elfogadható. A “nem engedélyezett – későbbi verzió” azt jelenti, hogy majd egy későbbi frissítésben elérhető lesz. Az 1.1 – es verziónál kivettem a servertype változót, helyette a két rádiószerver típusa külön lett szedve.
SHOUTcast – metadata.shoutcast(ssl, “ip”, port, “mount”, metadata, errmess)
Icecast – metadata.icecast(ssl, “ip”, port, “mount”, metadata, errmess)
Minden más az 1.0 – ás verziót követi.