最新使用vc制作媒体播放器[1]

最新使用vc制作媒体播放器1VC 6.0下自制媒体播放器 - 可视动画控件ActiveMovie是Microsoft公司开发的ActiveX控件，从开始的1.0版、 1.2版到现在的2.0版，功能上已经有了很大的改良。由于该控件内嵌了Microsoft MPEG 音频解码器和Microsoft MPEG视频解码器，所以能够很好地支持音频文件和视频文件， 用其播放的VCD效果就很好。另外，播放时假设用鼠标右键单击画面，可以直接对画面的 播放、暂停、停止等进行控制，读者还可以自行在“属性栏中对影片播放 进行控制设置，用起来非常方便。 在Microsoft公司去年推出的VC+6.0中已经包含了 ActiveMovie控件的2.0版，笔 者 在VC+6.0下利用这个控件自制了一个简易的媒体播 放器，除了满屏功能外，还可以对音量进行控制。下面把具体做法介绍给读者。 - 一 建立工程 - 利用 VC+6.0的AppWizard生成一个基于对话框的工程Player，去掉对话框上的 “确定 和“取消按钮，并参加ActiveMovie控件通常情况 下ActiveMovie控件并不出现在控件面板中，可在菜单中依次选择“project Add To Project Components And Controls，在出现的 “Components And Controls Gallery对话框中翻开“ Registered Active Controls文件夹，选中“ActiveMovie Control Object选项，按“Insert后关闭该对话框，ActiveMovie控件 便出现在控件面板中，调整好控件在对话框中的位置。为了能够控制控件的操作， 应为对话框设计一个菜单，菜单的工程可以定为“文件、“屏幕 控制“和“音量控制。 - 二 添加代码 - 首先利用ClassWizard为ActiveMovie控件声明一个变量m_ActiveMovie。然后 为菜单 “文件添加两个菜单项“翻开文件和“退 出，并分别添加函数OnOpen和OnExit，代码如下： void Cplayer：OnOpen / TODO: Add your command handler code here char szFilter = Video File (*.dat) *.datWave File (*.wav)*.wavAVI File (*.avi) (*.avi)Movie File (*.mov)(*.mov) Media File (*.mmm)(*.mmm)Mid File(*.mid;*.rmi) (*.mid;*.rmi)MPEG File (*.mpeg)(*.mpeg) All File (*.*)*.* ;/用于设置FileDialog的文件类型 CFileDialog FileDlg( TRUE, NULL, NULL, OFN_HIDEREADONLY, szFilter ); if( FileDlg.DoModal() = IDOK ) CString PathName = FileDlg.GetPathName(); PathName.MakeUpper(); m_ActiveMovie.SetFileName(PathName); - OnOpen()函数的作用是显示“翻开对话框，通过该对话框选择 要执行的文件。 void CPlayer：OnExit / TODO: Add your command handler code here OnOK；/退出应用程序 - 为菜单“屏幕控制添加菜单项“满屏，其响应函 数为OnFully，具体代码如下： void CPlayer：OnFully() / TODO: Add your command handler code here m_ActiveMovie.Pause ();/暂停播放 m_ActiveMovie.SetFullScreenMode(true);/设置满屏模式 m_ActiveMovie. Run();/继续播放 m_ActiveMovie.SetMovieWindowSize(SW_SHOWMAXIMIZED); /设置窗口为最大 - ActiveMovie控件还提供了控制音量的两个函数GetVolume()和SetVolume()， 只要在程序中调用这两个函数，便可以到达控制音量的目的。为“音量控制 添加“增加和“减小两个菜单项，其响应函数 分别为： void CVcdDlg:OnAdd() / TODO: Add your command handler code here long m_valume= m_ActiveMovie.GetVolume (); /获取当前音量 m_ActiveMovie.Pause (); m_ActiveMovie.SetVolume(m_valume+100); /用于增加音量 m_ActiveMovie.Run (); void CVcdDlg:OnReducing() / TODO: Add your command handler code here long m_valume= m_ActiveMovie.GetVolume (); m_ActiveMovie.Pause (); m_ActiveMovie.SetVolume(m_valume-100); /用于减小音量 m_ActiveMovie.Run (); - 在声卡的控制菜单上给出了“静音操作，那么能否为我们自 己制作的媒体播放器加上 “静音功能呢？答复是肯定的。虽然 ActiveMovie控件并没有直接提供“静音函数，但可以通过控制函 数SetVolume()的参数来实现“静音的效果。笔者经过反复试验， 当 SetVolume()的参数设为-4000使效果比拟理想。要实现静音功能，应先为“ 音量控制参加菜单项“静音，并添加消息响应函数OnMute， 代码如下： void CVcdDlg:OnMute() / TODO: Add your command handler code here m_ActiveMovie.Pause (); m_ActiveMovie.SetVolume(-4000); m_ActiveMovie.Run (); - 编译运行本程序，便可以用自制的媒体播放器欣赏光盘上的音频或视频节目了。