Click here to Skip to main content
Click here to Skip to main content

Read MP3 header information and read/write the ID3v1 tag

By , 1 Mar 2005
Rate this:
Please Sign up or sign in to vote.

Introduction

There are many other articles at The Code Project describing the audio header and tag information, but none in VB.NET. So it's time to update my very old article (Reading and writing MP3 ID3v1 tags ) with nicer code and extend it to read the MPEG header information.

I don't want to go into detail about the structure of MPEG audio headers, because Konrad Windszus already has a very good article (MPEG Audio Frame Header) about that. If you're interested in the structure of the audio header or the ID3 tag format i recommend to visit the following sites:

Using the code

I wrote two classes to handle the header and tag information, called MP3Info and ID3v1Tag. The following code will show the structure to use the classes:

Dim objMP3Info As New _
 Monotic.Multimedia.MP3.MP3Info
With ListView1
    ''' Set the filename property
    objMP3Info.Filename = "c:\test.mp3"

    ''' Add the header information to a listview
    .Add("Filesize").SubItems.Add(objMP3Info.Filesize & " Byte")
    .Add("SamplingRateFrequency").SubItems.Add _
     (objMP3Info.SamplingRateFrequency & " Hz")
    .Add("Padding").SubItems.Add(objMP3Info.Padding & " Bytes")
    .Add("Private").SubItems.Add(objMP3Info.PrivateBit)
    .Add("Copyright").SubItems.Add(objMP3Info.Copyright)
    .Add("OriginalBit").SubItems.Add(objMP3Info.OriginalBit)
    .Add("Bitrate").SubItems.Add(objMP3Info.Bitrate & " bps")
    .Add("FrameSamples").SubItems.Add(objMP3Info.FrameSamples)
    .Add("FrameSize").SubItems.Add(objMP3Info.FrameSize & " Byte")
    .Add("Length").SubItems.Add(objMP3Info.Length & " s (" 
     & Int(objMP3Info.Length / 60) & ":" & _
      objMP3Info.Length Mod 60 & " m)")
    .Add("HeaderPosition").SubItems.Add(objMP3Info.HeaderPosition)
    .Add("VBRScale").SubItems.Add(objMP3Info.VBRScale)

    Select Case objMP3Info.MPEGVersion
        Case MP3.MPEGVersionEnum.MPEG1
            .Add("MPEGType").SubItems.Add("MPEG 1")
        Case MP3.MPEGVersionEnum.MPEG2
            .Add("MPEGType").SubItems.Add("MPEG 2")
        Case MP3.MPEGVersionEnum.MPEG25
            .Add("MPEGType").SubItems.Add("MPEG 2.5")
    End Select

    Select Case objMP3Info.Layer
        Case MP3.LayerEnum.LayerI
            .Add("Layer").SubItems.Add("Layer I")
        Case MP3.LayerEnum.LayerII
            .Add("Layer").SubItems.Add("Layer II")
        Case MP3.LayerEnum.LayerIII
            .Add("Layer").SubItems.Add("Layer III")
    End Select

    Select Case objMP3Info.Protection
        Case MP3.ProtectionEnum.None
            .Add("Protection").SubItems.Add("None")
        Case MP3.ProtectionEnum.CRC
            .Add("Protection").SubItems.Add("By CRC")
    End Select

    Select Case objMP3Info.ChannelMode
        Case MP3.ChannelModeEnum.DualChannel
            .Add("ChannelMode").SubItems.Add("Dual Channel")
        Case MP3.ChannelModeEnum.JointStereo
            .Add("ChannelMode").SubItems.Add("Joint Stereo")
        Case MP3.ChannelModeEnum.SingleChannel
            .Add("ChannelMode").SubItems.Add("Single Channel")
        Case MP3.ChannelModeEnum.Stereo
            .Add("ChannelMode").SubItems.Add("Stereo")
    End Select

    Select Case objMP3Info.Emphasis
        Case MP3.EmphasisEnum.CCIT
            .Add("Emphasis").SubItems.Add("CCIT")
        Case MP3.EmphasisEnum.MS5015
            .Add("Emphasis").SubItems.Add("50/15 ms")
        Case MP3.EmphasisEnum.None
            .Add("Emphasis").SubItems.Add("None")
    End Select

    Select Case objMP3Info.Encoding
        Case MP3.EncodingEnum.CBR
            .Add("Encoding").SubItems.Add("CBR")
        Case MP3.EncodingEnum.VBR
            .Add("Encoding").SubItems.Add("VBR")
    End Select

    ''' Add the ID3v1 tag information to a listview
    If (objMP3Info.ID3v1Tag.TagAvailable) Then
        .Add("ID3 Title").SubItems.Add _
         (objMP3Info.ID3v1Tag.Title)
        [...]
    End If

    ''' Update the tag
    objMP3Info.ID3v1Tag.Title = "Another title"
    objMP3Info.ID3v1Tag.Update()

End With

Please have a look at the sample and the class code to see all the features.

Points of Interest

Unlike other articles, this class will handle CBR and VBR encoded files, so the playtime is calculated correctly.

The class is well-commented with XML comments made by AxTools CodeSmart 2005 and NDoc . I included the generated HTML help file in the download.

I'm working on reading and writing the much more complex ID3v2.x tags at the moment (80% done, just compressed frames are a little bit tricky). If you are interested in this, i will update this article in the future.

History

27.02.2004 Release of version 1

License

This article has no explicit license attached to it but may contain usage terms in the article text or the download files themselves. If in doubt please contact the author via the discussion board below.

A list of licenses authors might use can be found here

About the Author

Thommy Mewes
Software Developer (Senior) CIBER AG
Germany Germany
Feel free to contact me via Email or MSN Messenger (thommy@live.com).
Follow on   Twitter

Comments and Discussions

 
QuestionAlbum art Pinmemberraghubirdevnet16-Oct-12 0:02 
GeneralCRC Protection? PinmemberMember 357297015-May-11 14:19 
GeneralIDv2 PinmemberSousuke_31-Aug-10 10:35 
QuestionWie kann ich Änderungen speichern? MP3 Pinmembermichaelroswitha13-Jan-10 8:25 
QuestionHow to read the actual genre string when it is "other" Pinmembera1penguin18-Jun-09 17:05 
GeneralVBR File Pinmembernitesh gaba19-Mar-09 21:30 
QuestionWhat i write to the tag doesn't show up when viewing the property details in the file system. PinmemberMattRoy1018-Mar-09 14:11 
AnswerRe: What i write to the tag doesn't show up when viewing the property details in the file system. Pinmembermazin221-Dec-10 13:11 
Generalhip hop songs and dance PinmemberJigga Hov12-Dec-08 5:58 
GeneralGNU OpenSource Tag Library for .NET Pinmembersomeonestupid196910-Dec-08 4:55 
GeneralSet mp3-Tag with objMP3Info Pinmembersquirrel9127-Jul-07 23:45 
QuestionIs it? PinmemberRola /anglian/12-Jun-07 0:03 
GeneralRemote MP3 Pinmemberohadioe230-Apr-07 5:33 
GeneralOverFlow searching Genres Pinmemberricsamma15-Nov-06 17:25 
AnswerRe: OverFlow searching Genres PinmemberThommy Mewes15-Nov-06 20:39 
GeneralAdding Info to a listbox PinmemberJohn Dovey7-Sep-06 2:36 
QuestionHow to use this dll in Exel Macro? Pinmemberstrangerland26-May-06 18:16 
AnswerRe: How to use this dll in Exel Macro? [modified] Pinmemberbill-tor4-Jan-07 17:50 
GeneralBitrate problem PinmemberAlberto Venditti15-Feb-06 9:12 
GeneralRe: Bitrate problem PinmemberAndyLang15-Jul-07 15:17 
GeneralRe: Bitrate problem PinmemberLegoMindstorms5-Apr-08 10:44 
GeneralRe: Bitrate problem Pinmembervardos9-Sep-11 23:51 
QuestionUpdate Missing PinmemberIftikhar Ali16-Jan-06 23:54 
AnswerRe: Update Missing PinmemberThommy Mewes17-Jan-06 8:44 
GeneralRe: Update Missing PinmemberIftikhar Ali17-Jan-06 20:33 

General General    News News    Suggestion Suggestion    Question Question    Bug Bug    Answer Answer    Joke Joke    Rant Rant    Admin Admin   

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.

| Advertise | Privacy | Mobile
Web03 | 2.8.140415.2 | Last Updated 1 Mar 2005
Article Copyright 2005 by Thommy Mewes
Everything else Copyright © CodeProject, 1999-2014
Terms of Use
Layout: fixed | fluid