delphi实现音频传输

 

语音聊天在今天是一个很普通的话题，

小厮写了一段音频采集、网络传输和播放的程序，

实现和简单的语音聊天，

但是语音信息没有经过很好的压缩，

所以，在局域网外，由于网速问题，效果可能不会很理想

下面我们切入正题。

小厮使用的是ACM组件，

ACMWaveOut——播放

ACMWaveIn——采集

ACMDialog——音频格式设置

客户端：

定义一个开始按钮，设置音频格式

procedure TForm1.Button1Click(Sender: TObject);
var
format:pointer;
begin

idudpclient1.Host :='127.0.0.1';
idudpclient1.Port :=8000;
format:=ACMDialog1.OpenDialog;
if format=nil then exit;  

idudpclient1.Active :=true;
ACMWaveIn1.Open(format);
end;

有声音输入时，触发ACMWaveIn1Data事件，

在此事件中，发送音频数据。

因为在ACMWaveIn