求解决语音聊天问题！

Question

我正在做一个广域网的语音聊天系统，请各位大侠赐我些帮助，最好是给个原码让我参考一下，小弟将重重有谢啊！

Answer 1

用DELHI写吗？？感觉DELPHI不是很适合做WEB应用

Answer 2

procedure TForm1.ACMWaveIn1Data(data: Pointer; size: Integer);
var
r,l:integer;
mdata:array[1..65535] of char;
k:integer;
begin
  if  Size<=0 then exit;
  for k:=1 to size do mdata[k]:=pchar(dword(data)+k-1)^;
  IdUDPServer1.SendBuffer(Edit1.Text,4000,mdata,size);
  ACMWaveIn1.CountVolume(Data,Size,wWaveFormat,r,l);
  ACMWaveIn1Data(data,size);
  ACMWaveIn1.ScaleBy(r,l);
  ProgressBar1.Position := l;
  ProgressBar2.Position :=r;
end;
请问一下CountVolume是什么意思，怎么调试显示没有这个函数呢？这个事件是不是有声音输入时就执行此代码的事件啊？请各位大侠赐教！

Answer 3

http://www.delphibox.com/article.asp?articleid=2820

Answer 4

ACMWaveIn
我也在有这套东西但是延时好严重
关注！