网络MPEG4视频传输(基于Xvid库)Demo.docVIP

网络MPEG4视频传输（基于Xvid库）Demo 网络MPEG4视频传输（基于Xvid库）的演示 德尔福，安全监控，视频会议 基于Xvid库的Mpeg4的视频传输 XT^ XTX X| ^TS XTX ^gS xjx ^TS ^TS XTS ^Ts ^gS xjx ^Tx xpx X|S x|s *** ******** *月艮务器接q攵代码* ** **** *** 第一单元； 接口 使用 Windows,消息，SysUt订s,变种，类，图形，控件，窗体， 对话框，extctrl, stdctrl, IdBaseComponent, IdComponent, IdTCPServer, DSPack lib xvid; 类型 TForml 二类(TForm) idtcpsrvrl:TIdTCPServer; btnl:TButton; imgl:TImage; imno 1: TMemo; 这里:TButton; lbll:TLabel; tmr1:TTimer; 过程 btnlClick（发送者:TObject）; 过程 idtcpsrvrIConnect （AThread: TIdPeerThread）; 过程 idtcpsrvrlExecute（AThread:TIdPeerThread）; 过程 FormCreate （发送者:TObject）; 过程FormCloseQuery （发送者:TObject ;var取消：布尔值）; 过程 btn2Click（发送者:TObject）; 过程 tmrlTimer （发送者:TObject）; 过程 idtcpsrvrlDisconnect （AThread: TIdPeerThread）; 私人 ｛私人声明｝ xvid_Version:整数; xvidgbl:xvidgblinitt; xVid_decode:xv i d_dec_create_t; xvid_decFrame:xv i d_dec_frame_t; 公共 ｛公开声明｝ 结束； 类型 TimgSendBuf二包装记录 ImgSize:词; 缓冲区:array [0??352 * 288 * 3]字节; 结束； var Forml:TForml; imgSendBuf:TimgSendBuf; FrameImg: array [0 ?.352 * 288 * 3]字节; 框架：朗词二0; FrameBytes:LongWord=0; PerFrame:LongWord 二 0; PerFrameBytes:LongWord 二 0; 实现 { $ R * ? dfm } 过程 TFormlo btnlClick（发送方:TObject）; 开始 idtcpsrvrlo DefaultPort:= 9001; idtcpsrvrlo 活动：二 True; mmol. Lines. Add（服务启动！ ”）; 结束； 过程 TForml。idtcpsrvrlConnect （AThread:TIdPeerThread）; 开始 mmol. Lines. Add（ “有客户端连接！ ” ）; 结束; 过程 TForml。idtcpsrvrlExecute (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_decFrameo 版本：二 xvid_Version; xvid decFrameo 将军：二 0; xvid_decFrameo 比特流：二 @imgSendBuf □缓冲[0];/ /输入解压的位 流 xvid_decFrameo 长度：二 imgSendBuf. ImgSize; / /输入位流长度 xvid_decFrame. outputo csp:二 XVID_CSP_BGR;/ /色彩空间 xvid_decFrame. outputo 飞机[0] := @FrameImg[0] ;/ /解压后输出的 缓冲区 xvid_decFrame. outputo 步[0]:二 320 * 3;/ /每行字节数 ret:二 xvid_decore(xVid_dec