各位前輩大家好!! 小弟我最近參考了這個板上的資料.. 寫了一個簡易的錄音程式(都是抄這個板上的資料><).. 我用mciSendString錄出來的聲音都不請楚呢!!! 沒辦法像WINDOWS內建的錄音程式好說.. 請問有什麼辦法可以錄出較清晰的音質呢??? 其實我一開始市想用MediaPlayer來寫錄音程式. 但都找不到這方面的資料...小弟功力太差!!    以下是我的程式碼

#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::btnstartClick(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::btnstopClick(TObject *Sender)
{
   //錄音儲存到c:\123.wav
   mciSendString("stop p1",0,0,0);
   mciSendString("save p1 C:\\123.wav",0,0,0);
   mciSendString("close p1",0,0,0);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::btnplayClick(TObject *Sender)
{
   //撥放錄的聲音
   mciSendString("close p1",0,0,0);
   mciSendString("open C:\\123.wav type WAVEAudio alias p1",0,0,0);
   mciSendString("play p1",0,0,0);
 //MediaPlayer1->Play();
} 

發表人 - mtmkid 於 2004/04/12 15:42:33 發表人 - mtmkid 於 2004/04/12 15:44:56

mtmkid您好: 由於您是第一次發言,可能還沒看過版規 > < href="http://delphi.ktop.com.tw/topic.php?TOPIC_ID=47262">http://delphi.ktop.com.tw/topic.php?TOPIC_ID=47262 順心

引言: mtmkid您好: 由於您是第一次發言,可能還沒看過版規 > < href="http://delphi.ktop.com.tw/topic.php?TOPIC_ID=47262">http://delphi.ktop.com.tw/topic.php?TOPIC_ID=47262 順心 < face="Verdana, Arial, Helvetica"> 真是不好意思呢!!!< > 我已經改了可是好像也沒啥改變阿 怪怪...< >

錄音品質是要用硬體來克服的，錄音室裏的麥克風一隻要七八萬塊台幣，混音座要幾十萬到幾百萬，錄音用的電腦要十萬，錄音用的介面卡也是十到五十萬，還有軟體.... 所以....不用想怎麼用200塊錢的麥克風 500塊的音效卡 不到三萬塊的PC就錄到好音質........ 我是gwanlin

------
我是gwanlin

提高bitrate and sample rate試試看    

mciSendStringA("open new type WAVEAudio alias p1",0,0,0);
mciSendString("set p1 channels 2 bitspersample 16 samplespersec 44100",0,0,0);
mciSendString("record p1",0,0,0);

試試看 控制台的聲音裝置=>音訊=>音效錄音 (進階) => => 效能 => 取樣頻率 調到最好