《vc开发简单的flash播放器》由会员分享，可在线阅读，更多相关《vc开发简单的flash播放器（5页珍藏版）》请在金锄头文库上搜索。
1、vc开发简单的flash播放器作者：未知 文章来源：网络近日朋友问在VC中如何控制flash文件，俺也没有做过以前，俺是新手再次声明，很菜的，嘿嘿，但俺也期望成为大侠，能够叱诧风云，仗剑行走江湖，路遇不平排忧解难，英雄美女，朝阳晚霞，青山绿水。哈，不好意思，写着写着就歪了。但恐怕所有Man都有过这个理想吧。转入正题，嗯。对了，朋友有难不能不帮，况且还是位MM，哈。俺只好上网找资料了，在baidu搜了一下资料不是很多啊，后来看到有一个用vb做的DIYflash播放器的，就看了一下（就是下面贴的这个）。实现步骤挺简单的，使用Shockwaveflash控件实现，转化成vc实现。嚯嚯。可以向MM邀功
2、了。实现步骤如下:1。新建一个基于对话框的程序,添加变量:intm_nTimer;/Timer时间控制booltimerflag;/Timer启用的标志boolscreenflag;/全屏的标志boolplayflag;/有无文件打开的标志CRectflashrect;/记录Shockwaveflash组件的矩形区域WINDOWPLACEMENTm_FlashPos;/记录Shockwaveflash组件的状态WINDOWPLACEMENTm_WndPos;/记录对话框窗口的状态在对话框的构造函数中将所有bool变量赋值为FALSE。2。在窗体上添加按钮（为了实现简单，俺的功能调用都是通过按钮
3、实现的），设置Capture分别为：“打开”、“播放”、“暂停”、“停止”、“重播”、“后退”、“前进”、“末帧”、“快退”、“快进”、“放大”、“缩小”、“还原”、“关闭”、“全屏”。3。添加一个Shockwaveflash控件，为Shockwaveflash控件添加变量flash；添加一个CSliderCtrl控件，ID为IDC_SLIDER1。4。为各个按钮添加处理代码：“打开”按钮代码：charszFilters=MyTypeFiles(*.swf)|*.swf|;CFileDialogfileDlg(TRUE,swf,*.swf,OFN_FILEMUSTEXIST|OFN_HIDER
4、EADONLY,szFilters,this);if(fileDlg.DoModal()=IDOK)CStringpathName=fileDlg.GetPathName();flash.put_Movie(pathName);playflag=TRUE;if(!timerflag)m_nTimer=SetTimer(1,100,0);/开启计时器timerflag=!timerflag;“播放”按钮代码：flash.Play();“暂停”按钮代码：flash.Stop();“停止”按钮代码：flash.Rewind();flash.Stop();“重播”按钮代码：flash.Rewind()
5、;flash.Play();“后退”按钮代码：flash.Back();“前进”按钮代码：flash.Forward();“末帧”按钮代码：flash.GotoFrame(flash.get_TotalFrames()-1);“快退”按钮代码：intcurrent=flash.CurrentFrame();if(current4)current-=5;flash.GotoFrame(current);elseflash.put_FrameNum(0);“快进”按钮代码：intcurrent=flash.CurrentFrame();inti=flash.get_FrameNum();if(cu
6、rrentSetPos(0);/滑块置零timerflag=FALSE;/playflag=FALSE;/5。添加Slider控件的消息处理函数PreTranslateMessage()响应的消息NM_RELEASEDCAPTURECSliderCtrl*m_pSlider=(CSliderCtrl*)GetDlgItem(IDC_SLIDER1);intnum=m_pSlider-GetPos();num=num*flash.get_TotalFrames()/100;flash.GotoFrame(num);/将下面代码添加到，Dialog类的OnInitDialog()函数中CSlide
7、rCtrl*m_pSlider=(CSliderCtrl*)GetDlgItem(IDC_SLIDER1);m_pSlider-SetRange(0,100);/设定Slider的活动范围是01006。添加Dialog类的OnTimer（）函数响应消息WM_TIMER在OnTimer（）函数中添加代码：CSliderCtrl*m_pSlider=(CSliderCtrl*)GetDlgItem(IDC_SLIDER1);m_pSlider-SetPos(flash.CurrentFrame()*100/flash.get_TotalFrames();7。在Dialog类的DestroyWind
8、ow()函数中添加代码：if(timerflag)KillTimer(m_nTimer);8。“全屏”按钮代码：if(!screenflag&playflag)GetWindowPlacement(&m_WndPos);flash.GetWindowPlacement(&m_FlashPos);flash.GetWindowRect(flashrect);CSliderCtrl*m_pSlider=(CSliderCtrl*)GetDlgItem(IDC_SLIDER1);m_pSlider-ShowWindow(SW_HIDE);HWNDhwnd=this-GetSafeHwnd();LON
9、Gstyle=GetWindowLongPtr(hwnd,GWL_STYLE);SetWindowLongPtr(hwnd,GWL_STYLE,style-WS_CAPTION);CClientDCdc(this);this-MoveWindow(0,0,dc.GetDeviceCaps(HORZRES),dc.GetDeviceCaps(VERTRES);flash.SetWindowPos(&CWnd:wndTop,0,0,dc.GetDeviceCaps(HORZRES),dc.GetDeviceCaps(VERTRES),SWP_SHOWWINDOW);screenflag=TRUE;
10、/9。响应按键ESC消息，取消全屏。重载对话框的PreTranslateMessage（）函数，在函数中添加如下代码：if(pMsg-message=WM_KEYDOWN)if(pMsg-wParam=VK_ESCAPE)if(screenflag)HWNDhwnd=this-GetSafeHwnd();LONGstyle=GetWindowLongPtr(hwnd,GWL_STYLE);SetWindowLongPtr(hwnd,GWL_STYLE,style+WS_CAPTION);ShowWindow(SW_HIDE);SetWindowPlacement(&m_WndPos);flas
11、h.MoveWindow(flashrect.left,flashrect.top,flashrect.Width(),flashrect.Height(),1);flash.SetWindowPlacement(&m_FlashPos);screenflag=FALSE;CSliderCtrl*m_pSlider=(CSliderCtrl*)GetDlgItem(IDC_SLIDER1);m_pSlider-ShowWindow(SW_SHOW);全屏和取消全屏的代码，是俺自己拼凑所得，充其量只是个模拟效果，而且还是个模拟的不好的效果，如果有高手见到，希望能够博您一笑。另外，在笑过之后还请您不吝赐教。俺一定以十二亿万分的热情接受财务盈利能力分析采用的主要评价指标包括静态评价指标和动态评价指标两类。其中静态评价指标主要有投资回收期，投资利润率，投资利税率和资本金利润率；动态评价指标主要有投资回收期，净现值、净现值率，内部收益率。
