請問 如何同時使用兩組喇叭 播兩首歌 |
|
superrakce
一般會員 發表:24 回覆:35 積分:11 註冊:2006-10-09 發送簡訊給我 |
|
japhen
中階會員 發表:2 回覆:57 積分:71 註冊:2006-08-16 發送簡訊給我 |
這超簡單,八行程式就搞定了
1、先去爬舊文裝上dspack 2.34版.................照說明安裝上去,不難不難....BDS2006安裝會有小麻煩,有用到BDS2006的話再討論,以下以DELPHI 7 討論 2、裝上之後,開始設計一個新的WINFORM APPLICATION 3、只要一個空白的FORM,上頭放一個BUTTON,二個FILTERGRAPH,再二個FILTER ( 這裡說的FILTERGRAPH跟FILTER都是DSPACK元件盤里的) 4、不是有二個FILTER嗎?各連一個FILTERGRAPH........ 5、等下我會把我的CODE貼上,我把FILTERGRAPH1、2的名字改成FG1跟2,等下好寫程式嘛... 6、在FILTER1跟2裡有個屬性叫BASEFILTER,點後面點點點鍵去瀏覽,有看到AUDIO RENDER這個目錄嗎?按前面的 顯示內容,就會看到一堆輸出設備.... 理論上你會看到一堆音效卡、DIRECT SOUND、USB AUDIO.............反正不管啦,你就一個FILTER選USB AUDIO,一個選正常的音效卡或DIRECT SOUND就好 接下來就開始程式設計的工作,什麼都別做,就只要在那個BUTTON做ON-CLICK就好 unit DuoSound; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, DSPack; type TForm1 = class(TForm) FG1: TFilterGraph; FG2: TFilterGraph; Filter1: TFilter; Filter2: TFilter; Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin FG1.ClearGraph; FG1.Play; FG2.ClearGraph; FG2.Play; // 你要寫的真的就這八行,真的~~~~然後喇叭跟USB音效輸出端就是二段音樂了!我用MP3做DEMO end; end.
------
歡迎在大陸的台商加入我們的行列 台商小棧 www.twgocn.com |
superrakce
一般會員 發表:24 回覆:35 積分:11 註冊:2006-10-09 發送簡訊給我 |
|
ttnnrsseb
中階會員 發表:31 回覆:77 積分:51 註冊:2004-11-22 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |