VC:制作视频播放器（ActiveX控件、工具栏、菜单栏、滑块、打开对话框））

1、先把文件AMOVIE.OCX复制到某一目录下，例如D:\下，然后选择“开始”|“运行”命令，输入“regsvr32D:\AMOVIE.OCX”,单击“确定”按钮后，弹出对话框，显示注册成功。

2、利用类向导，创建一个基于对话框的应用程序，删除向导自动生成的确定、取消按钮。选择Project？ADD。。。添加ActiveMovie Control Object选项。

3、单击Insert按钮，关闭该对话框，ActiveMovie控件便出现在控件面板中，调整好控件在对话框中的位置。

4、添加菜单资源。。

5、添加工具栏。。。

6、添加滑块控件，及变量。。。

系统实现：

1、设置对话框的最小化，对话框属性对话框中选择Style标签。

2、添加工具栏。在OnInitDialog()函数中：

if (!m_toolbar.CreateEx(this, TBSTYLE_FLAT, WS_CHILD | WS_VISIBLE | CBRS_ALIGN_BOTTOM

|CBRS_TOOLTIPS ) ||

!m_toolbar.LoadToolBar(IDR_TOOLBAR1))

{

TRACE0("Failed to create toolbar\n");

return -1; // fail to create

}

RepositionBars(AFX_IDW_CONTROLBAR_FIRST, AFX_IDW_CONTROLBAR_LAST, 0);

m_toolbar.SetBarStyle(m_toolbar.GetBarStyle()|CBRS_BOTTOM|CBRS_SIZE_DYNAMIC|CBRS_SIZE_DYNAMIC);

3、利用类向导，添加“WM_SIZE”的消息映射：

void CVideoDlg::OnSize(UINT nType, int cx, int cy)

{

CDialog::OnSize(nType, cx, cy);

// TODO: Add your message handler code here

//工具栏处在对话框的下端

RepositionBars(AFX_IDW_CONTROLBAR_FIRST,AFX_IDW_CONTROLBAR_LAST,0);

//为了使滑块控件也可以一直显示在对话框的最下端位置

CRect rect;

GetClientRect(rect);//得到客户端

int top=rect.top;

rect.top=rect.bottom-60;

rect.bottom=rect.top+30;

if (IsWindow(m_sliderctrl.GetSafeHwnd()))

{

m_sliderctrl.MoveWindow(rect);//设置窗口大小

}

4、下面对菜单进行控制，在对话框中的菜单资源是利用对话框属性在对话框中进行绑定的，这时的菜单资源仅仅是与对话框进行绑定。它不能响应ON_UPDATE_COMMAND_UI消息。为了响应这一事件,

需要首先重载ON_WM_INITMENUPOPUP()消息。

void CVideoDlg::OnInitMenuPopup(CMenu* pPopupMenu, UINT nIndex, BOOL bSysMenu)

{

CDialog::OnInitMenuPopup(pPopupMenu, nIndex, bSysMenu);

// TODO: Add your message handler code here

ASSERT(pPopupMenu != NULL);

// Check the enabled state of various menu items.

CCmdUI state;

state.m_pMenu = pPopupMenu;

ASSERT(state.m_pOther == NULL);

ASSERT(state.m_pParentMenu == NULL);

// Determine if menu is popup in top-level menu and set m_pOther to

// it if so (m_pParentMenu == NULL indicates that it is secondary popup).

HMENU hParentMenu;

if (AfxGetThreadState()->m_hTrackingMenu == pPopupMenu->m_hMenu)

state.m_pParentMenu = pPopupMenu; // Parent == child for tracking popup.

else if ((hParentMenu = ::GetMenu(m_hWnd)) != NULL)

{

CWnd* pParent = this;

// Child windows don't have menus--need to go to the top!

if (pParent != NULL &&(hParentMenu = ::GetMenu(pParent->m_hWnd)) != NULL)

{

int nIndexMax = ::GetMenuItemCount(hParentMenu);

for (int nIndex = 0; nIndex < nIndexMax; nIndex++)

{

if (::GetSubMenu(hParentMenu, nIndex) == pPopupMenu->m_hMenu)

{

// When popup is found, m_pParentMenu is containing menu.

state.m_pParentMenu = CMenu::FromHandle(hParentMenu);

break;

}

state.m_nIndexMax = pPopupMenu->GetMenuItemCount();

for (state.m_nIndex = 0; state.m_nIndex < state.m_nIndexMax;state.m_nIndex++)

{

state.m_nID = pPopupMenu->GetMenuItemID(state.m_nIndex);

if (state.m_nID == 0)

continue; // Menu separator or invalid cmd - ignore it.

ASSERT(state.m_pOther == NULL);

ASSERT(state.m_pMenu != NULL);

if (state.m_nID == (UINT)-1)

{

// Possibly a popup menu, route to first item of that popup.

state.m_pSubMenu = pPopupMenu->GetSubMenu(state.m_nIndex);

if (state.m_pSubMenu == NULL ||

(state.m_nID = state.m_pSubMenu->GetMenuItemID(0)) == 0 ||

state.m_nID == (UINT)-1)

{

continue; // First item of popup can't be routed to.

}

state.DoUpdate(this, TRUE); // Popups are never auto disabled.

}

else

{

// Normal menu item.

// Auto enable/disable if frame window has m_bAutoMenuEnable

// set and command is _not_ a system command.

state.m_pSubMenu = NULL;

state.DoUpdate(this, FALSE);

}

// Adjust for menu deletions and additions.

UINT nCount = pPopupMenu->GetMenuItemCount();

if (nCount < state.m_nIndexMax)

{

state.m_nIndex -= (state.m_nIndexMax - nCount);

while (state.m_nIndex < nCount &&

pPopupMenu->GetMenuItemID(state.m_nIndex) == state.m_nID)

{

state.m_nIndex++;

}

state.m_nIndexMax = nCount;

}

void CVideoDlg::OnUpdateStop(CCmdUI* pCmdUI)

{

// TODO: Add your command update UI handler code here

pCmdUI->Enable(flag);

}

6、为了使ActiveMovie控件进行播放，对ActiveMovie控件进行属性设置。

SelectionStart 0

ShowDisplay 真

ShowPositionContrls 真

ShowSelectionControls 假

ShowTracker 真

Volume真

等等。。。

7、利用类向导为ActiveMovie控件添加变量CActiveMovie m_play;添加文件打开消息映射：

void CVideoDlg::OnOpenFile()

{

// TODO: Add your command handler code here

CFileDialog FileDlg(TRUE,NULL,NULL,OFN_HIDEREADONLY|OFN_ALLOWMULTISELECT|OFN_NOCHANGEDIR,

if(FileDlg.DoModal()==IDOK)

{

filename=FileDlg.GetPathName();

m_player.SetFileName(filename);

flag=true;

toolbarctrl->EnableButton(IDM_PLAY,true);

toolbarctrl->EnableButton(IDM_PLAYPAUSE,true);

toolbarctrl->EnableButton(IDM_STOP,true);

toolbarctrl->EnableButton(IDM_ADD_VOLUME,true);

toolbarctrl->EnableButton(IDM_SUB_VOLUME,true);

MoveMovieWindow();

int iInstallresult;

iInstallresult=SetTimer(1,1000,NULL);

if(iInstallresult==0)

{

MessageBox("fail to install the timer!");

}

8、改变对话框的大小以适应ActiveMovie控件的大小：

void CVideoDlg::MoveMovieWindow()//改变窗口大小以适应控件大小

{

CRect rc1,rc2,rc3;

//得到ActiveMovie控件大小

m_player.GetWindowRect(rc1);//保证对话框客户区的宽不小于300象素，高不小于225象素

if(rc1.Width()<300||rc1.Height()<255)

{

rc1.right=rc1.left+300;

rc1.bottom=rc1.top+225;

}

//获得对话框的大小

GetWindowRect(rc2);

//获得对话框客户区大小

GetClientRect(rc3);

//改变对话框大小以适应ActiveMovie控件大小

MoveWindow(rc2.left,rc2.top,rc1.Width()+25,rc1.Height()+130);

Invalidate(true);

}

9、暂停|播放：

void CVideoDlg::OnPlaypause()

{

// TODO: Add your command handler code here

if(playpause==false)

{

m_player.Pause();

playpause=true;

}

else

{

m_player.Run();

playpause=false;

}

10、停止播放：

void CVideoDlg::OnStop()

{

// TODO: Add your command handler code here

m_player.Stop();

flag=false;

toolbarctrl->EnableButton(IDM_PLAYPAUSE,false);

toolbarctrl->EnableButton(IDM_STOP,false);

toolbarctrl->EnableButton(IDM_ADD_VOLUME,false);

toolbarctrl->EnableButton(IDM_SUB_VOLUME,false);

}

11、音量大小调整：

void CVideoDlg::OnAddVolume()

{

// TODO: Add your command handler code here

long m_Reduce = m_player.GetVolume();

if(m_Reduce<0)

{

m_player.Pause();

m_player.SetVolume(m_Reduce+100);

m_player.Run();

}

void CVideoDlg::OnSubVolume()

{

// TODO: Add your command handler code here

long m_Reduce = m_player.GetVolume();

if(m_Reduce>=-1500)

{

m_player.Pause();

m_player.SetVolume(m_Reduce-100);

m_player.Run();

}

12、选择视频大小：

void CVideoDlg::OnSizeFour()

{

// TODO: Add your command handler code here

m_player.Pause();

m_player.SetFullScreenMode(false);

m_player.SetMovieWindowSize(3);

m_player.Run();

num=3;

}

void CVideoDlg::OnUpdateSizeFour(CCmdUI* pCmdUI)

{

// TODO: Add your command update UI handler code here

pCmdUI->Enable(flag);

if(num==3)

pCmdUI->SetCheck(true);

else

pCmdUI->SetCheck(false);

}

void CVideoDlg::OnSizeSixten()

{

// TODO: Add your command handler code here

m_player.Pause();

m_player.SetFullScreenMode(false);

m_player.SetMovieWindowSize(2);

m_player.Run();

num=2;

}

void CVideoDlg::OnUpdateSizeSixten(CCmdUI* pCmdUI)

{

// TODO: Add your command update UI handler code here

pCmdUI->Enable(flag);

if(num==2)

pCmdUI->SetCheck(true);

else

pCmdUI->SetCheck(false);

}

void CVideoDlg::OnSizeTwo()

{

// TODO: Add your command handler code here

m_player.Pause();

m_player.SetFullScreenMode(false);

m_player.SetMovieWindowSize(4);

m_player.Run();

num=4;

}

void CVideoDlg::OnUpdateSizeTwo(CCmdUI* pCmdUI)

{

// TODO: Add your command update UI handler code here

pCmdUI->Enable(flag);

if(num==4)

pCmdUI->SetCheck(true);

else

pCmdUI->SetCheck(false);

}

void CVideoDlg::OnFull()

{

// TODO: Add your command handler code here

m_player.Pause();

m_player.SetFullScreenMode(true);

m_player.SetMovieWindowSize(SW_SHOWMAXIMIZED);

m_player.Run();

num=5;

}

13、添加单击工具栏从头播放的消息映射：

void CVideoDlg::OnPlay()

{

// TODO: Add your command handler code here

m_player.Stop();

m_player.Run();

flag=true;

toolbarctrl->EnableButton(IDM_PLAYPAUSE,true);

toolbarctrl->EnableButton(IDM_STOP,true);

toolbarctrl->EnableButton(IDM_ADD_VOLUME,true);

toolbarctrl->EnableButton(IDM_SUB_VOLUME,true);

}

14、动态的改变对话框的大小，需要利用类向导添加：ActiveMovie的StateChange的消息映射：

void CVideoDlg::OnStateChangeActivemovie1(long oldState, long newState)

{

// TODO: Add your control notification handler code here

MoveMovieWindow();

}

15、捕获播放器的错误：

void CVideoDlg::OnErrorActivemovie1(short SCode, LPCTSTR Description, LPCTSTR Source, BOOL FAR* CancelDisplay)

{

// TODO: Add your control notification handler code here

CString str;

str.Format("出现错误[%d]：\n\n%s",SCode,Description);

AfxMessageBox(str);

*CancelDisplay=TRUE;

}

16、添加响应滑块控件移动的消息映射：ON_WM_HSCROLL的消息映射：

void CVideoDlg::OnHScroll(UINT nSBCode, UINT nPos, CScrollBar* pScrollBar)

{

// TODO: Add your message handler code here and/or call default

if(flag)

{

if(pScrollBar->GetDlgCtrlID()==IDC_SLIDER);

{

int nRunTime = m_sliderctrl.GetPos();

m_player.SetCurrentPosition(nRunTime);

int MaxRange = m_player.GetCurrentPosition();

double sum=m_player.GetDuration();

m_sliderctrl.SetRange(0,int(sum));//需要得到文件长度

m_sliderctrl.SetTicFreq(10);

m_sliderctrl.SetPageSize(10);

}

CDialog::OnHScroll(nSBCode, nPos, pScrollBar);

}

else

{

return;

}

17、播放时显示滑块的相应位置：

void CVideoDlg::OnTimer(UINT nIDEvent)

{

// TODO: Add your message handler code here and/or call default

int pos = m_player.GetCurrentPosition();

double sum=m_player.GetDuration();

m_sliderctrl.SetRange(0,int(sum));

m_sliderctrl.SetPos(pos);

CDialog::OnTimer(nIDEvent);

}

并在OnOpenFile()函数中添加代码：

int iInstallresult;

iInstallresult=SetTimer(1,1000,NULL);

if(iInstallresult==0)

{

MessageBox("fail to install the timer!");

}

18、直接打开帮助文件：

void CVideoDlg::OnHelp()

{

// TODO: Add your command handler code here

ShellExecute(NULL,"open","help.txt",NULL,NULL,SW_SHOWNORMAL);

}

19、关于菜单下的消息映射：

void CVideoDlg::OnAbout()

{

// TODO: Add your command handler code here

CAboutDlg dlg;

dlg.DoModal();

}

posted @ 2012-10-15 21:19 慧由心生阅读(3661) 评论(0) 编辑收藏举报

会员力量，点亮园子希望

刷新页面返回顶部

慧由心生

VC:制作视频播放器（ActiveX控件、工具栏、菜单栏、滑块、打开对话框））

公告