AI摘要

本文介绍了在Delphi中播放MP3文件的方法。通过使用MCI(媒体控制接口)函数,可以打开并播放指定的MP3文件。示例代码展示了如何在表单创建时初始化MCI参数,打开MP3文件,并使用mciSendCommand函数播放音乐。代码中还包含了异常处理,以确保程序的健壮性。
本文介绍了在Delph

var   
        mciOpenParms:   TMCI_Open_Parms;   
        m_MCIDeviceID:   MCIDEVICEID;  

procedure TForm1.FormCreate(Sender: TObject);
var
mciPlayParms:MCI_PLAY_PARMS;
ret:   integer;
begin
try
  begin
 mciOpenParms.lpstrDeviceType:='';   
      mciOpenParms.lpstrElementName   :=   'xxxx.mp3';   
      mciSendCommand(0,MCI_OPEN,MCI_OPEN_ELEMENT,DWORD(@mciOpenParms));
      m_MCIDeviceID   :=   mciOpenParms.wDeviceID;   
       mciPlayParms.dwCallback   :=   Form1.Handle;   
      mciPlayParms.dwFrom   :=   0;   
      ret   :=   mciSendCommand(m_MCIDeviceID,MCI_PLAY,MCI_FROM   or   MCI_NOTIFY,integer(@mciPlayParms));
      end;
except

end;
end; 



最后修改:2012 年 12 月 25 日
点赞的人是最酷的