使用vc制作媒体播放器[1].doc

VC 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 comman