lecture des informations sur un fichier MP3

Question

Bonjour,
j'essai de lire les informations sur un mp3 "Titre, artiste, genre et je n'y arrive pas
Voici le code que j'utilise

Public Class Form1
    Dim WindowsMediaPlayer1 As New WMPLib.WindowsMediaPlayer

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim odfile As New OpenFileDialog
        odfile.InitialDirectory = My.Computer.FileSystem.SpecialDirectories.MyDocuments
        odfile.Filter = "Fichiers musicaux (*.MP3)|*.mp3"
        odfile.ShowDialog(Me)

        Dim FileName As String = odfile.FileName
        TextBox1.Text = FileName  

        WindowsMediaPlayer1.URL = FileName
        lbTitre.Text = WindowsMediaPlayer1.currentMedia.getItemInfo("Title")
        lbArtiste.Text = WindowsMediaPlayer1.currentMedia.getItemInfo("Album")
        lbGenre.Text = WindowsMediaPlayer1.currentMedia.getItemInfo("Genre")
               
    End Sub
End Class

Answer 1

Bonjour,

Pour la manipulation des tags en lecture (ou en écriture d'ailleurs) je vous conseille TagLib : http://download.banshee.fm/taglib-sharp/

 

Answer 2

Bonjour,

La récupération de ces informations ne peut se faire que lorsque l'état de lecture est à "Transitioning" :

Essayez quelque chose comme :

 While WindowsMediaPlayer1.playState <> 9 '9 étant l'état transitioning
Application.DoEvents
End While

Voir ici : http://msdn.microsoft.com/fr-fr/library/dd564085%28v=vs.85%29.aspx

Ou encore cette manière :

 Function ObtenirInfos()

    Dim resultat As String
    Dim WMPMedia As WMPLib.IWMPMedia = WindowsMediaPlayer1.currentMedia

    'pour chaque attribut
    For i As Integer = 0 To WMPMedia.attributeCount - 1
      If WMPMedia.getItemInfo(WMPMedia.getAttributeName(i)) <> "" Then
        'on liste les attributs et leurs infos
        resultat = resultat & WMPMedia.getAttributeName(i) & " : " & WMPMedia.getItemInfo(WMPMedia.getAttributeName(i)) & vbCrLf
      End If
    Next
    Return resultat

  End Function

---

N'hésitez pas à poser des questions si un problème subsiste ou quelque chose n'est pas clair. Dans l'autre cas, veuillez indiquer que le problème est résolu. Cordialement.