如何得到MP3的歌名?(50分)

  • 主题发起人 主题发起人 liuguan
  • 开始时间 开始时间
L

liuguan

Unregistered / Unconfirmed
GUEST, unregistred user!
有的mp3的 歌名是数字 但用winamp来播放的时候 就能显示出来歌名
不知如何实现?

有500首mp3 如何得到全部的歌名 并存在文件中?
 
Mp3有个Tag,你可以看看我写过的一段程序
type
TMP3Tag = record
idTAG : array [0..2] of Char;
idSongName :array [0..29] of Char;
idArtist :array [0..29] of Char;
end;
function GetNameFromTag(Mp3File:TFileName):string;
var
Mp3Stream : TFileStream;
ID3 : TMP3Tag;
begin
ZeroMemory(@ID3,SizeOf(ID3));
Mp3Stream := TFileStream.Create(Mp3File,fmOpenRead);
Mp3Stream.Seek(-128, soFromEnd);
Mp3Stream.Read(ID3, SizeOf(ID3));
Mp3Stream.Free;
if ID3.idTAG ='TAG' then
begin
if Trim(ID3.idArtist)='' then
Result := Trim(ID3.idSongName)
else
Result := Trim(ID3.idArtist) + '-' + Trim(ID3.idSongName);
if UpperCase(ExtractFileExt(Result)) <> '.MP3' then
Result := Result + '.mp3';
end
else
Result := Mp3File;
end;
 
关键是TAG标记资料的读取。
 
//ID3 : TMP3Tag
TMP3Tag 是什么东西;查不到帮助
请详谈
 
多人接受答案了。
 
拜托,TMP3Tag是我定义的一个Record啊
 
后退
顶部