MP3

踏平扶桑 2003-10-31 09:29:34
哪位哥们帮忙
我想知道MP3的内部信息是怎么读取的，我用vb写个播放器，想加入这个功能，可是我打开mp3（用16进制文件编译器）却找不到规律
谢谢
...全文
50 5 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
x1h2w3 2003-11-02
  • 打赏
  • 举报
 回复
先谢谢楼主给分！
这个程序我也是从网上找来的，但是原来的程序只能读英文的信息，如果信息中有中文的，读出来的结果很混乱，我进行了修正，你贴的程序在网上很多，所以原作者到底是谁很难说了，但是错误都是不能读中文，关键就在于他的

strInput = Space(30) '其中的30如果全是英文字符就没问题，但中文的是占 两个Space，所以会发生错乱！
Get FileNum, , strInput
Title = Trim(strInput)

以下是我改的，算的时候麻烦一点吧。

Seek FileNum, LOF(FileNum) - 124 + 30 '这样的话就不会出错。
strInput = Space(30)
Get FileNum, , strInput
Artist = Trim(strInput)

谢谢
踏平扶桑 2003-11-01
  • 打赏
  • 举报
 回复
谢谢各位
自己解决了
x1h2w3(free)这个读mp3全文应该是这样的，请问你是这个作者吗？
是这个文章指点了我，不过它有很多不正确的地方 .


得到MP3中隐藏的信息
作者：ss 发表日期：2003年1月5日

--------------------------------------------------------------------------------

填入手机号码

为了保护音乐者的版权，在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 Function

If Dir(FName) = "" Then Exit Function

Dim FileNum As Integer

FileNum = FreeFile ’得到一个自由的文件号

Dim strInput As String

Open FName For Binary Access Read As FileNum ’以二进制形式打开文件

If LOF(FileNum) < 128 Then
Close FileNum
Exit Function
End If

Seek FileNum, LOF(FileNum) - 127 ’把文件指针移动到MP3信息处
strInput = Space(3)
Get FileNum, , strInput


If strInput <> "TAG" Then ’如果没有发现信息标识，就关闭文件
Close FileNum
GoTo Done:
End If

strInput = Space(30)
Get FileNum, , strInput
Title = Trim(strInput)

strInput = Space(30)
Get FileNum, , strInput
Artist = Trim(strInput)

strInput = Space(30)
Get FileNum, , strInput
Album = Trim(strInput)

strInput = Space(4)
Get FileNum, , strInput
Year = Trim(strInput)

strInput = Space(30)
Get FileNum, , strInput
Comments = Trim(strInput)

strInput = Space(1)
Get FileNum, , strInput
Genre = Asc(strInput)

Done:
GetMp3Tag.Title = Title
GetMp3Tag.Artist = Artist
GetMp3Tag.Album = Album
GetMp3Tag.Year = Year
GetMp3Tag.Year = Comments
If Genre < 0 Or Genre > 254 Then Genre = 12
GetMp3Tag.Genre = CInt(Genre)

Close FileNum

End Function

注意：MP3文件对音乐的风格进行了限制，共254种。Genre返回的只是MP3风格的序列号，具体还需要定位，在这里我把所有类型以常数形式列出，每个类型之间用"|"号隔开。

Private Const sGenreMatrix = "Blues|Classic Rock|Country|Dance|Disco|Funk|Grunge|" + _
"Hip-Hop|Jazz|Metal|New Age|Oldies|Other|Pop|R&B|Rap|Reggae|Rock|Techno|" + _
"Industrial|Alternative|Ska|Death Metal|Pranks|Soundtrack|Euro-Techno|" + _
"Ambient|Trip Hop|Vocal|Jazz+Funk|Fusion|Trance|Classical|Instrumental|Acid|" + _
"House|Game|Sound Clip|Gospel|Noise|Alt. Rock|Bass|Soul|Punk|Space|Meditative|" + _
"Instrumental Pop|Instrumental Rock|Ethnic|Gothic|Darkwave|Techno-Industrial|Electronic|" + _
"Pop-Folk|Eurodance|Dream|Southern Rock|Comedy|Cult|Gangsta Rap|Top 40|Christian Rap|" + _
"Pop/Punk|Jungle|Native American|Cabaret|New Wave|Phychedelic|Rave|Showtunes|Trailer|" + _
"Lo-Fi|Tribal|Acid Punk|Acid Jazz|Polka|Retro|Musical|Rock & Roll|Hard Rock|Folk|" + _
"Folk/Rock|National Folk|Swing|Fast-Fusion|Bebob|Latin|Revival|Celtic|Blue Grass|" + _
"Avantegarde|Gothic Rock|Progressive Rock|Psychedelic Rock|Symphonic Rock|Slow Rock|" + _
"Big Band|Chorus|Easy Listening|Acoustic|Humour|Speech|Chanson|Opera|Chamber Music|" + _
"Sonata|Symphony|Booty Bass|Primus|Porn Groove|Satire|Slow Jam|Club|Tango|Samba|Folklore|" + _
"Ballad|power Ballad|Rhythmic Soul|Freestyle|Duet|Punk Rock|Drum Solo|A Capella|Euro-House|" + _
"Dance Hall|Goa|Drum & Bass|Club-House|Hardcore|Terror|indie|Brit Pop|Negerpunk|Polsk Punk|" + _
"Beat|Christian Gangsta Rap|Heavy Metal|Black Metal|Crossover|Comteporary Christian|" + _
"Christian Rock|Merengue|Salsa|Trash Metal|Anime|JPop|Synth Pop"


把以上代码写到一个模块中（.Bas），然后在窗体上加入5个TextBox和1个ComboBox控件，其中5个TextBox控件分别用来显示一首Mp3文件的以下信息：歌手、年代、唱片、评论、标题，ComboBox控件用来显示歌曲的风格。再放一个Command控件，其标题为“显示信息”，在它的Click事件中加入以下代码：
Private sub Command1_click()
Dim mp3Tag as Mp3tag
mp3tag = GetMp3Tag ("c:\Song.mp3")
Text1.Text = mp3tag.Artist
Text2.Text = mp3tag.Album
Text3.Text = mp3tag.Title
Text4.Text = mp3tag.Year
Text5.Text = mp3tag.Comments
Combo1.ListIndex = mp3tag.Genre
End Sub
在窗体的加载过程中加入如下代码：
Private Sub Form_Load()
Dim i As Integer,GenreArray() As String
GenreArray = Split(sGenreMatrix, "|")
For i = LBound(GenreArray) To UBound(GenreArray)
Combo1.AddItem GenreArray(i)
Next i
End Sub

以上代码在VB6 \Win2000中测试通过







x1h2w3 2003-10-31
  • 打赏
  • 举报
 回复
说明一点，类似程序在网上很多，但发现都读不了中文方式的，我研究改了一下，这个就能读了。
x1h2w3 2003-10-31
  • 打赏
  • 举报
 回复
然后在模块中加入：

'-----------------------
Option Explicit
Public Declare Function lstrlen Lib "kernel32" Alias "lstrlenA" (ByVal lpstring As String) As Long
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
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 Function

If Dir(FName) = "" Then Exit Function

Dim FileNum As Integer

FileNum = FreeFile '得到一个自由的文件号

Dim strInput As String

Open FName For Binary Access Read As FileNum '以二进制形式打开文件

If LOF(FileNum) < 128 Then
Close FileNum
Exit Function
End If

Seek FileNum, LOF(FileNum) - 127 '把文件指针移动到MP3信息处
strInput = Space(3)
Get FileNum, , strInput


If strInput <> "TAG" Then '如果没有发现信息标识，就关闭文件
Close FileNum
GoTo Done:
End If

strInput = Space(30)
Get FileNum, , strInput
Title = Trim(strInput)

Seek FileNum, LOF(FileNum) - 124 + 30
strInput = Space(30)
Get FileNum, , strInput
Artist = Trim(strInput)

Seek FileNum, LOF(FileNum) - 124 + 30 + 30
strInput = Space(30)
Get FileNum, , strInput
Album = Trim(strInput)

Seek FileNum, LOF(FileNum) - 124 + 30 + 30 + 30
strInput = Space(4)
Get FileNum, , strInput
Year = Trim(strInput)

Seek FileNum, LOF(FileNum) - 30
strInput = Space(30)
Get FileNum, , strInput
Comments = Trim(strInput)

Seek FileNum, LOF(FileNum)
strInput = Space(1)
Get FileNum, , strInput
Genre = Asc(strInput)

Done:
GetMp3Tag.Title = Title
GetMp3Tag.Artist = Artist
GetMp3Tag.Album = Album
GetMp3Tag.Year = Year
GetMp3Tag.Comments = Comments
If Genre < 0 Or Genre > 254 Then Genre = 12
GetMp3Tag.Genre = CInt(Genre)

Close FileNum

End Function


'--------------------------------
x1h2w3 2003-10-31
  • 打赏
  • 举报
 回复
MP3文件的信息可以写在头部也可以写在尾部，下面介绍一下写在尾部的：

先建立一个工程，一个窗体，一个标准模块，在窗体上加五个Label和5个Text，一个CommonDialog
，一个Combo1，一个Command1，
以下是窗体的代码：
'-----------------------------------
Option Explicit
Private Const sGenreMatrix = "Blues|Classic Rock|Country|Dance|Disco|Funk|Grunge|" + _
"Hip-Hop|Jazz|Metal|New Age|Oldies|Other|Pop|R&B|Rap|Reggae|Rock|Techno|" + _
"Industrial|Alternative|Ska|Death Metal|Pranks|Soundtrack|Euro-Techno|" + _
"Ambient|Trip Hop|Vocal|Jazz+Funk|Fusion|Trance|Classical|Instrumental|Acid|" + _
"House|Game|Sound Clip|Gospel|Noise|Alt. Rock|Bass|Soul|Punk|Space|Meditative|" + _
"Instrumental Pop|Instrumental Rock|Ethnic|Gothic|Darkwave|Techno-Industrial|Electronic|" + _
"Pop-Folk|Eurodance|Dream|Southern Rock|Comedy|Cult|Gangsta Rap|Top 40|Christian Rap|" + _
"Pop/Punk|Jungle|Native American|Cabaret|New Wave|Phychedelic|Rave|Showtunes|Trailer|" + _
"Lo-Fi|Tribal|Acid Punk|Acid Jazz|Polka|Retro|Musical|Rock & Roll|Hard Rock|Folk|" + _
"Folk/Rock|National Folk|Swing|Fast-Fusion|Bebob|Latin|Revival|Celtic|Blue Grass|" + _
"Avantegarde|Gothic Rock|Progressive Rock|Psychedelic Rock|Symphonic Rock|Slow Rock|" + _
"Big Band|Chorus|Easy Listening|Acoustic|Humour|Speech|Chanson|Opera|Chamber Music|" + _
"Sonata|Symphony|Booty Bass|Primus|Porn Groove|Satire|Slow Jam|Club|Tango|Samba|Folklore|" + _
"Ballad|power Ballad|Rhythmic Soul|Freestyle|Duet|Punk Rock|Drum Solo|A Capella|Euro-House|" + _
"Dance Hall|Goa|Drum & Bass|Club-House|Hardcore|Terror|indie|Brit Pop|Negerpunk|Polsk Punk|" + _
"Beat|Christian Gangsta Rap|Heavy Metal|Black Metal|Crossover|Comteporary Christian|" + _
"Christian Rock|Merengue|Salsa|Trash Metal|Anime|JPop|Synth Pop"

Private Sub Command1_Click()
CommonDialog1.ShowOpen
Dim mp3Tag As mp3Tag
mp3Tag = GetMp3Tag(CommonDialog1.FileName)
Text1.Text = mp3Tag.Artist
Text2.Text = mp3Tag.Album
Text3.Text = mp3Tag.Title
Text4.Text = mp3Tag.Year
Text5.Text = mp3Tag.Comments
Combo1.ListIndex = mp3Tag.Genre
End Sub

Private Sub Form_Load()
Dim i As Integer, GenreArray() As String
GenreArray = Split(sGenreMatrix, "|")
For i = LBound(GenreArray) To UBound(GenreArray)
Combo1.AddItem GenreArray(i)
Next i
End Sub

'-------------------------------
Android AudioRecorder录制mp3文件(已经完整封装好，直接调用)
Android AudioRecorder录制mp3文件(已经完整封装好，直接调用) 源码包中有2个类 AudioRecorder2Mp3Util 负责录音和转换 MainActivity 用户的操作界面 注意用的时候需要加上权限 ...
Html5网页JavaScript录制MP3音频
使用MediaRecorder，开发者可以监听到数据录制的进度，通过ondataavailable事件获取到每一段音频数据，然后组合成完整的MP3文件。 以下是一个简单的音频录制流程： 1. 创建AudioContext实例，准备处理音频数据。 2...
iChat 1.61 用户管理模块源代码
支持ACCESS或SQL SERVER数据库（通过ODBC支持），兼容etchat用户文件格式。 用户注册管理部分用DLL形式从iChat.exe中独立出来。 用户注册、验证部分DLL模块源码公开。
html5实现的扁平音乐播放器源码
这是一款基于html5实现的扁平音乐播放器源码，是基于jQuery+HTML5实现的扁平风格mp3 player网页音乐播放器。有着很好的视觉效果与播放功能。建议使用支持html5的浏览器如火狐或谷歌运行该源码。
NCM格式如何转换为Mp3-音乐格式ncm转换mp3工具
本人在网易云上下载音乐后会有一些音乐是ncm格式的，但是放到mp3中无法播放，需要转换成mp3格式的才行。 在网上找了很多中方案，都是没用的，本人亲测了一种绝对有效的方法！！注意：是绝对有效！！ 首先附上...
VB基础类

7,785

社区成员

197,585

社区内容

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章