Neste código foi desenvolvido uma Classe chamada MP3ID3 que é responsável por fazer uma leitura das Tags ID3v1 e ID3v1.1 de um arquivo MP3 e armazenar os dados encontrados nas propriedades do objeto.
Desta forma basta passar o caminho completo do arquivo MP3 para o método readID3Tags que ele fará todo o trabalho. Depois de realizada a leitura basta utilizar as propriedades:
– Arquivo
– Titulo
– Artista
– Album
– Ano
– Comentario
– Trilha
– Genero
– TAG
0 And AscB(MidB(tmpComentario, 30, 1)) < 256 Then
a_Tag = "ID3v1.1"
'COMENTARIO (v1.1)
a_Comentario = converteBinario(LeftB(a_Comentario, 28))
'TRILHA
a_Trilha = AscB(MidB(tmpComentario, 30, 1))
Else
a_Tag = "ID3v1"
a_Comentario = tmpComentario
End If
'GENERO
GeneroID = AscB(objMP3.Read(1))
If GeneroID <= 114 AND GeneroID >= 0 Then
a_Genero = arrGeneros(GeneroID)
End If
Retorno = True
End If
objMP3.Close
'Retornando a função
readID3Tags = Retorno
End Function
'-----------------------------------------------------
'Funcao: converteBinario(ByVal Bin)
'Sinopse: Converte o Valor Binário passado.
'Parametro:
' Bin: Valor em Binário
'Retorno: String
'-----------------------------------------------------
Private Function converteBinario(ByVal Bin)
Dim Aux
For Aux = 1 To LenB(Bin)
If AscB(MidB(Bin, Aux, 1)) <> 0 Then converteBinario = converteBinario & Chr(AscB(MidB(Bin, Aux, 1)))
Next
End Function
End Class
'EXEMPLO DE CHAMADA
Dim objID3
Set objID3 = New MP3ID3
If objID3.readID3Tags("D:GabrielMinhas músicasKiss From a Rose.mp3") = True Then
Response.Write "" & objID3.Arquivo & "
"
Response.Write "Artista: " & objID3.Artista & "
"
Response.Write "Titulo: " & objID3.Titulo & "
"
Response.Write "Tamanho: " & objID3.Tamanho & "
"
Response.Write "TAG: " & objID3.TAG & "
"
Response.Write "Genero: " & objID3.Genero & "
"
Response.Write "Album: " & objID3.Album & "
"
Response.Write "Ano: " & objID3.Ano & "
"
Response.Write "Trilha: " & objID3.Trilha & "
"
Else
Response.Write "Não foi possível ler o arquivo MP3."
End If
If objID3.readID3Tags("D:GabrielMinhas músicasSeal - Kiss from a rose (unplugged & acoustic session).mp3") = True Then
Response.Write "" & objID3.Arquivo & "
"
Response.Write "Artista: " & objID3.Artista & "
"
Response.Write "Titulo: " & objID3.Titulo & "
"
Response.Write "Tamanho: " & objID3.Tamanho & "
"
Response.Write "TAG: " & objID3.TAG & "
"
Response.Write "Genero: " & objID3.Genero & "
"
Response.Write "Album: " & objID3.Album & "
"
Response.Write "Ano: " & objID3.Ano & "
"
Response.Write "Trilha: " & objID3.Trilha & "
"
Else
Response.Write "Não foi possível ler o arquivo MP3."
End If
Set objID3 = Nothing
%>
