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

錄音程式問題

尚未結案
huei_brother
一般會員


發表:36
回覆:15
積分:10
註冊:2004-08-23

發送簡訊給我
#1 引用回覆 回覆 發表時間:2004-10-22 23:17:44 IP:211.76.xxx.xxx 未訂閱
(1)我寫了個錄音程式但是都出現以下訊息不知如何解決請大家幫忙     'WindowsMediaplayer1' is not a member of 'TForm1'    (2)還有我想在存錄音檔時自動給個檔名且不要覆蓋之前的檔案而另外產生一各    檔    P.S程式寫法參考leobxb的謝謝您的提供    //-------------------------------------------------------------------    #include  #pragma hdrstop #include "Unit1.h" #include "mmsystem.h" //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma link "WMPLib_OCX" #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("save p1 d:\\123.wav",0,0,0); } //--------------------------------------------------------------------------- void __fastcall TForm1::Button3Click(TObject *Sender) { //選取撥放檔案 if(OpenDialog1->Execute()); Form1->WindowsMediaplayer1->URL=OpenDialog1->FileName; } //-------------------------------------------------------------------
GGL
資深會員


發表:104
回覆:600
積分:335
註冊:2006-11-05

發送簡訊給我
#2 引用回覆 回覆 發表時間:2004-10-23 09:15:28 IP:211.76.xxx.xxx 未訂閱
關於第一個問題,你確定你的Form1下真的有WindowsMediaplayer1這個元件嗎?你會不會打錯了?不然就是你沒另外安裝WindowsMediaplayer,而是用BCB裡面的MediaPlayer 第二個問題,你可以用系統的時間來作為檔案的檔名,這樣就不會發生重複的檔名了,我都是用這種方法的 發表人 - GGL 於 2004/10/23 09:20:12
huei_brother
一般會員


發表:36
回覆:15
積分:10
註冊:2004-08-23

發送簡訊給我
#3 引用回覆 回覆 發表時間:2004-10-23 13:24:10 IP:211.76.xxx.xxx 未訂閱
請問一下GGL你說的系統的時間來作為檔案的檔名如何寫可以幫我說明一下嗎 因剛入門很多東西都還在學習謝謝你囉
GGL
資深會員


發表:104
回覆:600
積分:335
註冊:2006-11-05

發送簡訊給我
#4 引用回覆 回覆 發表時間:2004-10-23 15:30:09 IP:211.76.xxx.xxx 未訂閱
這是我之前寫的部分程式...
   time_temp=Date();
   for(int j=0;j<=1;j  )
   {
       if(time_temp.Pos("/")!=0)
       {
          time_temp.Insert("_",time_temp.Pos("/"));
          time_temp=time_temp.Delete(time_temp.Pos("/"),1);
       }
   }
   save_temp="save p1 " time_temp ".wav";
   mciSendString(save_temp.c_str(),0,0,0);
系統時間:2024-05-14 8:45:47
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!