多媒体实验报告_2.docVIP

武汉理工大学 多媒体通信技术实验报告 学 号：0121109310216 班 级：电信1102班 姓 名： 戴 晓 云 指导老师： 王 绪 国 实验目的 (1)了解多媒体通信原理 (2)了解视频音频通信TCP/IP与UDP通信协议 (3)掌握网络通信平台开发 2.实验内容 在以上硬软件环境下，利用合适的开发工具，设计一套可视对讲软件，实现局域网内两台计算机之间的可视对讲功能，要求音视频信号连续性、实时性较好，满足正常交流需要。 3.软件设计框图 4.实验步骤 4.1建立视频聊天软件服务器 　　(1)新建一个工程，命名为Project1.dpr，并把VFW.PAS加到USE中 　　(2)在Form1上放置一个Tpanel控件，该控件用于显示视频。之后再放置两个Tbutton控件，一个caption为开始,另一个Name为停止，放置一个UDP组件，这里用indy的IdUDPClient用来传输视频，如图示： 　　(3)定义全局变量 CapWnd:THandle; //定义捕捉窗句柄 CapParms:TcaptureParms; //用于设置设备属性的结构变量 BMPINFO:TBitmapInfo; //BMP图像信息 　　(4)编码事件代码 　　开始按钮代码： CapWnd := capCreateCaptureWindow(我的窗口, WS_VISIBLE or WS_CHILD,//窗口样式 0, //X坐标 0, //Y坐标 panel1.Width, //窗口宽 panel1.Height, //窗口高 panel1.handle, //窗口句柄 0); //通常为0 if CapWnd = 0 then exit; //定义帧捕捉回调函数CapSetCallbackOnFrame(CapWnd,FrameCallBack); CapParms.dwRequestMicroSecPerFrame:=1; CapParms.fLimitEnabled:=FALSE; CapParms.fCaptureAudio:=FALSE; CapParms.fMCIControl:=FALSE; CapParms.fYield:=TRUE; CapParms.vKeyAbort:=VK_ESCAPE; CapParms.fAbortLeftMouse:=False; CapParms.fAbortRightMouse:=FALSE; //让设置生效 CapCaptureSetSetup(capWnd,@CapParms,sizeof(TCAPTUREPARMS)); CapPreviewRate(capWnd,33); //设置预览视频的频率 CapCaptureSequenceNoFile(capWnd); //如果要捕捉视频流，则要使用函数来指定不生成文件，不然会自动生成AVI文件 CapDriverConnect(CapWnd,0); //连接摄像头设备，第二个参数是个序号，当系统中装有多个显示驱动程序时，其值分别依次为0到总个数如果有多个摄像头，那么就是0-1-2 capGetVideoFormat(capWnd, @BMPINFO,sizeof(TBitmapInfo)); //取得视频图像数据头 CapPreviewScale(capWnd,TRUE); //是否缩放 CapOverlay(capWnd,true); //指定是否使用叠加模式，true为使用，否则为falseCapPreview(capWnd,true); 回调函数代码： 　　var hd:Thandle; jpg:TJpegImage; memStream :TMemoryStream; Bitmap:TBitmap; begin //将数据显在Image， Bitmap:=TBitmap.Create; Bitmap.Width :=BMPINFO.bmiHeader.biWidth; // New size of Bitmap Bitmap.Height:=BMPINFO.bmiHeader.biHeight; hd:= DrawDibOpen; DrawDibDraw(hd,Bitmap.canvas.handle,0,0,_ 　BMPINFO.BmiHeader.biwidth,BMPINFO.bmiheader.biheight,_ 　@BMPINFO.bmiHeader,lpVHdr^.lpData,0,0,BMPINFO.bmiHeader.biWidth,_ 　BMPINFO.bmiHeader.biheight,0); DrawDibClose(hd); //发送数据 memStream :=