语音聊天在今天是一个很普通的话题,
小厮写了一段音频采集、网络传输和播放的程序,
实现和简单的语音聊天,
但是语音信息没有经过很好的压缩,
所以,在局域网外,由于网速问题,效果可能不会很理想
下面我们切入正题。
小厮使用的是ACM组件,
ACMWaveOut——播放
ACMWaveIn——采集
ACMDialog——音频格式设置
客户端:
定义一个开始按钮,设置音频格式
procedure TForm1.Button1Click(Sender: TObject);
var
format:pointer;
begin
var
format:pointer;
begin
idudpclient1.Host :='127.0.0.1';
idudpclient1.Port :=8000;
format:=ACMDialog1.OpenDialog;
if format=nil then exit;
idudpclient1.Port :=8000;
format:=ACMDialog1.OpenDialog;
if format=nil then exit;
idudpclient1.Active :=true;
ACMWaveIn1.Ope
ACMWaveIn1.Ope