一、準備工作
第一步：下載並安裝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的指定屬性