none
lecture des informations sur un fichier MP3 RRS feed

  • 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
    samedi 3 octobre 2009 23:20

Toutes les réponses

  • Bonjour,

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

     

    samedi 5 février 2011 10:09
  • 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.
    samedi 5 février 2011 10:49