MFC与AS3交互
MFC与AS3交互
1.准备工作
第一步：下载并安装Adobe Flash Player。
从官方网站（https://www.wendangku.net/doc/3217881500.html,/cn/flashplayer/）上下载最新的Flash Player，并安装。对于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控件
2.建立基于对话框的MFC程序
打开Visual Studio 2010，新建项目，选择“MFC应用程序”，并将其命名为MFCFlash。
在接下来的选型设置中，选择应用程序类型为“基于对话框”，其他可按默认设置。项目建成后，程序默认添加了MFCFlash和MFCFlashDlg的头文件和实现文件，截图如下：
3.添加Shockwave Flash Object类
在解决方案管理器中选中项目后在菜单中点“项目”→“添加类”→“ActiveX 控件中的MFC类”，打开“从ActiveX控件添加类向导”对话框。选择从“文件”添加类，找到Flash控件的安装位置，即可添加Shockwave Flash控件，接口选择“IShockwaveFlash”，以生成CShockwaveFlash类（类名称可以修改）。插入后，VC会自动把这个类加入工程中。
4.添加Shockwave Flash Object控件
选择主对话框——IDD_MFCFLASH_DIALOG，在其上点右键，选择“插入ActiveX 控件”，从弹出的列表中选择“Shockwave Flash Object”并单击“确定”。
在Flash控件上点右键，然后选择“添加变量”，设定“变量名”为m_FlashPlayer。可再次在Flash控件上点右键，然后选择“属性”，将其ID改为IDC_SHOCKWAVEFLASH。
5.使用成员函数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嵌入到程序里面了。
6.实现MFC与Flash的通信
1.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中发送复杂的字符串。
1.2.MFC通过CallFunction函数调用Flash
第一步：在Flash中注册外部回调函数。
在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("
");
m_FlashPlayer.CallFunction(temp);
注意，
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的指定属性。
7.FLASH控件的属性和方法
1.3.属性
语法: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"
说明:画面质量
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
说明:控件的窗口模式(实现矢量图在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的指定属性