用戶名:  密碼:  驗證碼: 驗證碼  注冊  找回
RSS
無雙網
 2019年10月20日 星期日  您現在位于: 首頁 → 技術文欄 → 在Delphi里播放Flash-網站開發(其它相關:在Delp...

在Delphi里播放Flash

2008年04月18日  無雙網  出處:CSDN
 

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

首先,你的機器里要裝有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。



 (本文已被瀏覽 17196 次)
 發布人:asp126
 → 推薦給我的好友
上篇文章:用DELPHI開發AUTHORWARE的u32
下篇文章:用diskid.dll和disk32.dll獲得...
發表評論
  → 評論內容 (點擊查看)   共0條評論,每頁顯示5條評論   瀏覽所有評論
(沒有相關評論)
  → 發表我的評論 (點擊發表)
熱門文章
 保存webbrowser中的HTML內...
 用VB6.0設計簡易賽車游戲
 MSFlexGrid使用技巧一例
 游戲對照表
 Win2003+Discuz!5.5+II...
 添加紅月裝備的詳細教程 (包括裝備 武...
 全部DLL下載
 在Delphi里播放Flash
 用vb6的ActiveX控件實現異步下...
 能否判斷動態數組有沒有被分配過
最新文章
 [ODBC SQL Server Driv...
 評論:115網盤的何去何從
 我科學家實現百公里量級自由空間量子隱形...
 中國智能手機出貨量占全球27%居世界之...
 Gartner:2012 第二季度西歐 P...
 [多圖]華山論劍:當今在世的智商最高的...
 三星獲出租車服務系統專利 可快速查看駕...
 [多圖]15項可能延續到2030年的科...
 分析稱蘋果三星專利大戰輸贏已成定論
 Google終獲云操作系統專利
 網站留言· 友情鏈接·與我在線·網站地圖聯系我們·管理·TOP 
 陜ICP備14011112號  
 Copyright © 2012 Asp126.com Inc. All Rights Reserved.Processed in 0.031s, 8 queries, 33 Cache,0 Online  
福建11选5遗漏