音视频传输(200分)

本人用VFW做视频采集.在局域网里传播.server端视频接受正常.音频正常.Client端已经可以做好接受视频正常啦.但不知道server端如何将音频同步传输给Client端.不知道VFW里有这样音视同步的吗?或者个位大富翁有什么思路.请给个提示.谢谢大家

www.source520.com 站长必进 2万源代码电子经典书狂下载

打包传送。最好用UDP协议。包大小不超过4096

请问如何打包呢

你好,我有现成的代码,视频语音效果很好,想要的,可以低价卖给你 整套即时通也有,类似qq一样
联系qq:444094419

to wwwone
谢谢.我是想学习.不是想拿别人现成的东西.我只需要思路和原理.

如何打包?就是自己定义发送数据包的长度呀.

做同步是很辛苦的一个事

在服务中做个所有的客户端会话群...服务端收到数据向所有的会话发数据,就可以做到同步了

用socket也可以!把图生成流就可以了吧!我是这样想的!我刚学delphi!@

可以这样做，
首先测试客户端的播放能力及网络的传送能力，决定需要缓冲的帧数。
然后开始接收数据。并缓冲。
最后播放。

socket进行传送,如何内网用idUDPServer就可以实现了,至于上面卖程序的建议别上当,效果一般 老实说不怎么样

问题: 如何用dspack传输音频？ ( 积分: 100 )
分类: 多媒体

来自: 星际天涯, 时间: 2005-07-05 13:12:00, ID: 3124551
我已经用dapack控件做好了视频传输，但在音频传输上却没有找到所需的资料。希望能给出示例，以做参考！

来自: 星际天涯, 时间: 2005-07-05 13:34:44, ID: 3124562
怎么没人回答?是分太少了,还是问题太简单了.

来自: yanleiyi, 时间: 2005-07-05 13:47:32, ID: 3124568
http://www.netyi.net/in.asp?id=yanleiyi有好多网络书下载和源程序好网站

来自: 星际天涯, 时间: 2005-07-05 16:20:23, ID: 3124726
视频传输代码
ImageServer.Canvas.Lock;

try
hr := Grabber.SampleGrabber.GetConnectedMediaType(MediaType);

if hr <> S_OK then

Exit;

try
if IsEqualGUID(MediaType.majortype, MEDIATYPE_Video) then

begin

BIHeaderPtr := nil;

if IsEqualGUID(MediaType.formattype, FORMAT_VideoInfo) then

if MediaType.cbFormat = SizeOf(TVideoInfoHeader) then

BIHeaderPtr := @(PVideoInfoHeader(MediaType.pbFormat)^.bmiHeader);

if not Assigned(BIHeaderPtr) then

Exit;

BitmapHandle := CreateDIBSection(0, PBitmapInfo(BIHeaderPtr)^, DIB_RGB_COLORS, DIBPtr, 0, 0);

if BitmapHandle <> 0 then

begin

if DIBPtr = nil then

Exit;

if BufferLen > Integer(BIHeaderPtr^.biSizeImage) then

BufferLen := BIHeaderPtr^.biSizeImage;

Move(pBuffer^, DIBPtr^, BufferLen);

ImageServer.Picture.Bitmap.Handle := BitmapHandle;

end;


end;


finally
FreeMediaType(@MediaType);

end;



memStream := TMemoryStream.Create;

jpg := TJpegImage.Create;

jpg.Assign(ImageServer.Picture.Bitmap);

jpg.CompressionQuality := 100;

jpg.JPEGNeeded;

jpg.Compress;

jpg.SaveToStream(memStream);

jpg.Free;


if TCPClient.Connected then

begin

try
TCPClient.WriteInteger(memStream.Size);

TCPClient.WriteBuffer(memStream.Memory^, memStream.Size, True);

except
end;


end;


memStream.Free;

finally
ImageServer.Canvas.Unlock;

end;



来自: 星际天涯, 时间: 2005-07-05 16:24:17, ID: 3124732
谁有音频传输代码？大家可以互相交流啊！
我以前的想法是以video的格式传输数据，但转换成流的方式时找不到所对应的方式，所以改成用图片的形式流传送。
可以问问，音频怎么传送？谢谢大家了！

来自: 星际天涯, 时间: 2005-07-06 10:29:09, ID: 3125322
为什么这里的问题恢复这么慢?郁闷![]

来自: 寻路, 时间: 2005-07-06 14:20:24, ID: 3125641
jpg := TJpegImage.Create;

jpg.Assign(ImageServer.Picture.Bitmap);

jpg.CompressionQuality := 100;

jpg.JPEGNeeded;

jpg.Compress;

jpg.SaveToStream(memStream);

jpg.Free;


这是什么啊,mepg-1的压缩啊

来自: 星际天涯, 时间: 2005-07-06 17:03:27, ID: 3125927
不是,是jpg的压缩,并存成流的形式.

来自: 星际天涯, 时间: 2005-07-06 17:05:25, ID: 3125934
上面的代码是视频的传输,没有音频的传输.
你有音频传输的代码吗?

来自: 寻路, 时间: 2005-07-06 17:39:36, ID: 3125976
TJpegImage就是mepg-1压缩啊!
这样不行吧,要是这样压缩就可以了,那就简单了!

来自: 星际天涯, 时间: 2005-07-06 18:03:55, ID: 3126001
TJPEGImage encapsulates a jpeg graphic.
和mpeg-1因该是两种不同的格式.

来自: 星际天涯, 时间: 2005-07-07 10:07:41, ID: 3126523
有了解的吗?没有就结了.

来自: 星际天涯, 时间: 2005-07-07 12:22:07, ID: 3126820
有帮忙的吗？大家帮帮忙啊！

来自: 星际天涯, 时间: 2005-07-12 12:19:38, ID: 3131750
谁有思路，可以再加分。

来自: 寻找合作, 时间: 2005-07-12 14:25:41, ID: 3131897
我有qq:364893066

来自: laoli, 时间: 2005-07-13 17:47:53, ID: 3133567
//发送
procedure TForm1.ACMWaveIn1Data(data: Pointer;
size: Integer);

var
myStream:TMemoryStream;

begin

myStream:=TMemoryStream.Create;

try
myStream.Write(Data^,size);

if idTCPClient1.Connected then

begin

idTCPClient1.WriteInteger(memStream.size);

idTCPClient1.WriteBuffer(myStream.Memory^, myStream.Size, True);

end;


finally
myStream.Free;

end;


end;


//接收
procedure TForm1.IdTCPServer1Execute(AThread: TIdPeerThread);

var mystream:TMemoryStream;

BuffLen: Integer;

begin

BuffLen := AThread.Connection.ReadInteger;

myStream:=TMemoryStream.create;

try
AThread.Connection.ReadStream(myStream,BuffLen);

ACMWaveOut1.PlayBack(myStream,BuffLen);
//播放接收到的数据
finally
myStream.free;

end;


end;



来自: 星际天涯, 时间: 2005-07-14 11:25:48, ID: 3134263
接受答案了.

来自: 星际天涯, 时间: 2005-07-14 18:46:57, ID: 3134894
to laoli
为什么没有反应？能把你的QQ给我吗？有些问题还想请教一下。

得分大富翁: laoli

我现在在作G.729编码！有机会一起学习学习！