用RealPlayer控件制作的播放器.doc

本文介绍如何插入RealPlay控件实现媒体文件的播放，代码运行效果图如下：下面简要介绍一下具体实现步骤：一、建立基于对话框的程序二、在对话框内添加RealPlayer G2 control的ActiveX控件(工程-添加工程-compontent and controls-registed ActiveX controls )。三、在对话框内添加源程序内所示的按钮和静态文本 分别用于控制打开播放等控制及显示歌曲信息 其ID号如源程序四、用MFC映射各按钮消息001.voidCSunapplerealplayerDlg:OnOpen()002.003.charszFileFilter=004.RM File(*.rm)|*.rm|005.Mp3 File(*.mp3)|*.mp3|006.MPEG File(*.mpeg)|*.mpeg|007.Media File(*.asf)|*.asf|008.Video File(*.dat)|*.dat|009.MPGA File(*.mpga)|*.mpga|010.Wave File(*.wav)|*.wav|011.AVI File(*.avi)|*.avi|012.Movie File(*.mov)|*.mov|013.Mid File(*.mid;*,rmi)|*.mid;*.rmi|014.Wma File(*.wma)|*.wma|015.All File(*.*)|*.*|;016.017.CFileDialog dlg(TRUE,NULL,NULL,OFN_HIDEREADONLY,szFileFilter);018.if(dlg.DoModal()=IDOK)019.CString PathName=dlg.GetPathName();020.PathName.MakeUpper();021.m_player-SetSource(PathName);022.m_player-DoPlay();023.SetDlgItemText(IDC_STATIC1,m_player-GetAuthor();024.SetDlgItemText(IDC_STATIC2,m_player-GetTitle();025.SetDlgItemText(IDC_COPYRIGHT,m_player-GetCopyright();026.SetDlgItemText(IDC_SOURCE,m_player-GetSource();027.028.029.030.voidCSunapplerealplayerDlg:OnPlay()031.032.SetDlgItemText(IDC_STATIC1,m_player-GetAuthor();033.SetDlgItemText(IDC_STATIC2,m_player-GetTitle();034.SetDlgItemText(IDC_COPYRIGHT,m_player-GetCopyright();035.SetDlgItemText(IDC_SOURCE,m_player-GetSource();036.m_player-DoPlay();037.038.UpdateData(false);039.SetTimer(1,20,NULL);040.041.042.voidCSunapplerealplayerDlg:OnTimer(UINTnIDEvent)043.044.if(0&isRepeat)045.m_player-DoPlay();046.CDialog:OnTimer(nIDEvent);047.048.049.voidCSunapplerealplayerDlg:OnClose()050.051./添加此代码时不要忘了在stdafx.h开头处添加前两行052.AnimateWindow(GetSafeHwnd(),1000,AW_HIDE|AW_BLEND);053.KillTimer(0);054./055./此处采用DestroyWindow关闭窗口056./多谢杜修杏 老师指点057./058.this-DestroyWindow();059.060.061.062.voidCSunapplerealplayerDlg:OnFullscreen()063.064.m_player-DoPause();065.m_player-SetFullScreen();066.m_player-DoPlay();067.068.069.voidCSunapplerealplayerDlg:OnMp3down()070.071.ShellExecute(NULL,_T(open),,NULL,NULL,TRUE);072.073.074.075.voidCSunapplerealplayerDlg:OnPause()076.077.078.m_player-DoPause();079.080.081.voidCSunapplerealplayerDlg:OnStop()082.083.m_player-DoStop();084.KillTimer(0);085.086.087.voidCSunapplerealplayerDlg:OnRepeat()088.089.m_player-SetLoop(true);090.if(isRepeat)091.isRepeat=FALSE;092.SetDlgItemText(IDC_REPEAT,循环);093.094.else095.096.isRepeat=TRUE;097.SetDlgItemText(IDC_REPEAT,正常);098.002.voidCSunapplerealplayerDlg:OnLower()103.104./ TODO: Add your control notification handler code here105.shortvolume=m_player-GetVolume();106.m_player-DoPause();107.m_player-SetVolume(volume-100);108.m_player-DoPlay();109.110.111.voidCSunapplerealplayerDlg:OnUpper()112.113./ TODO: Add your control notification handler code here114.shortvolume=m_player-GetVolume();115.m_player-DoPause();116.m_player-SetVolume(volume+100);117.m_player-DoPlay();118.119.120.voidCSunapplerealplayerDlg:OnFloat()121.122./ TODO: Add your command handler code here123.ShellExecute(NULL,_T(open),,NULL,NULL,TRUE);124.125.126.voidCSunapplerealplayerDlg:OnPetroleum()127.128./ TODO: Add your command handler code here129.ShellExecute(NULL,_T(open),,NULL,NULL,TRUE);130.五、映射WM_CTLCOLOR消息，用于控制文本显示的颜色01.HBRUSHCSunapplerealplayerDlg:OnCtlColor(CDC* pDC, CWnd* pWnd,UINTnCtlColor)02.03.HBRUSHhbr = CDialog:OnCtlColor(pDC, pWnd, nCtlColor);04.05.if(nCtlColor=CTLCOLOR_STATIC)06.if(pWnd.GetDlgCtrlID()=IDC_VOLUME)07.08.pDC.SetTextColor(RGB(165,182,222);09.pDC.SetBkMode(TRANSPARENT);10.return(HBRUSH) m_brush.GetSafeHandle();11.12.if(pWnd.GetDlgCtrlID()=IDC_STATIC1|pWnd.GetDlgCtrlID()=IDC_STATIC213.|pWnd.GetDlgCtrlID()=IDC_SOURCE|pWnd.GetDlgCtrlID()=IDC_COPYRIGHT)14.15.pDC.SetTextColor(RGB(0,0,255);16.pDC.SetBkMode(TRANSPARENT);17.return(HBRUSH) m_brush.GetSafeHandle();18.19.if(pWnd.GetDlgCtrlID()=IDC_STATIC|pWnd.GetDlgCtrlID()=IDC_INFO)20.21.pDC.SetTextColor(RGB(255,0,0);22.pDC.SetBkMode(TRANSPARENT);23.return(HBRUSH) m_brush.GetSafeHandle();24.25./