一.播放Flash
首先，你的機器裡要裝有Flash播放軟件（你的IE能顯示Flash）。IE之所以能顯示Flash是安裝了由Macromedia公司提供的swflash.ocx控件，我們可以在Win98的$Windows\System\Macromed \Flash中或在Win2000中的$Winnt\System32\ Macromed\Flash中找到它。ActiveX控件在Windows裡是通用的，Delphi也同樣支持。
運行Delphi後，選擇選單Component→Import ActiveX Control，找到SWFlash.OCX 文件進行安裝。安裝完成後，ActiveX面板裡出現TShockwaveFlash控件，這是Delphi對SWFlash.OCX的封裝，現在我們就可以用這個控件來播放Flash了。拖一個Flash過來，放在Form上，指定其MovIE屬性為d:\test.SWF，並按F9鍵加以運行即可。怎麼樣，運行效果不錯吧？
下面，筆者將具體介紹TShockwaveFlash主要屬性、方法和事件，以便於讀者開發。
TShockwaveFlash主要屬性如下：
ReadyState：讀一個Flash文件時的狀態，其中包括0=Loading、1=Uninitialized、2=Loaded、3=Interactive和4=Complete；
TotalFrames：總幀數，只有當ReadyState = 4時才能訪問該屬性；
FrameNum：當前播放的幀；
Playing：播放或暫停一個Flash；
Quality：指定當前渲染的質量，包括0=Low, 1=High、2=AutoLow、3=AutoHigh；
ScaleMode：縮放模式，0=ShowAll、1= NoBorder、2 = ExactFit；
AlignMode：對齊模式，Left=+1、Right=+2、Top=+4、Bottom=+8；
BackgroundColor：背景色，-1為默認顏色；
Loop：是否循環；
MovIE：指定播放的Flash文件路徑，可以為一個URL。
TShockwaveFlash主要方法如下：
Play()：開始播放動畫；
Stop()；停止播放動畫；
Back()；播放前一幀動畫；
Forward()：播放後一幀動畫；
Rewind()：播放第一幀動畫；
SetZoomRect(int left, int top, int right, int bottom)：設置縮放的區域；
Zoom(int percent)：按百分比縮放；
Pan(int x, int y, int mode)：縮放播放面板，其中模式0為按像數、1為按窗口百分比。
TShockwaveFlash主要事件如下：
OnProgress(int percent)：讀取一個Flash時觸發；
OnReadyStateChange(int state)：狀態改變時觸發。states的值可以為0=Loading、1=Uninitialized、2=Loaded、3=Interactive和4=Complete。
