[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