程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> 更多編程語言 >> Delphi >> Delphi的兩個實用技巧(1)播放Flash

Delphi的兩個實用技巧(1)播放Flash

編輯:Delphi
一.播放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。
  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved