delphi2007 教程

delphi2007 教程

首页 新随笔 联系 聚合 管理
  1013 Posts :: 0 Stories :: 28 Comments :: 0 Trackbacks
得到一个wma或mp3文件,如何用最简单的方法得到它的长度信息呢? Delphi / Windows SDK/API
http://www.delphi2007.net/DelphiMultimedia/html/delphi_20061108195617169.html
不需要知道歌手名专辑名等,只要长度即可,哪个指令可以做到呢?请给一点代码,万分感谢帮忙的兄弟!

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;

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

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

posted on 2008-11-05 09:37 delphi2007 阅读(469) 评论(0)  编辑 收藏 引用
只有注册用户登录后才能发表评论。