如何讓程式播完後能繼續播下一個節目?? |
尚未結案
|
shermen
一般會員 發表:1 回覆:2 積分:0 註冊:2002-07-23 發送簡訊給我 |
構想是降ㄉ....
首先有個XML格式ㄉplaylist如下: 〈XML〉
〈playlist〉
〈name〉test1〈/name〉
〈src〉test1.swf〈/src〉
〈description〉Moby〈/description〉 〈name〉test2〈/name〉
〈src〉test2.swf〈/src〉
〈description〉Buddha Bar〈/description〉 〈name〉test3〈/name〉
〈src〉test3.swf〈/src〉
〈description〉New Order〈/description〉 〈/playlist〉
〈/XML〉 ********************************************************************
然後我透過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. 謝謝...非常感恩各位大俠相救!
|
CHIWW
初階會員 發表:8 回覆:16 積分:29 註冊:2002-09-15 發送簡訊給我 |
procedure TForm1.FormCreate(Sender: TObject); <===希望能自動load XML與播放flash
var
Playlist: IXMLNode;
Src: String;
i:Integer;
begin
//設定要載入檔名
XMLDocument1.FileName:='要載入的檔名'; if XMLDocument1.Active = false then
XMLDocument1.Active:=true;
ShowMessage(XMLDocument1.XML.Text); //用下列方法
for i :=0 to XmlDocument1.DocumentElement.ChildNodes.Count -1 do
begin
Playlist:= XMLDocument1.DocumentElement.ChildNodes[I];
For J:=0 to PlayList.ChildNodes.Count-1 do
begin
if PlayList.ChildNodes[J].NodeName='src' then
begin
Src:=PlayList.ChildNodes[J].Text; Src:='D:\4090資料夾\7_程式軟體\flash\radio\' Src;
//以下因為沒有該元件,所以無法為你測試
//ShockwaveFlash1.Movie:= Src;// <=== 如何讓程式能播完test1後能繼續播test2...然後一直循環.. Listbox1.Items.Add(Src);
end;
end; end; end;
end.
|
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |