[Gambas-user] Icecast catching metadata using gambas
Martín
mbelmonte at belmotek.net
Wed Nov 8 23:26:41 CET 2023
El 8/11/23 a las 18:31, vuott--- via User escribió:
> About MediaPlayer, you have to use its "__Tag()" Event.
> Example with a web-radio:
> ...
> Public Sub MediaPlayer1_Tag(tagList As MediaTagList)
> Dim tag As String
> For Each tag In tagList.Tags
> TextArea1.Text &= tag & " -> " & tagList[tag] & gb.NewLine
> Next
> End
Thanks Vuott, it is just I need it work very well.
I made this changes to avoid the limit time by using a Private
Collection, $Meta,
Public Sub Player_Tag(tagList As MediaTagList)
Dim tag As String
For Each tag In tagList.Tags
If Not $Meta.Exist(tag) Then
$Meta[tag] = tagList[tag]
Endif
Next
End
More information about the User
mailing list