需要一个用vc制作的能播放rm格式的播放器的小程序，最好具体讲解一下制作过程，谢谢大家了
热心网友
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 herechar szFilter[] = " Video File (*。dat)∣*。dat∣Wave File (*。wav)∣*。wav∣AVI 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 hereOnOK（）；//退出应用程序}---- 为菜单“屏幕控制”添加菜单项“满屏”，其响应函数为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 herelong 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 herelong 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 herem_ActiveMovie。Pause ();m_ActiveMovie。SetVolume(-4000);m_ActiveMovie。Run ();}---- 编译运行本程序，便可以用自制的媒体播放器欣赏光盘上的音频或视频节目了。