Realizo una aplicación para una fonoteca y les sea practico capturar su inventario, por lo regular cda’s, utilizo el componte de Windows media player pero no obtengo los atributos del track que esta tocando .
Este es el código:
Dim infos As String = "<<<"
Dim i As Integer
Dim Cm As WMPLib.IWMPMedia
Cm = Player.currentMedia
For i = 0 To Cm.attributeCount - 1
'If Cm.getItemInfo(Cm.getAttributeName(i)) <> "" Then _
infos = infos & Cm.getAttributeName(i) & " : " & _
Cm.getItemInfo(Cm.getAttributeName(i)) & vbCrLf
Next
'TextBox1.Text =
TextBox1.Text = Now.ToString & " Status " & Player.status & " " & Me.Player.currentMedia.name & vbCrLf & _
Me.Player.currentMedia.durationString & vbCrLf & _
Me.Player.currentMedia.getItemInfo("title") & vbCrLf & _
Me.Player.currentMedia.getAttributeName(0) & " <=> " & Me.Player.currentMedia.getItemInfo(Me.Player.curre ntMedia.getAttributeName(0)) & vbCrLf & _
Me.Player.currentMedia.getItemInfo("Album") & vbCrLf & _
infos & " Duración: " & Cm.durationString
y lo que obtengo
27/05/2013 08:38:59 p.m. Status Reproduciendo "6" 6
04:19
6
Actor <=>
Lista de reproducción1
<<<Actor :
Album : Lista de reproducción1
AlbumArtist :
Artist :
Author :
BuyNow :
Caption : 6
CDTrackEnabled : True
Composer :
Copyright :
Genre :