請問如果播放flash動畫? (我是指如何寫這樣的程式碼?) 謝謝.

這裡有阿 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=18073 請多多利用左上角搜尋的功能 智慧是命運的征服者

------
智慧是命運的征服者

一.播放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

本人十分感謝兩位兄台的回答,我明白了! 多謝多謝!!

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

您好... 我是在看完有關Delphi文章時,看到您正在線上,所以想直接請教你個問題... 我想寫一個程式Flash,但是希望能程式開啟時自動從XML中讀取playlist..撥放數個Flash檔...請問要如何load XML內容ㄋ??謝謝....

先參考看看是否有用 【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

非常感謝你ㄉ回覆...我把我ㄉ程式po上 構想是降ㄉ.... 首先有個XML格式ㄉplaylist如下:               test1 test1.swf Moby test2 test2.swf Buddha Bar test3 test3.swf New Order
******************************************************************** 然後我透過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. 謝謝...非常感恩各位大俠相救!!<>