Question

如何在Delphi里使用TMediaPlayer控件获取一个MP3文件的准确长度

我尝试了用TMediaPlayer的Length属性来获取，其timeformat设为milliseconds和tfHMS、tfMSF这些都试过了，换算以后时间和准确时间差很多（准确时间应该是2分29秒，我换算出来都是25分多），文件是MP3文件，CBR编码，比特率为128KB/s。如果用TMediaplayer不行，请指点应该如何实现。

Answer 1

   Mp3size:=MediaPlayer1.Length div 1000;
   minutesMax:=Trunc(Mp3size/60);  //分
   SecondMax:= Mp3size mod 60;     //秒

 length 获取的是毫秒。

追问

谢谢回答，这个办法我试过，不过不是所有的MP3文件都有效，测试文件是
http://down.51voa.com/201310/se-canada-alice-munro-wins--nobel-prize-literature-25oct13.mp3

不管怎么改mediaplayer的timeformat属性，最后得到的Length都是文件大小（字节数）。

追答

我下载的测试图。

没用设置任何属性，直接把MediaPlayer控件丢在界面上。

追问

嗯，你用天天静听打开这个文件看一下，总长度不是9分钟，是2分29秒。

追答

你那里肯定有问题，我用千千静听打开也是9分钟

迅雷、快播、暴风 打开都是9分钟。

Answer 2

注意MP3文件的格式，看一下比特率是不是标准的32，64，96，128，192，224，256，320。如果不是用转换软件转换一下，转换后的文件都能准确获取时间长度。