線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:2474
推到 Plurk!
推到 Facebook!

請教BCB的Flash路徑寫法

答題得分者是:GrandRURU
a03021
一般會員


發表:3
回覆:9
積分:2
註冊:2009-07-25

發送簡訊給我
#1 引用回覆 回覆 發表時間:2009-09-07 01:34:46 IP:61.64.xxx.xxx 訂閱
目前只會寫出絕對路徑寫法,

想知道BCB的Flash元件,是否能寫成相對路徑?

目前都是寫C:\Flash\000.swf

很希望能寫成程式資料夾裡的Flash\000.swf

為了要封裝成一套軟體

希望大家幫忙解答 這陣子卡關卡很久!!害我有點急= = 拜託了!




GrandRURU
站務副站長


發表:240
回覆:1680
積分:1874
註冊:2005-06-21

發送簡訊給我
#2 引用回覆 回覆 發表時間:2009-09-07 08:22:31 IP:203.75.xxx.xxx 未訂閱
試試看
[code cpp]
AnsiString sPath = ExtractFilePath(Application->ExeName) "\\Flash\\000.swf";
[/code]

===================引 用 a03021 文 章===================
目前只會寫出絕對路徑寫法,

想知道BCB的Flash元件,是否能寫成相對路徑?

目前都是寫C:\Flash\000.swf

很希望能寫成程式資料夾裡的Flash\000.swf

為了要封裝成一套軟體

希望大家幫忙解答 這陣子卡關卡很久!!害我有點急= = 拜託了!




編輯記錄
GrandRURU 重新編輯於 2009-09-07 08:23:05, 註解 無‧
a03021
一般會員


發表:3
回覆:9
積分:2
註冊:2009-07-25

發送簡訊給我
#3 引用回覆 回覆 發表時間:2009-09-11 21:43:58 IP:61.64.xxx.xxx 訂閱
有試了一下  不過不太知道是要怎麼寫?= =
是加你那段後再寫成這樣movie="sPath"; 還是寫成movie="\\flash\\001.swf";?
我兩個都試過,不過還是不能播,麻煩大大在幫我詳細解釋一下! 謝謝了!!

我的程式碼如下

void __fastcall TForm1::btnPlayClick(TObject *Sender)
{
flashPlay->Movie="C:/flash/001.swf"; //指定播放swf位置
flashPlay->Play(); //播放
}
//---------------------------------------------------------------------------
void __fastcall TForm1::btnStopClick(TObject *Sender)
{
flashPlay->Stop();
flashPlay->Movie = "Null";
}
//---------------------------------------------------------------------------
void __fastcall TForm1::btnpauseClick(TObject *Sender)
{
flashPlay->Stop();
}
//---------------------------------------------------------------------------


careychen
尊榮會員


發表:41
回覆:580
積分:959
註冊:2004-03-03

發送簡訊給我
#4 引用回覆 回覆 發表時間:2009-09-11 22:10:13 IP:59.126.xxx.xxx 訂閱
偷用一下 GrandRURU 大的寫法

===================引 用 a03021 文 章===================
有試了一下 不過不太知道是要怎麼寫?= =
是加你那段後再寫成這樣movie="sPath"; 還是寫成movie="\\flash\\001.swf";?
我兩個都試過,不過還是不能播,麻煩大大在幫我詳細解釋一下! 謝謝了!!

我的程式碼如下

void __fastcall TForm1::btnPlayClick(TObject *Sender)
{
AnsiString sPath = ExtractFilePath(Application->ExeName) "sPath; //指定播放swf位置
flashPlay->Play(); //播放
}
//---------------------------------------------------------------------------
void __fastcall TForm1::btnStopClick(TObject *Sender)
{
flashPlay->Stop();
flashPlay->Movie = "Null";
}
//---------------------------------------------------------------------------
void __fastcall TForm1::btnpauseClick(TObject *Sender)
{
flashPlay->Stop();
}
//---------------------------------------------------------------------------


------
價值的展現,來自於你用哪一個角度來看待它!!
a03021
一般會員


發表:3
回覆:9
積分:2
註冊:2009-07-25

發送簡訊給我
#5 引用回覆 回覆 發表時間:2009-09-11 23:30:20 IP:61.64.xxx.xxx 訂閱
真是很想說一句  "I love you guys!!"

總算解決這問題了!!

謝謝你們!!

系統時間:2024-04-20 4:57:25
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!