首先,你的機器裡要裝有Flash播放軟件(你的IE能顯示Flash)。IE之所以能顯示Flash是安裝了
由Macromedia公司提供的swflash.ocx控件,我們可以在Win98的$WindowsSystemMacromed Flash中
或在Win2000中的$WinntSystem32 MacromedFlash中找到它。ActiveX控件在Windows裡是通用的,
Delphi也同樣支持。
首先,你的機器裡要裝有Flash播放軟件(你的IE能顯示Flash)。IE之所以能顯示Flash是安裝了
由Macromedia公司提供的swflash.ocx控件,我們可以在Win98的$WindowsSystemMacromed Flash中
或在Win2000中的$WinntSystem32 MacromedFlash中找到它。ActiveX控件在Windows裡是通用的,
Delphi也同樣支持。
運行Delphi後,選擇選單Component→Import ActiveX Control,找到SWFlash.OCX 文件進行安裝。
安裝完成後,ActiveX面板裡出現TShockwaveFlash控件,這是Delphi對SWFlash.OCX的封裝,現在我們
就可以用這個控件來播放Flash了。拖一個Flash過來,放在Form上,指定其MovIE屬性為d: est.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。