ID3v2 Tag Reading VB6 Code

TheJack · 03-17-2005, 11:59 PM

The following VB6 code will get tags from tracks with ID3v1/v2, but will not get tracks with only v2. Can someone help me with the right tag location or anything other information that will help me parse out v2 tags?

Code:

Open sKey For Binary As #1
With CurrentTag
    Get #1, FileLen(sKey) - 127, .Tag
    If Not .Tag = "TAG" Then
    txtTitle = "no tag"
    txtArtist = "no tag"
    txtAlbum = "no tag"
    txtYear = "no tag"
        Close #1
        
    End If
    Get #1, , .Songname
    Get #1, , .artist
    Get #1, , .album
    Get #1, , .year
    
    Close #1

    txtTitle = RTrim(.Songname)
    txtArtist = RTrim(.artist)
    txtAlbum = RTrim(.album)
    txtYear = RTrim(.year)
    
    
End With

OdysseyPC · 03-18-2005, 12:08 AM

There is hardly enough area to answer a question of this scope. The code you have will only read ID3v1 tags. This version held information in the last 128 bytes of the mp3 file. ID3v2 introduced dynamic sized data by means of giving each portion a specific header within the file itself. The downside is that you have to parse the whole file to extract all the relevent information. Hence the large scope of the question.

Fortunately there are a ton of projects/ActiveX/modules that have ID3v2 support you're after in VB6 format, residing in a little place called Planet Source Code.

This is a haven for all beginners. I suggest you check it out, it'll answer all those pesky questions. Even Frodo gives it a thumbs up, so it's got to be good doesn't it.

TheJack · 03-18-2005, 12:16 AM

Thanks, I'll check it out. I didn't know V2 got so complicated.... I just figured it's location was expanded to include more data.

mhermann · 03-18-2005, 08:26 AM

If you want to take the easy way out and just use an active-x OCX try Audio Genie.

I know it is skipping the fun of coding it yourself, but that is what reusable code is all about.