zoukankan      html  css  js  c++  java
  • 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 StringAs 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 StringAs 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

     

    嗯,效果吗,真的很不错

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

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

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

  • 相关阅读:
    Thinkphp学习笔记2-
    Thinkphp学习笔记1-URL模式
    WebApi-如何实现接口加密
    微信-.NET调用JS-SDK
    微信-JSSDK .NET版
    HTML-获取/修改html页面标题
    JS-获取图片地址
    微信-js sdk invalid signature签名错误 问题解决
    C++笔试题
    单链表反转的分析及实现
  • 原文地址:https://www.cnblogs.com/bdzwater/p/3509092.html
Copyright © 2011-2022 走看看