從mic錄音並用udp傳送

發文回覆瀏覽次數：891

推到 Plurk!

推到 Facebook!

尚未結案

8653107
一般會員

發表：13
回覆：4
積分：3
註冊：2003-10-14

發送簡訊給我

#1 引用回覆回覆

發表時間：2003-12-14 22:26:13

IP:140.118.xxx.xxx 未訂閱

請問我要從mic錄音下來再用udp分批傳送的話要怎麼寫啊? 請問這段程式碼的功能可以從mic儲存聲音到c:/嗎小弟是超新手,麻煩指教~#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); } //--------------------------------------------------------------------------- 謝謝!!

taishyang
站務副站長

發表：377
回覆：5490
積分：4563
註冊：2002-10-08

發送簡訊給我

#2 引用回覆回覆

發表時間：2003-12-15 19:37:37

IP:140.135.xxx.xxx 未訂閱

8653107您好: 請參考下面聯結讓您的程式碼更容易閱讀 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=41573

引言:請問這段程式碼的功能可以從mic儲存聲音到c:/嗎

您試試不就知道了< >< > 順心

系統時間：2024-05-10 4:52:16

聯絡我們 | Delphi K.Top討論版

本站聲明

1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！