熱點推薦:
您现在的位置: 電腦知識網 >> 編程 >> Delphi編程 >> 正文

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

2013-11-11 21:03:57  來源: Delphi編程 

  一播放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
    Copyright © 2005-2013 電腦知識網 Computer Knowledge   All rights reserved.