VB.NET使用TagLib#读取MP3中的ID3v2标签

Taglib#是一个为.NET开发的元数据读取类库，为一个开源项目，可以在他们的官网上获取windows版本的源码包或者编译好的类库：http://download.banshee.fm/taglib-sharp/

可以使用下面的一个小小的类读取mp3音频文件中的ID3v2标签，类模块输出的字段包括最常用的专辑名称、专辑作者、歌曲标题和内嵌于mp3文件中的专辑封面。

内嵌的专辑封面的读取参阅这篇文章：http://social.msdn.microsoft.com/Forums/pl-PL/vbgeneral/thread/b540120b-1904-44ad-9448-9695482aebdf

    

Private Class ID3v2

Dim MP3 As TagLib.File= Nothing

Public lbAlbum, lbArtist, lbTitle As String

Public AlbumArt As Image = Nothing

 

Private Function GetString(ByVal str As String(), ByVal strDelimeter As String) As String

    Dim value As String= Nothing

 

    For i As Integer = 0 To str.Length - 1

        value += str(i)

 

        Ifi = str.Length - 1 Then Exit For

        value += strDelimeter

    Next

 

    Return value

End Function

 

Sub New(ByVal lpFile As String)

    MP3 = TagLib.File.Create(lpFile)

 

    If MP3.Tag.Album = Nothing OrElse MP3.Tag.Album.Trim = "" Then

        lbAlbum = "Unknown"

    Else

        lbAlbum = MP3.Tag.Album

    End If

 

    If MP3.Tag.Title = Nothing OrElse MP3.Tag.Title.Trim = "" Then

        '如果歌曲标题字段为空，则默认使用文件名作Á为歌曲的标题

        lbTitle = GetFileName(lpFile)

    Else

        lbTitle = MP3.Tag.Title

    EndIf

 

    lbArtist = GetString(MP3.Tag.AlbumArtists, ",")

    If lbArtist = Nothing OrElse lbArtist.Trim = "" Then lbArtist = "Unknown"

 

    If Not MP3.Tag.Pictures.Length >= 1 Then

        AlbumArt = My.Resources.rhythmbox

 

        Return

    End If

    'Esle

    Dim bin = DirectCast(MP3.Tag.Pictures(0).Data.Data, Byte())

    AlbumArt = Image.FromStream(New MemoryStream(bin)).GetThumbnailImage(115, 115, Nothing, System.IntPtr.Zero)

End Sub

 

Private Function GetFileName(ByVal path As String) As String

    Dim Tmp As String() = Split(path, "\")

 

    '找到文件拓展名，并将其去除

    For i As Integer = Tmp(Tmp.Length - 1).Length To 1 Step -1

        IfMid(Tmp(Tmp.Length - 1), i, 1) = "."Then ReturnMid(Tmp(Tmp.Length - 1), 1, i - 1).Trim

    Next

 

    '没有文件拓展名的，则直接返回文件名

    Return Tmp(Tmp.Length - 1).Trim

End Function

End Class

 

嗯，效果吗，真的很不错

 

不过，似乎TagLib-Sharp对utf8编码的中文不是非常的兼容，读取的时候很容易出现乱码，对于中文字符串的处理似乎需要而外的解码处理，需要在日后查阅资料来解决这个问题，郁闷纠结中。。。