MP3文件格式: 最后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.read(fs.size-128,128); showmessage('标题:'+mp3.Tile+#13#10+'作者'+mp3.Artist); fs.free; end;
最后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.read(fs.size-128,128);
showmessage('标题:'+mp3.Tile+#13#10+'作者'+mp3.Artist);
fs.free;
end;