求delphi無控件采集麥克風音頻，用UDP收發的代碼。

連接

使用

窗口、消息、系統、變量、類、圖形、控件、表單，

對話框、mmsystem、StdCtrls。

類型

TForm1 = class(TForm)

button 1:TButton；

button 2:t button；

button 4:t button；

save dialog 1:TSaveDialog；

程序按鈕1Click(發件人:to object)；

過程按鈕2Click(發送方:to object)；

過程按鈕3Click(發送方:to object)；

過程按鈕4Click(發送方:to object)；

私人的

{私人聲明}

公眾的

{公開聲明}

結束；

定義變量

form 1:t form 1；

履行

{$R *。dfm}

程序TForm1。Button1Click(發件人:to object)；

開始

mciSendString('close p1 '，0，0，0)；

mciSendStringA(' open new type wave audio alias p 1 '，0，0，0)；

mciSendString('記錄p1 '，0，0，0)；

結束；

程序TForm1。Button2Click(發送方:to object)；

開始

mciSendString('stop p1 '，0，0，0)；

結束；

程序TForm1。Button3Click(發送方:to object)；

開始

mciSendString('play p1 '，0，0，0)；

結束；

程序TForm1。Button4Click(發送方:to object)；

var s:字符串；

開始

如果SaveDialog1。然後執行

s:= ' save p 1 '+save dialog 1 . filename；

mciSendString(pchar(s)，0，0，0)；

結束；

結束。