在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。
具體幫助請參閱http://www.macromedia.com/support/flash/
此為本人心血來潮之作,不足之處懇請指正,歡迎有興趣者共同探討([email protected])。