如何获得mpeg或mp3等歌曲的相关信息,想winamp等获得专集、原唱等信息
解决方案 »
- Delphi 怎样调用系统的"图片和传真查看器"来打开图片
- 长时间循环怎样按纽退出?
- 资源文件的问题
- delphi中如何调用DLL中的类?
- 如何解决Activex新加属性出不来
- 关于用delphi编制的数据库程序是否能够单独运行?
- 在查询Access数据库的字段时,为什么图片字段始终不能正确显示?
- backup database gk to disk......的备份问题
- 在线求助:TDBRichEdit为何不能象Richedit那样针对独立的行写入数据!
- 急。adoquery1.append之后。怎么才能让鼠标点一下就到我指定的行。
- 怎样才能等ms agent 做完动作才执行下一条代码.
- agent 中如何定义右键菜单触发事件?
mpeg是在文件头中的吧
我给你一个控件,邮箱拿来吧
//最后128个字节是相关材料:如歌名作者等,
type
TMP3INFO=packed record
TAGUID:array[0..2] of char;
Title:array[0..29] of char;//标题
Artist:array[0..29] of char;//作者
Album:array[0..29] of char;//专辑
Year:array[0..3] of char;//发行年
Comment:array[0..29] of char;//评论
kind:byte//种类
end;var
fs:TFileStream;
mp3:TMP3INFO;
begin
fs:=TFileStream.create('c:\test.mp3',fmOpenRead);
fs.position:=fs.size-128;
fs.read(mp3,128);
showmessage('标题:'+mp3.Tile+#13#10+'作者'+mp3.Artist);
fs.free;
end;