MFC中使用FLASH相关

出自http://my.oschina.net/ypimgt/blog/62573

一、准备工作

第一步：下载并安装Adobe Flash Player。

从官方网站（http://get.adobe.com/cn/flashplayer/）上下载最新的Flash Player（大约为2.66M），并安装。对于Windows 32位系统，其默认安装目录为：C:\WINDOWS\system32\Macromed\Flash\；对于64位系统，为：C:\Windows\SysWOW64\Macromed\Flash。

Flash控件的大版本号用数字表示，如9，10，11等，小版本号用小写字母表示，如a, b, c, d, e。如我安装的版本为：Flash10l.ocx。

第二步：通过regsvr32.exe注册flash控件 Flash10l.ocx。

从开始菜单中打开运行对话框，并输入：

regsvr32 C:\Windows\SysWOW64\Macromed\Flash\Flash10l.ocx 注册该控件（注册之后就可以在项目中进行控件添加了），如果注册成功，有如下提示：

注销控件的命令行为

regsvr32 /u C:\Windows\SysWOW64\Macromed\Flash\Flash10l.ocx。

二、新建MFC项目，添加Flash控件

第一步：建立基于对话框的MFC程序。

打开Visual Studio 2010，新建项目，选择“MFC应用程序”，并将其命名为MFCFlash。

在接下来的选型设置中，选择应用程序类型为“基于对话框”，其他可按默认设置。项目建成后，程序默认添加了MFCFlash和MFCFlashDlg的头文件和实现文件，截图如下：

第二步：添加Shockwave Flash Object类。

VC++ 6.0中，可以使用ClassWizard添加ActiveX控件，而VS2005以后的版本没有。如果要添加ActiveX对应的类，可以先在解决方案管理器中选中项目后在菜单中点“项目”→“添加类”→“ActiveX控件中的MFC类”，打开“从ActiveX控件添加类向导”对话框。选择从“文件”添加类，找到Flash控件的安装位置，即可添加Shockwave Flash控件，接口选择“IShockwaveFlash”，以生成CShockwaveFlash类（类的名称可以修改）。插入后，VC会自动把这个类加入工程里面。

第三步：添加Shockwave Flash Object控件。

在资源视图里找到“Dialog”，并选择其中的IDD_MFCFLASH_DIALOG，在其上点右键，选择“插入ActiveX控件”，从弹出的列表中选择“Shockwave Flash Object”。

使用BUTTON、EDIT等其它Windows控件一样，我们可以使用这个类的成员函数来操纵这个对象，来进行Flash动画的控制以及和自己的程序进行交互等操作了。在Flash控件上点右键，然后选择“添加变量”，设定“变量名”为：m_FlashPlayer。可再次在Flash控件上点右键，然后选择“属性”，将其ID改为IDC_SHOCKWAVEFLASH。

第四步：使用成员函数LoadMovie和Play来导入并播放动画。

在MFCFlashDlg.cpp文件中，找到CMFCFlashDlg::OnInitDialog()函数，在“return TRUE”之前添加代码：

CString str = _T("E:\\VS\\Flash\\media\\test.swf");

m_FlashPlayer.LoadMovie (0, str);

m_FlashPlayer. Play ();

其中m_FlashPlayer.LoadMovie(0, str)用来将动画导入程序中，str为要播放的flash路径，要用绝对路径（注意路径用双斜杠“\\”隔开）; m_FlashPlayer. Play ()开始播放动画。

相对路径转绝对路径：

wchar_t szPath[MAX_PATH];

memset(szPath, 0, sizeof(CHAR)*MAX_PATH);

GetCurrentDirectory(MAX_PATH, szPath);

StrCat(szPath, _T("\\风扇.swf"));

现在运行程序，就可以看到flash嵌入到程序里面了。还有几个常用的函数可以用来控制动画的播放，如GotoFrame(long FrameNum)可以转到FrameNum侦播放（侦数从0开始），StopPlay（）可以停止播放。。。，还有很多，可以自己试试。下图是我做的一个飞行仪表，界面比较丑陋，凑合看吧^_^

三、实现MFC与Flash的通信

1、Flash通过FSCommand消息调用MFC

第一步：添加消息处理函数。

在Flash控件上点右键，然后选择“添加事件处理程序”，在类列表选择“CMFCFlashDlg”，消息类型选择“FSCommand”，则函数处理程序名称自动为“FSCommandShockwaveflash”。它的形式大概是这样子的：

　　void CMFCFlashDlg::OnFSCommandShockwaveflash(LPCTSTR command, LPCTSTR args) ;函数有两个参数，就是flash的Action Script中FSCommand语句中的两个参数。其实并不一定两个参数都用到，flash脚本中可以就使用一个参数，这样这边的函数就只要对第一个参数进行处理就行了。

第二步：编写消息处理代码。

在刚添加的FSCommand消息处理函数中，对两个参数进行处理。其实就是做字符串比较的操作，根据是什么字符串来判断用户进行了什么操作。大概就是这样子的：

　　void CPlayFlashDlg::OnFSCommandShockwaveflash1(LPCTSTR command, LPCTSTR args)
{
　　// TODO: Add your control notification handler code here
　　if( 0 == strcmp(command,”bt”) )
　　{
　　　　if( 0 == strcmp(args,”enter”) )
　　　　{
　　　　　　MessageBox(“欢迎进入系统！”);
　　　　}
　　}
　　else if( 0 == strcmp(command,”quit”) )
　　{
　　　　MessageBox(“您选择了退出！”);
　　　　CDialog::OnCancel();
　　}
}　　　　

这只是最简单的处理形式，当然你可以在flash中发送复杂的字符串，在这边就要进行更多的处理了。

2、MFC通过CallFunction函数调用Flash

第一步：Flash中ExternalInterface.addCallback用处理。

在FLASH中，要用ExternalInterface.addCallback把能被外部调用的函数注册一下，例如： ExternalInterface.addCallback("setAlt", setAlt);

function setAlt (para:String = "3150")

{

alt.text = para; //alt为swf文件中的一个动态文本

}

第二步：MFC中使用CallFunction函数传入参数。

想让MFC主动往flash传内容并且让flash响应，用控件的CallFunction方法。在MFC中，调用CallFunction方法，传入一个比较复杂的字符串，描述了要调用的函数的名称、参数等等，以XML的形式呈现。详情参考FLASH帮助的“外部 API 的 XML 格式”一文。此处CallFunction传递的参数为XML格式，如下：

CString temp = _T("<invoke name=\"setAlt\" returntype=\"xml\">\

<arguments><string>3500FT</string></arguments>\

</invoke>");

m_FlashPlayer.CallFunction(temp);

注意，<arguments>必须是完整的一行，具体为什么我也不太清楚。再次运行程序，可以发现ALT的值已经由3280FT变成了3500FT。

shockwave flash object控件的相应类是CShockwaveFlash类，该类的常用函数：

Play()   播放动画           StopPlay()  停止动画         IsPlaying()：动画是否正在播放(true,false)

GotoFrame(frame_number)跳转到某帧(frame_number+1)

TotalFrames() 获取动画总帧数                CurrentFrame()回传当前动画所在帧数-1

Rewind()  使动画返回第一帧                   SetZoomRect(left,top,right,buttom)放大指定区域

Zoom(percent) 改变动画大小                 Pan(x_position,y_position,unit)  使动画在x,y方向上平移

PercentLoaded()返回动画被载入的百分比(0-100)

LoadMovie(level_number,path) 加载动画

TGotoFrame(movie_clip,frame_number)   movie_clip跳转到指定帧数  
TGotoLabel(muvie_clip,label_name)        movie_clip跳转到指定标签  
TCurrentFrame(movie_clip)  回传movie_clip当前帧-1

TCurrentLabel(movie_clip) 回传movie_clip当前标签

TPlay(movie_clip)  播放movie_clip            TStopPlay(movie_clip)  停止movie_clip的播放

GetVariable(variable_name)   获取变量     SetVariable(variable_name,value)  变量赋值

TCallFrame(movie_clip,frame_number)  call指定帧上的action

TCallLabel(movie_clip,label)  call指定标签上的action

TGetProperty(movie_clip,property)  获取movie_clip的指定属性

TSetProperty(movie_clip,property,number)     设置movie_clip的指定属性

MFC中CShockwaveFlash控件相关说明

MFC中播放Flash使用的ActiceX控件Shockwave Flash Object，其对应的类为CShockwaveFlash。下面给出该控件的常用属性和方法说明：

==================================
FLASH播放器控件相关属性和方法说明. 
==================================

++++++++++++++++++++++++
++++++++++属性++++++++++
++++++++++++++++++++++++
语法:AlignMode As Long 
说明:对齐方式(与SAlign属性联动).当控件的长宽比例与影片不一致且WMode不为ExactFit时，影片在控件中显示的位置可用该属性调整.
属性值与相应的对齐方式:
    1:左对齐
    2:右对齐
    4:顶对齐
    8:底对齐 
注意:也可以组合各种对齐方式,就是将这四个基本值组合相加.比如同时左对齐和顶对齐,属性值则设为5.

语法:BackgroundColor As Long
说明:影片的背景色.默认的影片背景色为-1.如果影片设置了底色或有图片当作背景,那么看不出来该属性值的改变会有什么影响 。 
注意:颜色值使用RGB格式的颜色值

语法:Base As String 
说明:指定用于解决影片中所有相对路径的声明的基地址.当影片与其需要的其他文件不在同一目录中的时候该属性特别有用.如不特别指定,Base的值默认为".",也就是当前影片所在的路径.
 
语法:BGColor As String 
说明:影片的背景色.与BackgroundColor不同的是,BGColor是一个六位的十六进制数,每两位分别代表红绿蓝颜色值.如:FFEEAA表示R值为FF,G值为EE,B值为AA.

语法:DeviceFont As Boolean 
说明:决定是否使用影片内嵌的字体,默认值为False.将该属性值设为True则强制播放器不使用影片中内嵌的字体而使用本地系统字体.
 
语法:EmbedMovie As Boolean 
说明:影片是否被存贮到控件所在的容器中.当你已载入一个影片后将该属性设为True,播放影片时就不必再去读取SWF文件了.这样可以使SWF文件镶进程序中,不必再读取文件.但将该属性设为True后,控件的Movie属性就不再接受新的值了.要想播放另一个影片(给Movie属性赋新值),必须先将该属性(EmbedMovie)设为False.

语法:FrameNum As Long 
说明:影片当前帧的编号(从0开始计数).设置该属性值将使影片停在由FrameNum指定的帧处.
注意:不仅可以从中获得当前帧,还可以设置当前帧,即跳转到某帧

语法:Loop As Boolean 
说明:控制影片是否循环播放.设为True就是循环播放,设为False则只播放一次.

语法:Menu As Boolean 
说明:是否显示菜单.设为True显示所有菜单,设为False菜单被屏蔽,但仍有一项"About Macromedia Flash Player...",点击后会打开Macromedia的网站.如果你实在不喜欢这个菜单,应该在程序中通过拦截鼠标消息的方法来达到目的.

语法:Movie As String 
说明:要播放的影片路径(URL).设置该属性为一个SWF文件的URL,当该属性被设置后,控件将自动载入文件并播放它.

语法:Playing As Boolean 
说明:当前播放状态.如果影片正在播放,该属性值为True,否则为False.

语法:Quality As Long 
说明:画面质量.
Quality的属性可以取: 
    0:相当于Quality2取"Low" 
    1:相当于Quality2取"High" 
    2:相当于Quality2取"AutoLow" 
    3:相当于Quality2取"AutoHigh"

语法:Quality2 As String 
说明:画面质量
Quality的属性可以取:
    Low:偏重于播放速度而不管显示效果,而且不启用消除锯齿功能.
    High:偏重于画面而不管播放速度,并且总是启用消除锯齿功能.如果影片中不包含动画就平滑处理位图;如果有动画,那么位图就不被平滑处理.
    AutoLow:先着重于播放速度,但只要有可能就改善显示效果.一开始播放时先禁用消除锯齿功能.如果播放器检测到处理器能承受得了,就启用消除锯齿功能.
    AutoHigh:一开始是播放速度和显示效果并重,但如有必要就牺牲画质确保速度.开始播放时就启用消除锯齿功能.但如果实际的帧速率比设计时指定的速率慢了,就禁用消除锯齿功能来提高播放速度.

语法:ReadyState As Long 
说明:影片的当前状态.
ReadyState的值有:
    0:正在载入
    1:未初始化
    2:已载入
    3:正在交互
    4:完成例子
注意:可以使用该属性来粗略的判断SWF文件的读取进度,但如果想得到更精确的判断,应该在在SWF文件中使用FScommand()来达到与VB的互动与联系,即传送资料给VB.
 
语法:SAlign As String 
说明:对齐模式.与上文的AlignMode相同,但值的形式不同罢了.
可取值:
    L:即左对齐
    T:即顶对齐
    R:即右对齐
    B:即底对齐
注意:当使用组合对齐方法是L,T,R,B的先后顺序不能变,如:左和底的对齐:SAlign="LB"

语法:Scale As String 
说明:控制影片的缩放模式.
Scale的值可以取:
    ShowAll:在控件内显示全部影片区域,保持影片长宽比例不变,影片的大小决定于控件长或宽中较小的一边.
    NoBorder:在控件内显示部分影片区域,保持影片长宽比例不变,影片的大小决定于控件长或宽中较大的一边.
    ExactFit:在控件内显示全部影片区域,不考虑影片的长宽比例,强制将影片的长宽等于控件的长宽.

语法:ScaleMode As Long 
说明：缩放模式,与Scale相同,只不过属性值为数字而已.
ScaleMode可以取： 
    0:相当于Scale取"ShowAll" 
    1:相当于Scale取"NoBorder" 
    2:相当于Scale取"ExactFit"

语法:TotalFrames As Long 
说明:返回影片中总帧数.该参数要到影片载入完成才有效,即ReadyState=4

语法:WMode As String 
说明:控件的窗口模式(实现矢量图在VB界面显示的重要属性).
WMode可以取:
    Window:WMode属性的默认值,按Flash播放器典型的方式工作,即在控件的矩形窗口中播放影片,这样一般都能提供最快的动画效果.
Opaque:使影片不透明.
    Transparent:创建一个透明的影片,如果影片中有透明的片段时,就可以看到控件下面的背景.但使用此属性值,动画的播放速度可能会慢一些.

++++++++++++++++++++++++
++++++++++方法++++++++++
++++++++++++++++++++++++
Play()                                                       // 播放动画

StopPlay()                                                // 停止动画

IsPlaying()                                                // 动画是否正在播放(true,false)

GotoFrame(frame_number)                     // 跳转到某帧(frame_number+1)

CurrentFrame()                                        // 回传当前动画所在帧数-1

Rewind()                                                   // 使动画返回第一帧

SetZoomRect(left,top,right,buttom)           // 放大指定区域

Zoom(percent)                                          //  改变动画大小

Pan(x_position,y_position,unit)                 // 使动画在x,y方向上平移

PercentLoaded()                                      //返回动画被载入的百分比(0-100)

LoadMovie(level_number,path)                // 加载动画

GetVariable(variable_name)                     // 获取变量

SetVariable(variable_name,value)            //变量赋值

TotalFrames()                                           // 获取动画总帧数

TPlay(movie_clip)                                      // 播放movie_clip

TStopPlay(movie_clip)                               //停止movie_clip的播放

TGotoFrame(movie_clip,frame_number)   // movie_clip跳转到指定帧数

TGotoLabel(muvie_clip,label_name)         // movie_clip跳转到指定标签

TCurrentFrame(movie_clip)                       // 回传movie_clip当前帧-1

TCurrentLabel(movie_clip)                        // 回传movie_clip当前标签

TCallFrame(movie_clip,frame_number)     // call指定帧上的action

TCallLabel(movie_clip,label)                      // call指定标签上的action

TGetProperty(movie_clip,property)            // 获取movie_clip的指定属性

TSetProperty(movie_clip,property,number)// 设置movie_clip的指定属性