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é !