有一个项目要做播放器,要求读出流派 szTag db 4 dup (?) ;"TAG"三个字母,用来鉴别是不是文件信息内容
szTitle db 31 dup (?) ;歌曲名,30个字节
szArtist db 31 dup (?) ;歌手名,30个字节
szAblum db 31 dup (?) ;所属唱片,30个字节
szYear db 5 dup (?) ;年,4个字节
szComment db 29 dup (?) ;备注,28个字节
reserved1 db ? ;保留位1
reserved2 db ? ;保留位2
reserved3 db ? ;保留位3网上找的MP3文件的信息,可是没有流派信息
请教高手
szTitle db 31 dup (?) ;歌曲名,30个字节
szArtist db 31 dup (?) ;歌手名,30个字节
szAblum db 31 dup (?) ;所属唱片,30个字节
szYear db 5 dup (?) ;年,4个字节
szComment db 29 dup (?) ;备注,28个字节
reserved1 db ? ;保留位1
reserved2 db ? ;保留位2
reserved3 db ? ;保留位3网上找的MP3文件的信息,可是没有流派信息
请教高手
解决方案 »
- GetWindowLong失败
- vs2008 sp1的CPaneDialog用法问题请教
- 为什么internetopenUrl只有HTML码,没有数据?
- 到处类的成员函数出错
- Debug Assertion Failed!问题,急!在线等待,立刻结分!
- 帮忙介绍几本用VC进行音频/视频开发的书籍
- *借人气问一下*:为什么我在自己BLOG文章中插入到文章中的图片无法显示??
- 关于AnimateWindow
- bind Error , Error Code : 10048(dec) 2740(hex) 是什么错误 ?
- 各位帮忙呀,关于两个VIEW更新后,变量值怎么变了呢????
- 选择排序
- VC+ADO插入10000条记录,用了23秒,怎样提高速度?
<!--METADATA TYPE="typelib"
UUID="00000205-0000-0010-8000-00AA006D2EA4"
NAME="ADODB Type Library"
-->
<%
\'Author: 小龙 zyvslxl,[email protected] 请保留
\'需指定的属性
\'Path 文件的路径\'类头部分定义的属性为可以得到信息,当然不止这个,理论上可以返回任何标签值
\'在Id3v2() 中的select case FrameId(i)部分加入已知的标签,可以返回相应的内容
\'因为个人知识有限,会的话请指教
\'可用方法
\'CreateStream 打开文件流
\'pre 执行
\'CloseStream 关闭文件流Class mp3Public Path
Public Flag
Public Title \'标题
Public Artist \'作者
Public Album \'专集
Public IssueYear \'出品年代
Public Comment \'备注
Public Genre \'类型
Public Tcon \'流派
Public MpTime \'时间
Public USLT \'歌词
Private objStream
\'[待扩展]
private Function Exitext()
Dim ext
ext = lcase(right(path,len(path)-inStrRev(".")))
Exitext = ext
End Function
\'[转换函数,有些类型还是判断不了]
private Function bin2str(binstr,num)
on error resume next
Dim varlen,clow,ccc,skipflag ,i,biy
skipflag=0
ccc = ""
For i=1 To num
clow = MidB(binstr,i,1)
If ascb(clow)=0 then
skipflag=0
\' ccc = null
Else
If skipflag=0 Then
If AscB(clow) > 127 Then
ccc =ccc & Chr(AscW(MidB(binstr,i 1,1) & clow))
skipflag=1
Else
ccc = ccc & Chr(AscB(clow))
End If
Else
skipflag=0
End If End If
Next
bin2str = ccc
End Function
\'[载入文件]
Public Function CreateStream()
on error resume next
Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Type = adTypeBinary
objStream.Open
Err.clear
objStream.LoadFromFile Path
If err<>0 Then
objStream.LoadFromFile server.mappath(Path)
End If
Err.clear
End Function\'[关闭文件流]
Public Function CloseStream()
objStream.close
Set objStream = nothing
End Function
\'[标志信息]
Public Function id()
Dim Comm
objStream.position =0
Comm = objStream.Read(3)
id = bin2str(Comm)
End Function
\'[ID3V2信息读取]
Private Function Id3v2()
Dim FrameID()
Dim FrameSize()
Dim FrameSize1()
Dim Flags()
Dim Frame()
Dim MaxSize
Dim i
i = 0objStream.position = 6
MaxSize = TopSize(objStream.Read(4))
\'response.write "<font color=red>"&MaxSize&"</font><br/>"
Do While ObjStream.Position < MaxSize
ReDim Preserve FrameID(i),FrameSize(i),FrameSize1(i),Flags(i),Frame(i)
FrameID(i) = bin2str(objStream.Read(4),4)
If Isnull (FrameId(i)) or FrameId(i)="" Then Exit Do
FrameSize(i) = Size(objStream.Read(4))
If Isnull (FrameSize(i)) or FrameSize(i)= 0 Then Exit Do
objStream.Read(2) \'[Flag]
\'objStream.Read(1)
Frame(i) = bin2str(objStream.Read(FrameSize(i)),FrameSize(i))
i = i 1
Loop\'[依次赋值给属性]
Dim j
j = i-1
For i = 0 to j
\'response.write i
select case Ucase(FrameId(i))
Case "TIT2" : Title = cstr(Frame(i))
Case "COMM" : Comment = cstr(Frame(i))
Case "TPE1" : Artist = cstr(Frame(i))
Case "TALB" : Album = cstr(Frame(i))
Case "TYER" : IssueYear = cstr(Frame(i))
Case "TCON" : TCON = cstr(Frame(i))
Case "TIME" : MPTIME = cstr(Frame(i))
Case "USLT" : USLT = cstr(Frame(i))
End Select
Next
End Function\'[获取标签帧长度/某个具体标签内容长度]
Private Function Size(num)
Size = Null
Dim a,b,c,d
a = midb(num,1,1)
b = midb(num,2,1)
c = midb(num,3,1)
d = midb(num,4,1)If not isNull(a) Then
size=ascb(a) * 4294967296
End If
If not isNull(b) Then
size= size ascb(b) * 65536
End If
If not isNull(c) Then
size=size ascb(c) * 256
End If
If not isNull(d) Then
size=size ascb(d)
End If
End Function\'[获取头标签长度/标签总长度]
Private Function TopSize(num)
TopSize = Null
Dim a,b,c,d
a = midb(num,1,1)
b = midb(num,2,1)
c = midb(num,3,1)
d = midb(num,4,1)If not isNull(a) Then
TopSize=ascb(a) * 2097152
End If
If not isNull(b) Then
TopSize= TopSize ascb(b) * 1024
End If
If not isNull(c) Then
TopSize=TopSize ascb(c) * 128
End If
If not isNull(d) Then
TopSize=TopSize ascb(d)
End If
End Function\'[ID3V1信息读取]
Private Function Id3v1()
objStream.position = objStream.size - 128
Flag = bin2str(objStream.Read(3),3)
If Flag = "TAG" Then
Title = bin2str(objStream.Read(30),30)
Artist = bin2str(objStream.Read(30),30)
Album = bin2str(objStream.Read(30),30)
IssueYear = bin2str(objStream.Read(4),4)
Comment = bin2str(objStream.Read(30),30)
Genre = bin2str(objStream.Read(3),3)
End If
End Function\'[判断ID3版本 只区分ID3v1和ID3v2]
private Function FileFlag()
objStream.position = 0
Dim Flag
Flag = Ucase(bin2str(objStream.Read(3),3))
If Flag ="ID3" Then FileFlag=true
\'response.write Flag & "<br/>"
End Function
\'[优先返回ID3V2版本信息]
Public Function Pre()
If FileFlag then
Id3v2
Else
Id3v1
End IF
End Function
End Class
给你找了一个C++读MP3文件头的类,你可以看下,可以上网自己搜索下这样的类,到处都是
希望对你有帮助
TagLib 在线帮助文档: http://developer.kde.org/~wheeler/taglib/api/