实例9在程序中播放Flash动画.docVIP

实例9 在程序中播放Flash动画 实例目的 Flash动画由于可以很方便地把用户的想象通过动画显现出来，使原本只属于专业制作人员的动画制作变的异乎寻常的快捷、方便。由于Flash制作的动画在层次、内容、表现形式等诸多方面均比较出色，因此在网络上得到迅猛的发展，更有不少厂商用Flash在互联网上做起了广告和产品演示，效果丝毫不比视频的差，而体积则要小的多。Flash不仅在网络上有广泛的应用，在普通的应用程序中也可以借助Flash实现一些VC、Delphi等编程语言所难以实现的特效。本例就将介绍如何在程序中实现Flash动画的播放。通过“打开”菜单选项，可以播放Flash动画，而“重放”和“停止”选项也完成对应的功能。 实现方法 swf格式的Flash动画通常主要应用在网页上，IE浏览器本身可以支持Flash动画的播放。VC ++ 6.0中新增了一个从CView派生的、用于处理网页的类CHtmlView，因为该类是以Internet Explorer为后台支持，所以在创建工程时只需在最后一步指定视图类从CHtmlView派生就可以使程序具备IE浏览器的网页显示能力。这样就不必再单独编写用于播放swf格式文件的代码，从而大大减少编程的工作量，可以方便的实现Flash动画的播放。实现过程的主要步骤如下： 1． 创建基类为CHtmlView类的类，从而具备IE播放Flash的功能； 2． 从打开文件对话框由GetPathName函数获取用户选择的swf文件的全路径； 3． 在主窗口中用Navigate2函数播放Flash； 因为此例只是为了播放Flash，所以可以重写OnFileOpen函数指定默认的文件类型为.swf。 程序代码 1． 利用AppWizard生成一个名为FlashPlayer的SDI工程，其他步骤均采用VC的默认配置（注意取消Print And PrintView的选定，并指定CFlashPlayerView类的基类为CHtmlView类）。 2． 在Menu编辑器中修改菜单项“文件”，其子项只保留“打开”、“最近工作”和“退出”，添加新的子项“停止”和“重放”，对应的ID分别为ID_MYSTOP和ID_MYREPLAY。并利用ClassWizard在CFlashPlayerView类中添加消息处理函数OnFileOpen、OnMystop和OnMyreplay。 3． 为CFlashPlayerView类增加如下成员变量，用来存储要打开的swf文件的路径： CString m_strPath; //存储要播放的flash的路径 4． 修改CGradualChangeView类的OnInitialUpdate函数，使用空白页作为默认主页： void CFlashPlayerView::OnInitialUpdate() { CHtmlView::OnInitialUpdate(); // TODO: This code navigates to a popular spot on the web. // change the code to go where youd like. //改用空白页作为默认页，_T是为了码制兼容性，可以不要 Navigate2(_T(about:blank),NULL,NULL); } 5． 重写OnFileOpen函数，添加如下代码，指定打开的文件格式为.swf： void CFlashPlayerView::OnFileOpen() { // TODO: Add your command handler code here //打开文件对话框，只允许打开.swf文件 //第一个参数表示对话框为“打开”而不是“另存为” //第二个参数表示默认的文件扩展名，如果为空则程序不会为文件添加任何扩展名 //第三个参数表示默认的文件名，第四个参数允许用户定制对话框 //第五个参数表示允许打开的文件格式，其他格式的文件将不显示 //第六个参数表示该对话框的拥有者 CFileDialog dlg(TRUE, .swf, NULL, OFN_HIDEREADONLY, Flash (*.swf)|*.swf||, NULL); if(dlg.DoModal() == IDOK) { //获取文件路径，播放flash m_strPath = dlg.GetPathName(); Navigate2(m_strPath, NULL, NULL); } } 6． 在OnMyreply函数中添加如下代码，重放Flash： void CFlashPlayerView::OnMyreply() { // TODO: Add yo