得到MP3中隐藏的信息

                                      得到MP3中隐藏的信息

      为了保护音乐者的版权，在MP3文件中有一段特意存储版权说明的信息，众多的MP3播放器软件都提供了修改和读取MP3文件中隐藏信息的功能，那么这些信息到底存储在哪里呢？如何得到这些信息呢？本文将为大家提供得到MP3信息的模块。

      首先，定义一个公共类型Mp3tag如下：

  Public Type Mp3tag
      Artist  As String        ’Artist 存储歌手信息
      Album  As String         ’Album  存储唱片专辑信息
      Title As String          ’Title  存储标题信息    
      Year As String           ’Year   存储年代信息
      Comments As String       ’Comments 存储备注信息
      Genre As Integer         ’Genre   存储音乐风格序列
  End Type

      然后，定义一个获取MP3信息的函数，它将返回这些信息，代码如下：

Public Function GetMp3Tag(FName As String) As Mp3tag
    Dim Artist As String
    Dim Album As String
    Dim Title As String
    Dim Year As String
    Dim Comments As String
    Dim Genre As Integer
   
    If FName = "" Then Exit Funct