网络MPEG4视频传输(基于Xvid库)Demo(国外英语资料).docVIP

网络MPEG4视频传输(基于Xvid库)Demo(国外英语资料) 网络MPEG4视频传输(基于Xvid库)的演示 德尔福,安全监控,视频会议 基于Xvid库的Mpeg4的视频传输 / / * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *服务器接收代码* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 第一单元; 接口 使用 Windows，消息，SysUtils，变种，类，图形，控件，窗体， 对话框，extctrl，stdctrl，IdBaseComponent，IdComponent，IdTCPServer， DSPack lib_xvid; 类型 TForm1 =类(TForm) idtcpsrvr1:TIdTCPServer; btn1:TButton; img1:TImage; mmo1:TMemo; 这里:TButton; lbl1:TLabel; tmr1:TTimer; 过程btn1Click(发送者:TObject); 过程idtcpsrvr1Connect(AThread:TIdPeerThread); 过程idtcpsrvr1Execute(AThread:TIdPeerThread); 过程FormCreate(发送者:TObject); 过程FormCloseQuery(发送者:TObject;var取消:布尔值); 过程btn2Click(发送者:TObject); 过程tmr1Timer(发送者:TObject); 过程idtcpsrvr1Disconnect(AThread:TIdPeerThread); 私人 {私人声明} xvid_Version:整数; xvid_gbl:xvid_gbl_init_t; xVid_decode:xvid_dec_create_t; xvid_decFrame:xvid_dec_frame_t; 公共 {公开声明} 结束; 类型 TimgSendBuf =包装记录 ImgSize:词; 缓冲区:array[0 . .352 * 288 * 3]字节; 结束; var Form1:TForm1; imgSendBuf:TimgSendBuf; FrameImg:array[0 . .352 * 288 * 3]字节; 框架:朗词=0; FrameBytes:LongWord=0; PerFrame:LongWord = 0; PerFrameBytes:LongWord = 0; 实现 { $ R * .dfm } 过程TForm1。btn1Click(发送方:TObject); 开始 idtcpsrvr1。DefaultPort:= 9001; idtcpsrvr1。活动:= True; mmo1.Lines.Add(“服务启动!”); 结束; 过程TForm1。idtcpsrvr1Connect(AThread:TIdPeerThread); 开始 mmo1.Lines.Add(“有客户端连接!”); 结束; 过程TForm1。idtcpsrvr1Execute(AThread:TIdPeerThread); var SpBmp:TBitmap; Ret:整数; BIInfo:TBitmapInfo; BitmapHandle:HBitmap; DIBPtr:指针; DIBSize:LongInt; 开始 试一试 SpBmp:= TBitmap.Create; AThread.Connection.ReadBuffer(imgSendBuf.ImgSize 2); AThread.Connection.ReadBuffer(imgSendBuf.Buffer imgSendBuf.ImgSize); / /初始化解码数据帧结构 xvid_decFrame。版本:= xvid_Version; xvid_decFrame。将军:= 0; xvid_decFrame。比特流:= @imgSendBuf。缓冲[0];/ /输入解压的位流 xvid_decFrame。长度:= imgSendBuf.ImgSize; / /输入位流长度 xvid_decFrame.output。csp:= XVID_CSP_BGR;/ /色彩空间 xvid_decFrame.output。飞机[0]:= @FrameImg[0];/ /解压后输出的缓冲区 xvid_decFrame.output。步[0]:= 320 * 3;/ /每行字节数 ret:=