（整天在线）高分请教：Acm语音传输，如何消除回音，如何取消声音选择对话框，设默认参数，再如何降低延迟。

Question

如题

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var format:pointer;
begin
   with udpserver.Bindings.add do
   begin
     ip:='127.0.0.1';
     port:=5678;
   end;
  udpserver.active:=true;
  format:=ACMDialog.OpenDialog;
  if format=nil then exit;
  ACMWaveIn.Open(format);
  ACMWaveOut1.Open(format);end;procedure TForm1.Button2Click(Sender: TObject);
begin
ACMWaveIn.Close;
ACMWaveOut1.Close ;
Button1.Enabled:=true;
Button2.Enabled:=false;
end;procedure TForm1.ACMWaveInData(data: Pointer; size: Integer);
begin
   udpserver.SendBuffer('127.0.0.1',5678,data,size);
end;procedure TForm1.udpServerDataReceived(Sender: TComponent;
 NumberBytes: Integer; FromIP: String; Port: Integer);
begin
  ACMWaveOut1.PlayBack(data,NumberBytes);
end;end.把原DEmo中的tudpsock换成tidudpserver了,但好象有回音，声音不清晰，请大家帮助改进吧！