TP - Lire des tags mp3 ID3 version 1.0 et 1.1

Dans une musique au format mp3, on peut stoker les informations suivantes, appelées tags :

• ID3 version 1.0 :
  • le titre de la musique ;
  • le nom de l'artiste ;
  • le titre de l'album dont est issu cette musique ;
  • l'année de parution de l'album ;
  • un commentaire quelconque ;
  • le genre, à choisir parmis une liste pré-définie.
• ID3 version 1.1 (plus de détail ici, paragraphe MPEG Audio Tag ID3v1) :
  • tous les tags de la version 1.0 ;
  • le numéro de la piste dans l'album.
• ID3 version 2.0 (pas pris en charge dans ce TP) :
  • tous les tags de la version 1.1 ;
  • il n'y a plus de limitation sur le nombre de caractères pour les titres et les noms ;
  • le genre est libre, on n'est plus obligé de le choisir dans une liste pré-définie.

Ces informations sont utilisées pour être affichées par les lecteurs de musique : winamp, lecteurs DVD de salon, balladeurs mp3, etc. Ce TP sert à faire un programme qui permet de récupérer et d'afficher les tags d'une musiques.

Vous devez :

• trouver un fichier mp3 que vous stockerez à un emplacement simple d'accès (par exemple z:\) ;
• lancer un nouveau projet Visual Basic, supprimer la feuille et créer un nouveau module. N'oubliez pas de sauver aussitôt le projet dans votre répertoire de travail.
  

Pour faire votre première lecture de fichier mp3, vous devez (dans la procédure main) :

• ouvrir le fichier grâce à l'instruction Open, en mode Binary ;
• parcourir uniquement les 50 premiers octets du fichiers grâce à :
  • une boucle for i = 1 to 50 ... Next i
  • l'instruction de lecture get #f,, val où val est une variable de type Byte (c'est grâce à ça qu'on lit les octets 1 par 1. Si val est de type Integer, on lit les octets 2 par 2). Get permet de lire un octet, en mode séquentiel, et stocke sa valeur dans val.
  • afficher la valeur lue et son équivalent en texte grâce à l'instruction debug.print chr(val) & " " & val.

Si cela fonctionne, les premières valeurs en texte que vous devez voir sont "ID3". C'est l'en-tête des fichiers mp3.

En fait, les tags v1.0 et v1.1 se trouvent dans les 128 derniers octets du fichiers. Vous allez donc modifier le programme précédent de la façon suivante :

• entre l'ouverture du fichier (open) et la lecture dans la boucle (for ...), vous devez vous positionner directement 128 octets avant la fin du fichier, grâce à l'instruction Seek #f, LOF(f) - 127. Explications :
  • l'instruction Seek permet en effet de ne plus faire une lecture séquentielle depuis le début du fichier, mais au contraire de se positionner n'importe-où dans le fichier ;
  • LOF(f) est une fonction qui renvoie la taille du fichier (en octet).
  • par exemple, Seek #f, LOF(f) permet de nous positionner sur le dernier octet du fichier.
  • par exemple, Seek #f, 1 permet de nous positionner tout au début du fichier.
• vous devez modifier la boucle for de façon à ce qu'elle lise 128 octets, et non plus 50.

Lorsque vous exécutez, vous devez reconnaître facilement les tags mp3 dans la fenêtre d'exécution : nom de la chanson, de l'artiste, etc.

Sachant que (tout ceci est détaillé ici, paragraphe MPEG Audio Tag ID3v1) :

• l'entête "TAG" occupe les 3 premiers octets ;
• le titre de la chanson occupe les 30 octets suivants ;
• le nom de l'artiste occupe les 30 octets suivants ;
• le nom de l'album occupe les 30 octets suivants ;
• l'année occupe les 4 octets suivants (elle est stockée sous forme de texte et non pas sous forme numérique) ;
• le commentaire occupe les 29 octets suivants (ID3 v1.1) ;
• le numéro de la piste occupe l'octet suivant (ID3 v1.1, stocké sous forme numérique et non pas textuelle) ;
• le genre occupe l'octet suivant (stocké sous forme numérique et non pas textuelle).

Vous devez modifier votre programme de façon à ce qu'il lise information par information, basé sur l'exemple suivant (permet de lire le tag en début de fichier) :

Tag=""
For i = 1 to 3
  Get #f, , val
  Tag = Tag & chr(val)
Next i

Dans cet exemple, on ne lit que les 3 premiers caractères, et on les stocke dans la variable Tag (déclarée de type string). Il faut ensuite faire la même chose pour lire les 30 caractères suivants et les mettre dans une variable nommée Title, etc.

Vous allez transformer votre programme en fonction dont le but est de renvoyer ces informations dans une structure appropriée. Le modèle à utiliser est le suivant :

Struct TypeTag
  Tag as String
  Title as String
  Artist as String
  Album as String
  Year as String
  Comment as String
  TrackNumber as Byte
  Genre as Byte
  LibelleGenre as String
End Struct

Function GetTags(NomFichier As String) As TypeTag
  ... Votre programme ici ...
End Function

Votre programme doit bien sûr remplir les champs GetTags.Tag, GetTags.Title, GetTags.Artist, etc. La variable GetTags sera automatiquement renvoyé comme résultat de la fonction. Vous devez faire une fonction main qui teste le bon fonctionnement de GetTags.

Le genre est codé sous forme numérique, de 0 à 255. Celle valeur correspond à un libellé précis. Par exemple :

• 0 correspond à "Blues"
• 1 correspond à "Classic Rock"
• 2 correspond à "Country"
• etc. (tous les codes sont ici, paragraphe MPEG Audio Tag ID3v1).

Vous devez, dans la fonction GetTags, renvoyer le libellé du type (champs GetTags.LibelleGenre). Pour ça vous devez déclarer un tableau global :

Tab_LibelleGenre(0) = "Blues"
Tab_LibelleGenre(1) = "Classic Rock"
Tab_LibelleGenre(2) = "Country"
...

Et ensuite affecter le libellé du genre très simplement :

GetTags.LibelleGenre = Tab_LibelleGenre(GetTags.Genre)

Vous devez maintenant écrire une procédure qui modifie les tags mp3 contenus dans un fichier. Le fonctionnement de celle-ci est très similaire à la fonction GetTags. La principale différence réside dans l'utilisation de l'instruction put (écrire dans le fichier) au lieu de get (lire dans le fichier).

Voici l'en-tête de la fonction que vous devez écrire :

Function UpdateTag(NomFichier As String, NouveauTags As TypeTag)

Quels que soient les anciens tags, UpdateTags les remplace par le contenu du paramètre NouveauTags.