tNMUDP不也行吗!!?!
procedure TForm1.ACMWaveIn1Data(data: Pointer;
size: Integer);
var
mdata:array[1..20000] of char;
k:integer;
begin
for k:=1 to sizedo
mdata[k]:=pchar(dword(data)+k-1)^;
NMUDP1.SendBuffer(mdata,size);
end;
procedure TForm1.NMUDP1DataReceived(Sender: TComponent;
NumberBytes: Integer;
FromIP: String;
Port: Integer);
var
mdata:array[1..20000] of char;
data
char;
begin
NMUDP1.ReadBuffer(mdata,NumberBytes);
data:=pchar(dword(@mdata));
label1.caption:=inttostr(PlayPackets);
inc(PlayPackets);
ACMWaveOut1.PlayBack(data,NumberBytes);
end;