一播放Flash
首先你的機器裡要裝有Flash播放軟件（你的IE能顯示Flash）IE之所以能顯示Flash是安裝了由Macromedia公司提供的swflashocx控件我們可以在Win的$Windows\System\Macromed \Flash中或在Win中的$Winnt\System\ Macromed\Flash中找到它 ![]()
![]()
![]()
![]()
![]()
![]()
![]()
![]()
ActiveX控件在Windows裡是通用的Delphi也同樣支持
運行Delphi後選擇選單Component→Import ActiveX Control找到SWFlashOCX 文件進行安裝安裝完成後ActiveX面板裡出現TShockwaveFlash控件這是Delphi對SWFlashOCX的封裝現在我們就可以用這個控件來播放Flash了拖一個Flash過來放在Form上指定其Movie屬性為d:\testSWF並按F鍵加以運行即可怎麼樣運行效果不錯吧？
下面筆者將具體介紹TShockwaveFlash主要屬性方法和事件以便於讀者開發
TShockwaveFlash主要屬性如下
ReadyState讀一個Flash文件時的狀態其中包括=Loading=Uninitialized=Loaded=Interactive和=Complete
TotalFrames總幀數只有當ReadyState =
時才能訪問該屬性
FrameNum當前播放的幀
Playing播放或暫停一個Flash
Quality指定當前渲染的質量包括=Low =High=AutoLow=AutoHigh
ScaleMode縮放模式=ShowAll= NoBorder = ExactFit
AlignMode對齊模式Left=+Right=+Top=+Bottom=+
BackgroundColor背景色為默認顏色
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)縮放播放面板其中模式為按像數為按窗口百分比
TShockwaveFlash主要事件如下
OnProgress(int percent)讀取一個Flash時觸發
OnReadyStateChange(int state)狀態改變時觸發states的值可以為=Loading=Uninitialized=Loaded=Interactive和=Complete
From:http://tw.wingwit.com/Article/program/Delphi/201311/8387.html
