关于视频和音频的实时传输问题(100分)

  • 主题发起人 主题发起人 oldhorsejs
  • 开始时间 开始时间
O

oldhorsejs

Unregistered / Unconfirmed
GUEST, unregistred user!
[h2][red]哪里可以下载视频和音频实时传输的源代码[/red[/h2]]
 
www.playicq.com有
 
用acm可以实现音频传输。我写过一个小东西。视频没做过
 
实时的要求是什么?ACM在局域网里有2秒左右延时的
 
音频较容易,视频有点难度!
 
去playicq上下载个acm.zip
看看里面的demo
稍微改下就行啦!:)
 
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:Pchar;
begin

NMUDP1.ReadBuffer(mdata,NumberBytes);
data:=pchar(dword(@mdata));
label1.caption:=inttostr(PlayPackets);
inc(PlayPackets);
ACMWaveOut1.PlayBack(data,NumberBytes);

end;
 
多谢大家,参与的都有分!
 
多谢大家,参与的都有分!
 
后退
顶部