請問一下如何利用BCB製作錄音程式？(ps.除了利用BCB裡的MediaPlayer元件外還有沒有其他的方法?)謝謝...

可以藉由call Windows API的函式做到 如 waveInStart() 或者其他相關的函式 不過難度比較高，最好是參閱其他線上說明檔

參考看看 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=19618 ********************************************************** 哈哈&兵燹 最會的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

這是 Borland 的 CodeCentral 網站中所登的一篇 "Adding Audio Recording to Builder" ，是用 MCI API 來作的，有 Source Code 可供下載。 http://codecentral.borland.com/codecentral/ccweb.exe/listing?id=17487 Anthony Lee

謝謝各位的回答...我再試試看

用api不知合不合用..... #include  #include #pragma hdrstop #include "Unit1.h" //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma resource "*.dfm" TForm1 *Form1; //--------------------------------------------------------------------------- __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { } //--------------------------------------------------------------------------- void __fastcall TForm1::Button1Click(TObject *Sender) { mciSendString("close p1",0,0,0); mciSendStringA("open new type WAVEAudio alias p1",0,0,0); mciSendString("record p1",0,0,0); } //--------------------------------------------------------------------------- void __fastcall TForm1::Button2Click(TObject *Sender) { mciSendString("stop p1",0,0,0); mciSendString("save p1 ww2.wav",0,0,0); mciSendString("close p1",0,0,0); } //--------------------------------------------------------------------------- void __fastcall TForm1::Button4Click(TObject *Sender) { mciSendString("play p1",0,0,0); } //--------------------------------------------------------------------------- void __fastcall TForm1::Button5Click(TObject *Sender) { mciSendString("close p1",0,0,0); mciSendString("open c:\\ww2.wav type WAVEAudio alias p1",0,0,0); mciSendString("play p1",0,0,0); } //---------------------------------------------------------------------------< >< >

這裏有一個完整的BCB錄音程式Sample 利用API Sample Project: Playing and Recording Sound via the Wave API http://bcbcaq.bytamin-c.com/CAQs/project_WaveRecord.html