网络声音传输问题。(50分)

发送端代码：
procedure TRecorderForm.MMWimData(var msg: TMessage);
var
LTPwavehdrWAVEHDR;
buf:array[0..4128] of Char;
begin

//do
ne recording buffer, write it out
LTPwavehdr := PWAVEHDR(msg.lparam);

if FRecorderMode <> recModeOff then

begin

waveInAddBuffer(FWaveIn, LTPwavehdr, sizeof(TWAVEHDR))

CopyMemory(@buf[0], LTPwavehdr ,32);
CopyMemory(@buf[sizeof(TWAVEHDR)],LTPwavehdr.lpData ,4096);

// showmessage(inttostr(sizeof(TWAVEHDR)));
udpc.SendBuffer('218.12.77.188',3332,buf, 4128);
end
else

CloseWaveDeviceRecord;
// stop recording...
end;

end.


接收端代码：
procedure TRecorderForm.UDPSUDPRead(Sender: TObject;
AData: TStream;
ABinding: TIdSocketHandle);
var Buf :array[0..WAVE_BUFSIZE+sizeof(WAVEHDR)] of Char;
MyStream: TMemoryStream;
LpHead: PWAVEHDR;
str:string
begin

FillChar(Buf,sizeof(Buf),0);

AData.Read(Buf,Adata.Size);
LpHead:=PWAVEHDR(@Buf[0]);
LpHead.lpData:=@Buf[sizeof(WAVEHDR)];

label1.Caption:=inttostr(LpHead.dwBytesRecorded);
label2.Caption:=datetimetostr(Now);
label3.Caption:=inttostr(sizeof(buf));
waveOutPrepareHeader(FWaveOut, LpHead, sizeof(TWAVEHDR));
waveOutWrite(FWaveOut,LpHead,FWaveBufSize)

end;


用上面的接收的代吗可以正确接收VC程序发出的声音，但接不到上面发送端发出的声音不知为什么，请大家帮帮看一下。Email:Lt_wxy@163.com.谢谢。

什么意思？什么叫可以正确接收VC程序发出的声音，但接不到上面发送端发出的声音？
既可以接收又不能接收？WaveFormatEx对吗？

To firstrose
我现在有一个用VC写的语音发送和接收的程序，还有一个用Delphi写的语音发送和接收的程序（代吗在上面），VC的程序能正常正常发送和接收声音数据，但Delphi的程序工作不正常，Delphi程序的接收端可以接收VC程序发出的音频数据也能发出声音，但却接收不到Delphi发送端发出的音频数据。不知为什么，Delphi程序的发送端和接收端的源代吗就在上面。帮忙查查问题，谢谢。

代码不全。

不过有套控件叫acm的，很好，可以满足你的要求。里面有ip电话的demo，代码极其简单

你的缓冲区大了，而且不压缩在Internet上没有实用价值.

firstrose,从什么地方可当acm.

www.playicq.com
查acm就可以找到哪个控件了

to 张无忌
请指点，我该怎么做。

找到哪个控件,用GSM ACM压缩格式或者G723.1 ACM压缩格式
用TIdUDPServer做,

先谢谢了。

To 张无忌:
你说的那ACM控件我找到了，而且做了一个，但是不知为什么，在我们对话的过程中有很多声音丢掉了，而且大概有将近1秒的延时。我的Email:Lt_wxy@163.com.请指点，或告诉我你的Email,我把代吗发给你，你帮我调试一下。先谢谢了。

TO 大侠们：
我发送出去的声音数据，对方能够收到，但在对方收到后声音以传了回来，在我的音箱发出了声音，不知道这算不算回音，应该怎么处理，请指点。谢谢。

声音不会丢。除非你用了什么压缩。
回音的问题，我用耳机就没了。

多人接受答案了。