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

在Delphi裡播放Flash

編輯:Delphi

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

  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved