请问怎样才可以播放音乐，而不用那个专门播放音乐的控件？谢谢

miss 2000-08-20 11:09:00

...全文

141 5 打赏收藏转发到动态举报

写回复

用AI写文章

5 条回复

切换为时间正序

请发表友善的回复…

发表回复

wxz 2000-08-22

打赏
举报

对不起了,网络出了故障

wxz 2000-08-21

打赏
举报

播放wav用playsound
播放midi用mci,如下
打开设备
MCIERROR mciError;
char outBuf[100];
AnsiString Cmd="open ";
Cmd=Cmd+File+ " type sequencer alias "+Alias;
// File:midi文件
mciError=mciSendString(
Cmd.c_str(),outBuf,sizeof(outBuf),File);
if(mciError)
{
mciGetErrorString(mciError,outBuf,sizeof(outBuf));
Application->MessageBox(outBuf,"错误",
MB_SYSTEMMODAL+MB_OK+ MB_ICONSTOP);
}
播放midi
AnsiString Cmd="play ";
Cmd=Cmd+" "+Alias+" notify";
HWND hWnd=Application->Handle;
MCIERROR mciError=mciSendString(Cmd.c_str(),NULL,0,hWnd);
if(mciError)
{
char Buf[100];
mciGetErrorString(mciError,Buf,sizeof(Buf));
Application->MessageBox(Buf,"错误",
MB_SYSTEMMODAL+MB_OK+ MB_ICONSTOP);
}
停止播放
MCIERROR mciError;
AnsiString Cmd="stop ";
Cmd=Cmd+Alias;
mciError=mciSendString(Cmd.c_str(),NULL,0,NULL);
if(mciError)
{
char Buf[100];
mciGetErrorString(mciError,Buf,sizeof(Buf));
Application->MessageBox(Buf,"错误",
MB_SYSTEMMODAL+MB_OK+ MB_ICONSTOP);
}
关闭设备
AnsiString Cmd="close ";
Cmd=Cmd+Alias;
mciSendString(Cmd.c_str(),NULL,0,NULL);

mxp 2000-08-21