Delphi的兩個(gè)實(shí)用技巧(1)播放Flash 添加到收藏夾 
   
 日期：2004-11-22 17:30:00   來(lái)源:網(wǎng)上轉(zhuǎn)貼   編輯：本站轉(zhuǎn)  作者：未知  發(fā)送給好友 
 
 

--------------------------------------------------------------------------------
 

  


一.播放Flash

　　首先，你的機(jī)器里要裝有Flash播放軟件（你的IE能顯示Flash）。IE之所以能顯示Flash是安裝了由Macromedia公司提供的swflash.ocx控件，我們可以在Win98的$Windows\System\Macromed \Flash中或在Win2000中的$Winnt\System32\ Macromed\Flash中找到它。ActiveX控件在Windows里是通用的，Delphi也同樣支持。 

　　運(yùn)行Delphi后，選擇選單Component→Import ActiveX Control，找到SWFlash.OCX 文件進(jìn)行安裝。安裝完成后，ActiveX面板里出現(xiàn)TShockwaveFlash控件，這是Delphi對(duì)SWFlash.OCX的封裝，現(xiàn)在我們就可以用這個(gè)控件來(lái)播放Flash了。拖一個(gè)Flash過(guò)來(lái)，放在Form上，指定其Movie屬性為d:\test.SWF，并按F9鍵加以運(yùn)行即可。怎么樣，運(yùn)行效果不錯(cuò)吧？

　　下面，筆者將具體介紹TShockwaveFlash主要屬性、方法和事件，以便于讀者開發(fā)。 

TShockwaveFlash主要屬性如下： 

ReadyState：讀一個(gè)flash文件時(shí)的狀態(tài)，其中包括0=Loading、1=Uninitialized、2=Loaded、3=Interactive和4=Complete；
TotalFrames：總幀數(shù)，只有當(dāng)ReadyState = 4時(shí)才能訪問(wèn)該屬性；
FrameNum：當(dāng)前播放的幀；
Playing：播放或暫停一個(gè)flash；
Quality：指定當(dāng)前渲染的質(zhì)量，包括0=Low, 1=High、2=AutoLow、3=AutoHigh；
ScaleMode：縮放模式，0=ShowAll、1= NoBorder、2 = ExactFit；
AlignMode：對(duì)齊模式，Left=+1、Right=+2、Top=+4、Bottom=+8；
BackgroundColor：背景色，-1為默認(rèn)顏色；
Loop：是否循環(huán)；
Movie：指定播放的flash文件路徑，可以為一個(gè)URL。 

TShockwaveFlash主要方法如下： 

Play()：開始播放動(dòng)畫；
Stop()；停止播放動(dòng)畫；
Back()；播放前一幀動(dòng)畫；
Forward()：播放后一幀動(dòng)畫；
Rewind()：播放第一幀動(dòng)畫；
SetZoomRect(int left, int top, int right, int bottom)：設(shè)置縮放的區(qū)域；
Zoom(int percent)：按百分比縮放；
Pan(int x, int y, int mode)：縮放播放面板，其中模式0為按像數(shù)、1為按窗口百分比。 

TShockwaveFlash主要事件如下： 

OnProgress(int percent)：讀取一個(gè)flash時(shí)觸發(fā)；
OnReadyStateChange(int state)：狀態(tài)改變時(shí)觸發(fā)。states的值可以為0=Loading、1=Uninitialized、2=Loaded、3=Interactive和4=Complete。