YOMMMP3TAG V2 - EDITEUR DE TAGV1 V2.2 ET V2.3 POUR MP3 , MP3 VBR ET MP3 ABR

Commentaire de yomm le 03/07/2004 22:35:59

le code ne diffère pas des masses de la version un mais j'ai eut besoin de tout passer en class car vb commencait a perdre les pédale avec mes ocx perso....donc je n'utilise plus d'ocx sauf si c'est vraiment nécessaire...enfin bref comme j'ai fait la modif et vu ke les modif futures seront désormais faites sur cette version, je la mets en ligne...

bonne prog a tous...

Commentaire de yomm le 04/07/2004 01:02:46

chez moi ça fonctionne très bien avec Dir1.Path = Drive1.Drive & "\"
mais bon je sais pas...peut etre une question de service pack...

Commentaire de spy166 le 04/07/2004 11:02:43

Euh pourquoi sur ta capture il y a deux infos différentes ?
118 secondes et 157 ?

Commentaire de spy166 le 04/07/2004 21:16:32

Alors winamp se plante dans ton exemple c'est bien ça ?

Commentaire de yomm le 04/07/2004 21:37:43

>>spy166
attention ! ne va pas comprendre ke mon controle est meilleur ke celui de winamp, loin de là...dans ce ka préci oui...mais winamp gère plein d'autres choses notament au niveau du genre des TagV2 ke je n'ai pas voulu prendre en compte dans ma class...enfin voilà je voulais préciser cela...

Commentaire de yomm le 09/07/2004 22:26:21

info de dernière minute :
j'ai trouvé un bug ...et oui ;-)

Le problème concerne les fichiers mp3 comportant une entete RIFF...j'aurai pu ne pas le voir sur 12 fichiers testés 1 seul ma posé un problème... ;-) ....Pourkoi celui là et pas les autres ? Simplement parce ke le 5ème bite (cad celui qui suis l'entete "RIFF"...) de ce fichier vaut &HFF (héxa) et ke la class comprend que c'est le début du l'entete du mp3...Mais non ;-).....

bon je vais bossé dessus et je mettrai a jour dès ke ce petit problème sera corrigé .....

@+

PS : :-( ooouuuuuuuiiiiiiiiinnnnnn..........pourkoi y a pas UNE et une seule norme ;-).......

Commentaire de madbob le 06/09/2004 21:40:18

Bonjour,

Flute alors :-).... Je croyais que tu récupérais les Vbr dans ton outils... En fait on récupère les même infos que winamp... Il pète un fusible désqu'il s'agit de calculer la durée en seconde sur les encodages vbr. c'est drôle meme si c'est pénible. Windows à l'air d'avoir corrigé le problème.

Sinon l'est bien, ton outil même si il m'aide pas.

Fait ça pour tes dirlistesboxes afin d'éviter les problèmes pour ceux qui donnent des noms à leurs lecteurs !!! (comme moi  :-) )
Ca marchera à tous les coups au lieu de planter ou d'y alller au débogage.

'* Lettre (lecteur) & ":\"
Dir1.Path = Mid(Drive1.Drive, 1, 3)

Bien sur on peut aussi faire autrement.
Bonne continuation

Commentaire de madbob le 07/09/2004 08:56:47

Y a pas de problème Yomm.

Sur ce fichier tu passes pas dans le code pour le vbr :
testbuffer != XING donc tu vas dans le else et là tu ne récupères pas sur ce fichier la valeur VBRI donc pas de calcul... donc pas de surcharge de durèe :-(

Y a forcément un problème de calage sur le buffer. Je regarde plus en détail.... aussi de mon coté.

Salut

Commentaire de madbob le 07/09/2004 12:48:29

Je suis d'accord qu'en réencodant les fichiers qui posent problème on calme le jeux ;-) c'est ce que j'ai fait en partie.

Ceci dit, on peut toujour forcer le passage dans ton test (on peut en plus vérifier la version de lame) mais là on génére une erreur et on boucle à l'infini a cause du resume. Si on force le else c'est tout pareil le calcul fait une division par 0.

Merci Yomm je vais approfondir le cas de forçage sur XING.
A+

Commentaire de madbob le 07/09/2004 14:50:44

Quand je parlais de boucler c'est suite à une erreur qui déclenche le resume et donc tu n'avances pas tant que l'erreur existe(et c'est seulement quand tu forces le code!!! :-) j'avais une division par 0).... Je parlais pas de tes boucles qui sont très bien faites. 8-) comme le reste du code d'ailleurs.

Je viens de réencoder le fichier avec la même version de Lame mais cette fois ci sans vbr et là ç'est nickel. Surement que le bug concerne le vbr de la version Lame 3.90

Je te remercie pour ton attention. Je ne sais pas combien de fichiers posent problème, une toute petite minorité certainement. Mais je vais pister tout ça à l'occasion. Encore un nouveau Projet. Je te donnerai des nouvelles.

Merci pour tout
et bonne continuation
A+

Commentaire de PaTaTe le 07/03/2005 16:15:56

Je suis entrain de me poser une question ... Est-il possible d'aller plus loin comme MediaMonkey ki ajoute les lyric dans le tag ?

Commentaire de yomm le 10/10/2005 22:52:16

>>MANDARK
je regarderai cela dès ke possible...merci de l'info...

Commentaire de firens le 23/01/2006 15:54:17

Hello,

j'ai testé le module de Yomm avec les tags mp3 mais j'ai un petit soucis....

j'ai donc déclaré tout ca pour pouvoir lire le fichier mp3 test.mp3

Dim mp3File As TagType

Set mp3File = YommTag1.GetAllTags("C:\test.mp3")

mais ca me mets un type mismatch...seulement on voit très bien que lorsqu'on écrit la fonction GetAllTags elle demande un type String...
J'ai essayé de mettre str("C:\test.mp3) pour voir.. mais ça plante mon prog....

Quelqu un aurait une solution ?                          Merci

Commentaire de JLN le 16/04/2006 11:47:37

Salut à tous,

     A en juger des remarques de tous les utilisateurs de ta classe (et precedament de ton ocx) je pense sans me tromper pouvoir dire BRAVO et mon respect le plus profond. Je cherchais quelques chose qui me mette sur la voie des tags mp3 et je tombe sur une Rolls, que dire de plus, je suis comblé et je m'en vais mettre ca dans ma prochaine appli. Bonne continuation et merci au nom de tous. Ha ! juste une chose (il fallait que j'en trouve une) le lien http://www.yomm.fr.st/dl.php?ID=1 ne fonctionne pas.

Bonne prog,
@+ JLN

Commentaire de yomm le 16/04/2006 13:23:10

oups...j'avais oublié, il est dans le zip...donc le lien n'est plus très util ;-)

Au fait, merci pour tes comments JLN

Commentaire de mazty le 12/05/2006 15:45:15

Salut, je suis débutant en VB (pas en programmation...). Je viens d'installer "Visual Basic 2005 Express Edition". Je crée un nouveau projet, ouvre tes classes (.cls) et dans le main de mon module1 crée un objet d'une de tes classes mais celui-ci n'est pas reconnu, la syntaxe de tes .cls ne semble pas être reconnue... Si quelqu'un pouvait me dire comment régler ca ou m'envoyer vers un tutoriel qui puisse le faire. Merci à tous

Commentaire de mazty le 12/05/2006 16:47:24

Comment puis-je faire pour les utiliser dans ce cas (utilisation d'un autre environnement de dévelloppement ?, conversion ?) ?

Commentaire de mazty le 12/05/2006 17:01:54

Mais comment utilisez-vous les classes vous ?

Commentaire de federki le 10/08/2006 02:26:55

Hola YOMM..
1º) je ne parle pas très bien français, pardon si je me trompe.
Ton source est IMPRESSIONNANT!!
Je veux te faire une question:
Pour mon programme, j'ai besoin d'obtenir le temps précis que durent les archives mp3. Je veux: heures, minutes, seconds et frames.(Bitrate variable évidemment)
Ton code: j'ai vu que le résultat, par exemple, pour ton archive test.mp3 est 4 seconds.
Il est exactament 4.545 seconds. 1 seconde - 100 frames
J'ai modifié BitRatetmp a single et Dureetmp aussi a single, mais le résultat n'est pas bon..Pourquoi?

Est-ce que tu peux m'aider??

Commentaire de yomm le 29/08/2006 00:06:43

re FEDERKI

j'ai trouvé très vite l'info dont tu as besoin:
dans la class TypeTagMpeg
dans la fonction GetTag
il y a un ligne comme ça:
Dureetmp = Fix(((TailleTmp - EntetePostmp) * 8 / 1000) / BitRatetmp)
en fait le fix coupe la partie entière (4.545 devient 4)
toi, il faut que tu prenne:
((TailleTmp - EntetePostmp) * 8 / 1000) / BitRatetmp
par contre, en effet, il faut mettre un autre type à la variable DureeTmp ou créer une autre variable ce qui serait plus propre

proposition : dans la class TypeTagMpeg

*************************************************
private ReelTimeTmp as Single

Public Property Get RealTime() As Single
    RealTime = RealTimeTmp
End Property
Public Property Let RealTime(ByVal Param As Single)
    RealTimeTmp = Param
End Property

'et dans la fonction GetTag:
'remplace
        If BitRatetmp <> 0 Then
            Dureetmp = Fix(((TailleTmp - EntetePostmp) * 8 / 1000) / BitRatetmp)
        End If
'par
        If BitRatetmp <> 0 Then
            Dureetmp = Fix(((TailleTmp - EntetePostmp) * 8 / 1000) / BitRatetmp)
            RealTimeTmp = ((TailleTmp - EntetePostmp) * 8 / 1000) / BitRatetmp
        End If

'et plus loin
        .Vbr = Vbrtmp
    End With

    Exit Function

'par
        .Vbr = Vbrtmp
        .RealTime = RealTimeTmp
    End With

    Exit Function

*************************************************

tu auras ainsi la durée en single
d'ailleurs, au lieu de 5,545 tu auras : 5,54525

Voilà

@+ et bon devs

Commentaire de yomm le 02/06/2007 01:00:08

modif pour tich3012 qui m'a demandé en MP si l'on pouvait gérer l'image inclue dans certain mp3:
c'est fait dans cette nouvelle version :
---------------------------------------------------------------
pour récupérer l'image en variable Picture :

Dim toto As New TypeTagV2
Set toto = YommTag1.GetTagV2("c:\MonFichier.mp3")
set Image1.Picture = toto.Pic

---------------------------------------------------------------
pour récupérer l'image dans un fichier:

Dim toto As New TypeTagV2
Set toto = YommTag1.GetTagV2("c:\MonFichier.mp3")
open "c:\MonFichier.jpg" For Binary Access Write As #1
    put #1 , 1 , toto.PictureBinary
close #1

---------------------------------------------------------------
pour affecter une image à un mp3:

Dim toto As New TypeTagV2
Set toto = YommTag1.GetTagV2("c:\MonFichier.mp3")
Call toto.SetPicFromFile("c:\MonFichier.jpg")
Call toto.SetTag("c:\MonFichier.mp3")

Attention : on ne peut affecter qu'un fichier d'extension jpg !!!

---------------------------------------------------------------

PS : en même temps j'ai réglé un problème que personne n'avait soulevé mais je m'en suis aperçu là ;-)

Commentaire de titicar le 10/10/2007 22:30:22

Salut,

Incroyable, depuis toutes ces années, ce post est toujours d'actualité :-)
Ca tombe bien, je viens de le télécharger.

Cependant, y a un truc que je n'ai pas compris dans la classe du TagV2 : lors de la 'convertion de la taille de la chaine des tags en binaires', y a la ligne suivante : 'i = Len(FicTag) + 11'.
D'où provient ce fameux 11?
Est-ce une constante dû à ce calcul binaire en 7 bits et donc quelque soit la longueur de FigTag? Ou est-ce autre chose ?
... Oui c'est vrai, je ne pose pas une question sur un bug ou une fonction supplémentaire, mais juste sur un problème de compréhension.

Commentaire de titicar le 14/01/2008 19:52:10

Bonjour,
Merci à Yoom pour la classe concernant la gestion de l'entête Mpeg car j'ai utilisé son code.

Toutefois Yoom et pour ton info, j'ai modifié très légèrement ton code dans Friend Function GetTag(...):
- J'ai préféré écrire 'Optional ByVal Advanced As Boolean = True' ...pour forcer Advanced=True
- Et j'ai ajouté 'Optional ValInit As Long = 1'
Donc :
Friend Function GetTag(ByVal fichier As String, Optional ByVal Advanced As Boolean = True, _
    Optional ValInit As Long = 1) As ...

Pourquoi cette dernière modif : parce que je suis tombé sur un mp3 qui posséde une frame 'GEOB' mémorisant une 'séquence Mpeg' (quel idée!).
(pour rappel, 'GEOB' est une frame qui peut mémoriser une séquence quelconque binaire, normalement accès sur le contenu d'un fichier externe)
Dès lors la class 'Mpeg', cherchant le début de l'entête Mpeg, 'indexe' uniquement le contenu d'une frame. Ce qui crée un beau désordre si l'on modifie le tag ID3v2.
Pour palier à ce problème, j'ai modifié la procédure qui sauvegarde l'ID3v2. A savoir que si le début de l'entête Mpeg est inférieur à la taille de l'ID3v2, alors on fait une deuxième recherche d'entête Mpeg, non plus à partir du début du mp3, mais à partir de la fin de l'ID3v2.
Ce qui m'a donc forcer à introduire ValInit en tant que paramètre à l'appel de GetTag (du Mpeg).

Voilà, c'était juste pour info.
Je n'ai pas précisé les modif dans la classe traitant de l'ID3v2 car j'en ai écrit une autre, pas encore finie dans les détails, mais qui sauvegarde TOUTES les frames existantes.
Celà dit, merci encore pour ton traitement du Mpeg, la gestion du 'VBR'... et la conversion du décimal en binaire.
Moi qui pensais que la gestion de l'ID3v2 passerait simplement par une procédure traitant l'ID3v2, je me suis rendu compte que ce traitement pour un Mp3 passe obligatoirement par la gestion de son Mpeg!
Comme quoi, tout est lié... Mais quel idée de tout lié !

Commentaire de titicar le 17/01/2008 00:09:36

Et oui, comme quoi même un 'vieux' dev peut encore servir pour quelques 'acharnés'!
Cela dit si tu as des nouveautés, tu peux toujours nous tenir au courant :-).
Facile à dire car perso, je n'ai encore jamais rien 'partagé' (bouhh!).

Concernant ta class Mpeg (nameTypeTagMpeg), j'ai tout de même un gros problème de compréhension : dans cette même classe Mpeg, la function (Friend) 'GetTag(...) As TypeTagMpeg' appelle elle même sa propre class 'TypeTagMpeg' en tant que résultat de cette function.
Je m'explique sans doute mal, mais tout ça pour dire que des fois, j'ai une erreur n°91 (ne me demande pas la description de l'erreur) qui signifie (il me semble) que le résultat de la fonction 'GetTag(...)' est Nothing. Donc et dans ce contexte d'erreur, je ne peux pas appeler une quelconque 'Public Property' liée à la variable (nouvelle instance?) résultante de 'GetTag(...)'.
C'est vrai que je n'utilise pas la totalité de tes sources, et que je fais appel à cette fonction par mes propres lignes de prog.
C'est vrai aussi que quand je me relie, j'ai du mal à croire que quelque puisse comprendre ce que je veux expliquer.
Si tu as compris mon problème (là, je te félicite!), essais de répondre plus vite qu'en octobre :-)
Sinon, je vais essayer de traduire ça par un exemple plus concret (plus généraliste et plus simple!) que je posterai dans le forum.

@+ et (je n'en doute pas) bon prog!

Commentaire de titicar le 19/01/2010 22:16:50

Houlà, quel vieux post : bientôt 6 ans !
Il n'y en a pas d'autres plus récents depuis tout ce temps ?
C'est vrai qu'il y a 2 ans, j'avais commencé à écrire quelques fonctions concernant l'ID3v2 car ceux trouvés ici et là ne correspondaient pas à mes attentes... Mais je n'ai jamais terminé !

Si! Il est possible en VB6 de gérer n'importe quelle frame de l'ID3v2, y compris les images (pochette, artiste, etc).
Je parle de la lecture ou l'écriture d'une frame quelconque.

Pour ce qui est de l'affichage des données d'une frame, c'est moins évident :
1). La norme ID3v2 propose les caractères de l'unicode. Ce qui reste quasi incompatible avec VB6.
2). Concernant l'affichage des images, la norme prévoit les types JPEG et PNG. Le format PNG n'est pas pris en compte nativement dans VB6. Faut passer par GDI+ (ou quelque chose comme ça et que je ne connais pas; celà dit y a pleins d'exemples sur ce site, concernant le GDI+). Pour le JPEG, aucun problème !

Plus haut, je disais que les sources trouvées ici et là ne correpondaient pas à mes besoins. A l'époque, les seules sources que je trouvais (y compris celle de ce post) se focalisaient sur quelques frames programmées, et le fait de sauvegarder un tag ID3v2 modifié supprimait purement et simplement les autres frames non gérées. Donc méfiance si tu testes un code source: teste sur une copie de ton mp3.

C'est là le gros problème. De mémoire, il y a environ 80 noms de frames différents dans la norme ID3v2, et souvent avec un 'formatage' différent.
Une frame 'simple' comme le nom de l'artiste ne contient que 2 infos (de mémoire) : son code de caractères (unicode ou non) et le nom de l'artiste (écrit avec ce code de caractères).
Une frame plus élaborée comme justement ta fameuse image 'pochette album' contient beaucoup plus d'informations : L'image JPEG ou PNG en question, le format de l'image, un commentaire, etc... En plus, cette frame est 'multiple' car elle peut exister plusieurs fois, contrairement à d'autres.
C'est tout le problème : le 'formatage' d'une frame n'est pas le même d'une frame à une autre. Il faut donc distinguer tous les formats possibles y compris les indépendants ou multiples, et en écrire leur gestion.

Je ne vais pas développer d'avantage. Visiblement, tu recherches surtout à récupérer une 'pochette-album' d'un MP3 (à sauvegarder en tant que fichier?), et donc juste un type de frame. C'est largement possible, même en VB6 :).
D'ailleurs, ton sujet de récupération d'image dans le tag ID3v2 avait déjà été demandé dans le forum VB, et dans le passé. Il n'y a pas de nouvelle réponse à ce jour? Perso, je n'avais pas répondu à l'époque. Et je ne suis plus au courant des sujets actuels.
Sinon, dans ce même post, Yomm avait écrit quelque chose en rapport avec ton image recherchée. Ca ne fonctionne pas ? Cela dit, perso et de mémoire, je n'ai pas testé sa procédure.

Il n'y a pas de secret : faut connaitre un peu VB, et surtout la norme ID3v2 pour en extraire une info. Après, il y a une façon de programmer face à un problème dédié... pas toujours évident.