Visual Basic - Tags de MP3 (id3v1 y id3v2)

Life is soft - evento anual de software empresarial
 
Vista:

Tags de MP3 (id3v1 y id3v2)

Publicado por Daryl Mandler (1 intervención) el 09/06/2007 21:44:59
ya busque en todo el foro acerca de como escribir y ver id3 tags de los mp3s (id3v1 y id3v2) y no encontre nada.. tambien busque en google.. saben como hacerlo?? ojala si me pudieran dar un codigo en visual basic... grax
pd: solo me interesa artista, titulo y album.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Tags de MP3 (id3v1 y id3v2)

Publicado por Richard (67 intervenciones) el 10/06/2007 00:16:21
hola a lo mejor esto puede servirte..

http://www.recursosvisualbasic.com.ar/htm/utilidades-codigo-fuente/reproductor-de-mp3.htm

Hasta luego.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Tags de MP3 (id3v1 y id3v2)

Publicado por fernando (102 intervenciones) el 10/06/2007 14:04:59
Yo estuve proobando con esto, fijate si te sirve como ejemplo.

En un módulo pegar esto:

Option Explicit

Public Type ID3Tag
Header As String * 3
SongTitle As String * 30
Artist As String * 30
Album As String * 30
Year As String * 4
Comment As String * 30
Genre As Byte
End Type

Public Function GetID3Tag(FileName As String, Tag As ID3Tag) _
As Boolean

On Error GoTo GetID3TagError

Dim TempTag As ID3Tag
Dim FileNum As Long

If Dir(FileName) = "" Then
GetID3Tag = False
Exit Function
End If

FileNum = FreeFile

Open FileName For Binary As FileNum
Get FileNum, LOF(1) - 127, TempTag
Close FileNum

If TempTag.Header <> "TAG" Then
GetID3Tag = False
Else
Tag = TempTag
GetID3Tag = True
End If

Exit Function

GetID3TagError:
Close FileNum
GetID3Tag = False
End Function

Llamar la función así:

Dim idtg As ID3Tag
Dim res As Boolean

res = GetID3Tag(Text1.Text, idtg) 'en text1.text poner nombre del mp3 ej. canción.mp3 string
' si res vuelve true leer las props de idtg

a = idtg.Header
b = idtg.SongTitle
c = idtg.Artist
d = idtg.Album
e = idtg.Year
f = idtg.Comment
g = idtg.Genre
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar