VB.NET使用TagLib#读取MP3中的ID3v2标签
2014-01-07 16:13
323 查看
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编码的中文不是非常的兼容,读取的时候很容易出现乱码,对于中文字符串的处理似乎需要而外的解码处理,需要在日后查阅资料来解决这个问题,郁闷纠结中。。。
可以使用下面的一个小小的类读取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编码的中文不是非常的兼容,读取的时候很容易出现乱码,对于中文字符串的处理似乎需要而外的解码处理,需要在日后查阅资料来解决这个问题,郁闷纠结中。。。
相关文章推荐
- vb.net 使用Access数据库 保存和读取图片文件
- 读取MP3文件内的ID3V2专辑图片并显示
- C# 读取和编辑 MP3 ID3 属性的详细操作和说明 (ID3v2)
- 用vb.net读取INI配置文件的方法,使用API
- 使用vb.net读取xml文件
- 在vb.net使用System.IO读取文本文件
- 声音文件读取(未实现)--MP3 文件的ID3V1信息与ID3V2信息结构的分析
- MP3文件的ID3V1信息与ID3V2信息结构的分析
- vb.net读取xml文件中的节点内容
- vb.net 教程 4-12 ini文件操作 1 ini文件的读取
- 用VB.NET 如果将任何文件以二进制形式保存在数据库,然后再从数据库读取出来
- .net里面照样使用 escape 和 unescape (c# csharp vb.net jscript.net)
- 深入剖析VB.NET变量的使用
- struts2.0 读取配置文件 在直接使用标签读取
- vb.net中使用GetPrivateProfileString访问INI文件,解决中文路径问题
- 使用Ext.net时如何遍历Panel或者FormPanel中Content标签下的控件,并进行验证
- asp.net使用DataSet的ReadXml读取XML文件及Stream流的方法
- VB.net对MFC记录式文件的读取实践代码
- 使用VB.NET开发纯.NET的应用程序
- mp3 音频 音乐 tag ID3 ID3V1 ID3V2 标签 读取信息