delphi裡播放flash

    在flash大行其道的今天，是否想過在你的程序裡也加入幾幅flash炫一炫？我們就來試試，前提是你要裝有flash播放軟件（你的IE能顯示flash），IE之所以能顯示flash是安裝了一個swflash.ocx控件，由Macromedia, Inc.提供，我們也用它了，win98在$WindowsSystemMacromedFlash，win2k在$WinntSystem32MacromedFlash下。ActiveX控件在Windows裡是通用的，delphi當然也支持，打開你的delphi我們開始了。選擇菜單Component --> Import ActiveX Control，選擇SWFlash.OCX 文件，安裝，完成後在ActiveX面板裡出現TShockwaveFlash控件，這是delphi對SWFlash.OCX的封裝，現在我們就可以用這個控件來播放Flash了。拖一個過來放在form上，指定其MovIE屬性為d: est.SWF，按F9，一切OK。Delphi編程就是這麼輕松、自在。

　　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 - 背景色，red*65536+green*256+blue，-1為默認顏色。

　　Loop - 是否循環。

　　MovIE - 指定播放的Flash文件路徑，可以為一個URL.

　　方法：
　　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-按窗口百分比

　　事件：
　　OnProgress(int percent) - 讀取一個Flash時觸發。

　　OnReadyStateChange(int state) - 狀態改變時觸發。states 可以為 0=Loading, 1=Uninitialized, 2=Loaded, 3=Interactive, 4=Complete。