Transfer from: http: //my.oschina.net/ypimgt/blog/62573
Reproduced please specify from http://www.cnblogs.com/nightnine/
First, the preparatory work
The first step : Download and install the Adobe Flash Player.
Download the latest Flash Player (approximately 2.66M) from the official website (http://get.adobe.com/cn/flashplayer/), and install it. For Windows 32-bit systems, the default installation directory is: C: \ WINDOWS \ system32 \ Macromed \ Flash \; for 64-bit systems, is: C: \ Windows \ SysWOW64 \ Macromed \ Flash.
Flash control major version number is represented by numbers such as 10, 11, etc., minor version number is represented by lower case letters such as a, b, c, d, e. As I installed version: Flash10l.ocx.
Step two : Register flash control Flash10l.ocx by regsvr32.exe.
Open the Run dialog from the Start menu, and type:
regsvr32 C: \ Windows \ SysWOW64 \ Macromed \ Flash \ Flash10l.ocx register the control (after registration you can control is added in the project), if the registration is successful, the following tips:
Logout command line control
regsvr32 / u C: \ Windows \ SysWOW64 \ Macromed \ Flash \ Flash10l.ocx.
Second, the new MFC project, add Flash controls
The first step : the establishment of dialog-based MFC program.
Open Visual Studio 2010, the new project, select "MFC Application", and name it 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的指定属性