回應這篇http://delphi.ktop.com.tw/topic.php?topic_id=50862的討論，除了GGL的版本以DELPHI改寫外，另外也把使用WMP9的ACTIVEX的元件使用，以DSPACK的方式改寫，由於線上廣播是沒有畫面的，這個程式我就沒有安排畫面上去，但播放聲音依舊正常，請放心使用。 里面的程式可以直接執行，不需要安裝DSPACK或WMP9，如果想要看原始程式的話，請先安裝DSPACK 2.3版以上元件庫，亦不需要安裝WMP9也可以直接執行，這樣一來也可以省去了沒有安裝WMP所造成相容性的問題 藏私の禁止

附加檔案：51017_WEBV.rar

另外提一件很重要的事，這個程式的部份檔案(RADIOLIST.INI)使用GGL的發表的程式，希望GGL大大請勿見怪，如有不妥，請惠予告知 藏私の禁止

不會拉...我不會介意

我沒用過DSPack，等等有空也來對我的程式做改寫，免除沒有裝Windows Media Player 9的用戶會有問題的缺點....抄襲一下你的方法囉

可否告訴我DSPack的詳細安裝方法，我在編譯的時候總是有dll出錯，謝謝 ----------要知道自己有多笨，到DelphiK.Top來看看----------

DSPACK的安裝方法    1、你替你的DELPHI下載DSPACK元件套件了沒？沒有的話請到http://www.progdigy.com/下載並直接執行安裝包程式，請注意，這時並不代表你已經安裝完成了，請繼續以下步驟.................. 2、打開你的DELPHI(DSPACK只支援DELPHI5~7的版本、BCB6的版本)，然後FILE→OPEN PROJECT，打開到X:\Program Files\DSPACK\Packages(x:是你的系統碟)檔案類型選到DELPHI PACKAGE(*.dpk *.dpkw) 3、先打開DirectX9_D7.dpk(d7代表你用的是delphi7，其他版本的朋友請打開相應的版本)，然後點compile，然後直接關掉這個DirectX9_D7.dpk，請勿存檔。 4、比照上步驟處理DSPack_D7.dpk 5、最後打開DSPackDesign_D7.dpk→compile→install→直接關閉，請勿存檔 6、然後在delphi的工具列上找到一個tool→Environment，打開Library那頁，點擊Library path後面最右邊的...的鍵，出現Directory的畫面。 7、在Greyed items...底下那一個輸入路徑的後面有個...的鍵，點進去，出現瀏覽資料夾的地方，選到\program files\dspack\src\dspack的資料夾，按確定，回到directory的畫面之後，按add，在list上就會看到剛剛加入的路徑了。 8、跟7步相同，加入\program files\dspack\src\directx9 9、按ok→ok，回到delphi的主畫面，就完成所有的安裝工作了，這時你可以看到你的元件托盤里，出現了一個DSPACK的套件組，只要看到的元件都有個圖標的話，那就代表你已經安裝成功了。 10、別忘記了幫你的電腦裝上一個DIRECTX9，不然有可能會有一些不太相容的情況發生(目前還沒有被我遇到過，我在DIRECTX7的版本RUN我寫的DSPACK的程式，只要不用到VMR的功能，大致上沒有錯誤發生) DSPACK的強大，是建立在DIRECTX->DIRECTSHOW上，不僅開發速度快，執行的速度也是不賴，更可以擺脫使用難看的ACTIVEX元件的麻煩，不過，有一個蠻頭痛的問題，如果你的電腦沒有安裝足夠的視訊編碼器程式的話，可能會造成部份的壓縮格式媒体無法使用，像是DIVX、MPEG4、MPEG2(DVD片)、QUICKTIME的MOV、REALMEDIA的RM、RMVB、RA，還有像OGG、MONKEY的音樂檔，這些不是微軟品牌特殊格式的媒体檔相容的問題，你只要去下載一套K-LITE MEGA PACK1.01版回家安裝，保証你的電影播放程式通吃天下所有的電影檔格式，當然，你的WINDOWS MEDIA PLAYER也可以吃那些媒体檔了，因為WMP也是使用DIRECTSHOW的技術寫成的！ DIRECTSHOW有多強大？除了讓你寫媒体程式可以不用學著怎麼解碼外，你的程式也不用掛掛一大堆DLL來解碼(除非你自己想做DECODER自動安裝包給客戶端)，天下的媒体檔也都被你統一收納，不管是WMA、MP3、AVI、MPG、DAT、DVD....無一倖免，更讓人慶賀的，不管是什麼檔，處理的方法都一樣 FilterGraph.clearGraph; FilterGraph.Active:=true; FilterGraph.Renderfile('mms:\\hichannel.hinet.net\happy.asf'); // 如果是檔案，就直接renderfile('c:\mymovies\可愛的馬.mpg'); FilterGraph.play; 除了媒体檔的處理統一方式以外，還有強大的界面功能，比如VMR多視頻混合輸出的功能，也就是把二個電影片段MIX在一塊播放，有什麼效果？看到你家的電視的第四台上常常出現的LOGO啦，字幕啦，或者卡通人物啦，都可以用VMR合成輸出處理 還可以做淡化後輸出，局部畫面放大，XYZ位移，色調明亮對比調整，無比例縮放(拉長、壓扁..)，全螢幕播放(一個函數做到)，大家期待的KTV去除人聲的功能(粉簡單，三行程式搞定)，高低KEY切換(這要自己寫過濾器，要學PCM的處理才寫的出來)，依時間畫面數定格跳躍，抓電影畫面，DVD轉成VCD的媒体轉壓縮功能(光是把MPEG1的檔案轉成MPEG4就可以省下1/3到1/2的空間，我看八大影業會恨死微軟)，1/4到2.5倍的播放速度調變(SETRATE，所有的媒体檔都可以)，還有WEBCAM/視訊擷取卡的全面支援(除非你的CAM真的很古老，用並列埠的!@#%@#$..)，DVD、MPEG4硬体解壓卡(像REALOGIC的好萊塢卡都支援的很好，WMP還不支援解壓卡咧).......... 拉拉雜雜，還有一項大家幻想已久的功能，就是網路視訊傳送的功能，在DSPACK的DEMOS里有一個ASFWRITER的例子，就是用來把本地的CAM畫面還有麥克風收集的聲音，把自己的電腦做成STREAM SERVER，讓網路上的成員連線進來擷取回去播放，CLIENT端你可以自己寫，也可以拿WMP程式來播放，當然如果你的即時聊天程式加上了ASFWRITER還有播放畫面，就可以讓別人看到你的CAM，你可以看到別人的CAM，程式很簡單，十幾行就搞定，我在KTOP上有發表過，請自行查找囉！ 發表人 - japhenchen 於 2004/06/03 09:23:34

3、先打開DirectX9_D7.dpk(d7代表你用的是delphi7，其他版本的朋友請打開相應的版本)，然後點compile，然後直接關掉這個DirectX9_D7.dpk，請勿存檔。 4、比照上步驟處理DSPack_D7.dpk 5、最後打開DSPackDesign_D7.dpk→compile→install→直接關閉，請勿存檔 例如上述 不好意思,請問有些元件在安裝時都會聲明 *.dpk Install後離開時不要存檔,不知存檔和不存檔有何差異?

因為怕使用者或系統自己改到了什麼東西，save起來可能會導至未來無法再編譯安裝，所以元件提供者大部份都會做這樣的警告提示，況且，save不save都無所謂，反正compile過產生dcp檔之後，之後的dpk只會調用被compile出來的dcp檔，並不會去用到dpk，所以save不save都一樣~不會再被用到了 我所提的安裝方法第3、4步驟是為了產生dcp檔給DSPackDesign_Dx.dpk使用的，所以不需要做install(也沒東西可以install)，在到了DSPackDesign_Dx.dpk這一關才進行install的工作，理解嗎 藏私の禁止

想不到回應這麼快,真謝謝您了,您的說明,我了解. 另,一般元件有分runtime和ide,runtime是供直接呼叫用,只要編譯,不用安裝,ide除了編譯還要安裝才有元件可設計使用,這我也了解,沒問題了.

Th u very much! Very nice! ----------要知道自己有多笨，到DelphiK.Top來看看----------