如何播放flash?? |
|
jlamlsc
初階會員 發表:55 回覆:60 積分:28 註冊:2002-06-21 發送簡訊給我 |
|
kynix
初階會員 發表:37 回覆:100 積分:37 註冊:2002-06-01 發送簡訊給我 |
這裡有阿
http://delphi.ktop.com.tw/topic.php?TOPIC_ID=18073
請多多利用左上角搜尋的功能 智慧是命運的征服者
------
智慧是命運的征服者 |
hxf_wolf
一般會員 發表:7 回覆:38 積分:9 註冊:2002-03-14 發送簡訊給我 |
一.播放Flash 首先,你的機器里要裝有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。
------
Happy Coding |
jlamlsc
初階會員 發表:55 回覆:60 積分:28 註冊:2002-06-21 發送簡訊給我 |
|
jackkcg
站務副站長 發表:891 回覆:1050 積分:848 註冊:2002-03-23 發送簡訊給我 |
delphi有內件的ocx元件如果找不到 也可以使用VB的ocx使自己的程式撥放
好像只能用*.swf檔 不過它有一個問題如果在撥放第二個不同背景的 swf檔時
顏色會變成上一個的顏色 發表人 - jackkcg 於 2002/07/03 00:19:02
------
********************************************************** 哈哈&兵燹 最會的2大絕招 這個不會與那個也不會 哈哈哈 粉好 Delphi K.Top的K.Top分兩個字解釋Top代表尖端的意思,希望本討論區能提供Delphi的尖端新知 K.表Knowlege 知識,就是本站的標語:Open our mind |
shermen
一般會員 發表:1 回覆:2 積分:0 註冊:2002-07-23 發送簡訊給我 |
|
jackkcg
站務副站長 發表:891 回覆:1050 積分:848 註冊:2002-03-23 發送簡訊給我 |
先參考看看是否有用
【Delphi】【轉貼】用ASP 或者Delphi生成 Flash 動畫
http://delphi.ktop.com.tw/topic.php?topic_id=28198 *********************************************************
哈哈&兵燹
最會的2大絕招 這個不會與那個也不會 哈哈哈 粉好 Delphi K.Top的K.Top分兩個字解釋Top代表尖端的意思,希望本討論區能提供Delphi的尖端新知
K.表Knowlege 知識,就是本站的標語:Open our mind to make knowledge together!
希望能大家敞開心胸,將知識寶庫結合一起
------
********************************************************** 哈哈&兵燹 最會的2大絕招 這個不會與那個也不會 哈哈哈 粉好 Delphi K.Top的K.Top分兩個字解釋Top代表尖端的意思,希望本討論區能提供Delphi的尖端新知 K.表Knowlege 知識,就是本站的標語:Open our mind |
shermen
一般會員 發表:1 回覆:2 積分:0 註冊:2002-07-23 發送簡訊給我 |
非常感謝你ㄉ回覆...我把我ㄉ程式po上
構想是降ㄉ....
首先有個XML格式ㄉplaylist如下:
******************************************************************** 然後我透過TXMLDocument元件去load他(XML playlist) 但是我不會寫event去判別XML節點數(nodes)來跑迴圈... 另外,如何讓程式能播完test1後能繼續播test2...然後一直循環.. procedure TForm1.FormCreate(Sender: TObject); <===希望能自動load XML與播放flash var Playlist: IXMLNode; Src: String; i:Integer; begin if XMLDocument1.Active = false then XMLDocument1.Active:=true; ShowMessage(XMLDocument1.XML.Text); for i := 0 to 2 do <===不會寫event去判別XML節點數(nodes)來跑迴圈 begin Playlist:= XMLDocument1.DocumentElement.ChildNodes[i]; Src:= Playlist.ChildNodes['Src'].Text; Src:='D:\4090資料夾\7_程式軟體\flash\radio\' Src; ShockwaveFlash1.Movie:= Src; <=== 如何讓程式能播完test1後能繼續播test2...然後一直循環.. end; end; end. 謝謝...非常感恩各位大俠相救!!<>> |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |