出自http://my.oschina.net/ypimgt/blog/62573
一、准备工作
第一步：下载并安装Adobe Flash Player。
从官方网站（http://get.adobe.com/cn/flashplayer/）上下载最新的Flash Player（大约为2.66M），并安装。对于Windows 32位系统，其默认安装目录为：C:WINDOWSsystem32MacromedFlash；对于64位系统，为：C:WindowsSysWOW64MacromedFlash。
Flash控件的大版本号用数字表示，如9，10，11等，小版本号用小写字母表示，如a, b, c, d, e。如我安装的版本为：Flash10l.ocx。
第二步：通过regsvr32.exe注册flash控件 Flash10l.ocx。
从开始菜单中打开运行对话框，并输入：
regsvr32 C:WindowsSysWOW64MacromedFlashFlash10l.ocx 注册该控件（注册之后就可以在项目中进行控件添加了），如果注册成功，有如下提示：
注销控件的命令行为
regsvr32 /u C:WindowsSysWOW64MacromedFlashFlash10l.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的指定属性