得到一个wma或mp3文件，如何用最简单的方法得到它的长度信息呢？

Question

不需要知道歌手名专辑名等，只要长度即可，哪个指令可以做到呢？请给一点代码，万分感谢帮忙的兄弟！

Answer 1

uses MMSystem;var
  OpenParms: TMCI_Open_Parms;
  StatusParm: TMCI_Status_Parms;
begin
  OpenParms.lpstrDeviceType := '';
  OpenParms.lpstrElementName := 'c:\1.mp3';
  mciSendCommand(0, MCI_OPEN ,MCI_OPEN_ELEMENT, Longint(@OpenParms));
  StatusParm.dwItem := mci_Status_Length;
  mciSendCommand(OpenParms.wDeviceID, MCI_STATUS, MCI_STATUS_ITEM , Longint(@StatusParm));
  ShowMessage(IntToStr(StatusParm.dwReturn)+'毫秒');
end;

Answer 2

多谢这位仁兄，我看到有的地方说用mediaplayer的length属性也可以，不知哪个好些，而且如果mp3的采样率不是恒定的话，用这种方法可行吗？

Answer 3

汗，我是参考Mediaplayer的Length属性实现代码才写出上面那一段的，实质都是一样的方法。