Sub Player_TrackChanged
'''' All Known Implementing Classes:
'''' ApicFrame, BinaryFrame, ChapterFrame, ChapterTocFrame, CommentFrame, EventMessage, GeobFrame, HlsTrackMetadataEntry,
'''' IcyHeaders, IcyInfo, Id3Frame, InternalFrame, MdtaMetadataEntry, MlltFrame, PictureFrame, PrivateCommand, PrivFrame,
'''' SpliceCommand, SpliceInsertCommand, SpliceNullCommand, SpliceScheduleCommand, TextInformationFrame, TimeSignalCommand,
'''' UrlLinkFrame, VorbisComment
''''
Dim jo As JavaObject = player1
Dim TrackGroups As JavaObject = jo.GetFieldJO("player").RunMethod("getCurrentTrackGroups", Null)
For i = 0 To TrackGroups.GetField("length") - 1
Dim TrackGroup As JavaObject = TrackGroups.RunMethod("get", Array(i))
For j = 0 To TrackGroup.GetField("length") - 1
Dim Format As JavaObject = TrackGroup.RunMethodJO("getFormat", Array(j))
Log(Format)
Dim Metadata As JavaObject = Format.GetField("metadata")
If Metadata.IsInitialized Then
Log("Metadata: " & Metadata) 'will not show you anything
Dim jo As JavaObject= Metadata.RunMethod("get", Array(0))
Log ("log2="&jo)
Dim mime As String = jo.GetField("url")
Log("url: "&mime)
mime=jo.GetField("name")
Log("name: "&mime)
End If
Next
Next
End Sub