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;