⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 用delphi开发视频聊天室.htm

📁 在此屏幕可以为催款报表选择客户范围
💻 HTM
📖 第 1 页 / 共 2 页
字号:
🔍
12 
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>用Delphi开发视频聊天室</title>
</head>

<body>
<h1 align="center">用Delphi开发视频聊天室</h1>
<p><br>
  <strong>摘要：</strong>目前网上视频聊天室、视频会议软件、可视IP电话软件随处可见，你是否想自己做一个玩玩？其实这类软件无非是视频加上网络而建成的。如果熟悉视频捕捉和网络传输技术，根本就难不倒你。微软为软件开发人员提供了一个专门用于视频捕捉的VFW SDK（Video for Windows SDK），用它实现视频捕捉很简单，至于网络传输嘛，Delphi更是提供了N多种网络组件，随你用了。本文详细介绍了如何利用Delphi中开发视频聊天室，同时给出了两个程序示例。 </p>
<p> </p>
<p> 关键词：Delphi VFW 视频 视频会议 视频聊天 Video for Windows<BR>
作者：徐长友（yousoft＠sina.com)</p>
<h2>一、引言</h2>
  我们知道视频聊天室的关键技术在于采集视频，并实时传输给聊天室在线的人。对于视频的采集，这里采用微软公司的关于数字视频的一个软件包VFW（Video for Windows）。相信很多人对它都很熟习，VFW能使应用程序通过数字化设备从传统的模拟视频源得到数字化的视频剪辑，VFW的一个关键思想是播放时不需要专用硬件。为了解决数字视频数据量大的问题，需要对数据进行压缩，而VFW引进了AVI的文件标准。该标准未规定如何对视频进行捕捉、压缩及播放，仅规定视频和音频该如何存储在硬盘上及在AVI文件中交替存储视频帧和与之相匹配的音频数据。通过VFW，开发人员通过发送消息或设置属性来捕捉、播放和编辑视频剪辑。当用户在安装VFW时，安装程序会自动地安装配置视频所需要的组件，如设备驱动程序、视频压缩程序等。VFW主要由6个模块组成。VFW功能模块：</p>
<p> AVICAP.DLL 包含执行视频捕捉的函数，它给AVI文件的I/O处理和视频、音频设备驱动程序提供一个高级接口 </p>
<p> MSVIDEO.DLL 包含一套特殊的DrawDib函数，用来处理屏幕上的视频操作 </p>
<p> MCIAVI.DRV 包括对VFW的MCI命令解释器的驱动程序 </p>
<p> AVIFILE.DLL 包含由标准多媒体I/O（mmio）函数提供的更高的命令，用来访问.AVI文件 </p>
<p> ICM 压缩管理器，用于管理的视频压缩/解压缩的编译码器（Codec） </p>
<p> ACM 音频压缩管理器，提供与ICM相似的服务，适用于波形音频 </p>
<p>对于视频的传输，我们使用UDP来传，因为UDP传输速度快，TCP是面向连接的，建立连接时双方需经过三次握手，数据传输可靠，FTP、telnet等就是基于TCP的，UDP是面向非连接的，发出信息不需对方确认，但这样速度比TCP快，但有可能丢失数据，象SMTP、tftp等就是基于UDP的。另外UDP还支持广播，UDP广播两种，一种是directed broadcast，比如你的网段是192.168.0.X，你就往192.168.0.255发就可以了。另一种是limited broadcast,广播地址是255.255.255.255</p>
<h2> </h2>
<h2>二、视频聊天室的开发步骤<br>
</h2>
<h3> 2.1 创建捕捉窗口，采集视频</h3>
<p> 在进行视频捕捉之前必需要先创建一个捕捉窗口，并应以此为基础进行所有的捕捉及设置操作。捕捉窗口可用AVICap窗口类的“CapCreateCaptureWindow”函数来创建，其窗口风格可设置为WSCHILD和WS_VISIBLE参数。</p>
<p>有了捕捉窗口，我们就可以将视频流和音频流捕捉到一个AVI文件中；动态地同视频和音频输入器件连接或断开；用Overlay或Preview模式对输入的视频流进行实时显示，设置捕捉速率，显示控制视频源、视频格式及视频压缩的对话框，创建、保存或载入调色板，将图像和相关的调色板拷贝到剪贴板，将捕捉的单帧图像保存到BMP格式文件中。</p>
<h3> </h3>
<h3> 2.2 捕捉窗口和驱动程序的关联</h3>
<p> 仅仅一个捕捉窗口是不能工作起来的，它必须要与一个设备相关联才能取得视频信号。用函数CapDriverConnect可使捕捉窗与其设备驱动程序相关联。</p>
<h3> </h3>
<h3> 2.3设置视频设备的属性</h3>
<p> 通过设置TcaptureParms结构变量的各个成员变量，可以控制设备的采样频率、中断采样按键、状态行为。设置好TcaptureParms结构变量后，可以用函CapCaptureSetSetup使设置生效。之后还可以用CapPreviewScale、CapPreviewRate设置预览的比例与速度，也可以直接使用设备的默认值。</p>
<h3> </h3>
<h3> </h3>
<h3> 2.4打开预览</h3>
<p> 利用函数CapOverlay可选择是否采用叠加模式预览，以使系统资源占用小，视频显示速度加快。然后用CapPreview启动预览功能，这时就可以在屏幕上看到来自摄像头的图像了。</p>
<h3> </h3>
<h3> </h3>
<h3> 2.5使用捕捉窗回调函数</h3>
<p> 前的四个步骤就可以建立一个基本的视频捕捉程序了，如果想自己处理从设备捕捉到的视频数据，则要使用捕捉窗回调函数来处理，比如一帧一帧地获得视频数据，也可以以流的方式获得视频数据等等。</p>
<h3> </h3>
<h3> </h3>
<h3> 2.6传输视频流</h3>
<p> 使用回调函数可以取得第一帧的数据，我们使用网络技术将数据发给其它机器，其它机品将接收的数据显示出来。</p>
<h3> </h3>
<h3> 2.7接收视频</h3>
<p> 接收UDP数据，同时将接收到的数据回显出来，这样就可以看到远处传来的视频了。</p>
<h2>三、用Delphi编写程序代码</h2>
  微软的VFW SDK只有VC和VB版，并没有Delphi版，不过在网上可以找到VFW.PAS文件，FW.PAS文件声明了调用DLL中的各个函数和变量。（注：源代码中提供了VFW.PAS文件）</p>
<p> 下面就以Delphi7开发一个网络视频聊天室，聊天室分两个程序，一个是视频采集程序并进行UDP广播的视频聊天室服务器，另一个是接收UDP广播程序显示传来的视频数据的视频聊天室客户端。</p>
<h3> </h3>
<h3> 3.1建立视频聊天室服务器</h3>
<p> 3.1.1新建一个工程，命名为Project1.dpr，并把VFW.PAS加到USE中<br>
<img src="picture/image002.jpg" width="357" height="285"></p>
<p> 3.1.2在Form1上放置一个Tpanel控件，该控件用于显示视频。之后再放置两个Tbutton控件，一个caption为“开始”,另一个Name为“停止”，放置一个UDP组件，这里用indy的IdUDPClient用来传输视频，如图示：<br>
<img src="picture/image004.jpg" width="283" height="301"></p>
<p>3.1.3定义全局变量</p>
<table width="100%"  border="1" cellspacing="0" cellpadding="1">
  <tr>
    <td bgcolor="#FFFF99"><p> </p>
      <p>CapWnd:THandle; //定义捕捉窗句柄</p>
      <p> CapParms:TcaptureParms; //用于设置设备属性的结构变量</p>
    <p> BMPINFO:TBitmapInfo; //BMP图像信息</p></td>
  </tr>
</table>
<p><br> 
</p>
<p>3.1.4编码事件代码</p>
<p>开始按钮代码：</p>
<table width="100%"  border="1" cellspacing="0" cellpadding="1">
  <tr>
    <td bgcolor="#FFFF99"><p>&nbsp;</p>
      <p> CapWnd := capCreateCaptureWindow('我的窗口',</p>
      <p> WS_VISIBLE or WS_CHILD,//窗口样式</p>
      <p> 0, //X坐标</p>
      <p> 0, //Y坐标</p>
      <p> panel1.Width, //窗口宽</p>
      <p> panel1.Height, //窗口高</p>
      <p> panel1.handle, //窗口句柄</p>
      <p> 0); //通常为0</p>
      <p> if CapWnd = 0 then exit;</p>
      <p> //定义帧捕捉回调函数</p>
      <p> CapSetCallbackOnFrame(CapWnd,FrameCallBack);</p>
      <p> CapParms.dwRequestMicroSecPerFrame:=1;</p>
      <p> CapParms.fLimitEnabled:=FALSE;</p>
      <p> CapParms.fCaptureAudio:=FALSE;</p>
      <p> CapParms.fMCIControl:=FALSE;</p>
      <p> CapParms.fYield:=TRUE;</p>
      <p> CapParms.vKeyAbort:=VK_ESCAPE;</p>
      <p> CapParms.fAbortLeftMouse:=False;</p>
      <p> CapParms.fAbortRightMouse:=FALSE;</p>
      <p> //让设置生效</p>
      <p> CapCaptureSetSetup(capWnd,@CapParms,sizeof(TCAPTUREPARMS));</p>
      <p> CapPreviewRate(capWnd,33); //设置预览视频的频率</p>
      <p> CapCaptureSequenceNoFile(capWnd); //如果要捕捉视频流，则要使用函数来指定不生成文件，不然会自动生成AVI文件</p>
      <p> CapDriverConnect(CapWnd,0); //连接摄像头设备，第二个参数是个序号，当系统中装有多个显示驱动程序时，其值分别依次为0到总个数如果有多个摄像头，那么就是0-&gt;1-&gt;2</p>
      <p> capGetVideoFormat(capWnd, @BMPINFO,sizeof(TBitmapInfo)); //取得视频图像数据头</p>
      <p> CapPreviewScale(capWnd,TRUE); //是否缩放</p>
      <p> CapOverlay(capWnd,true); //指定是否使用叠加模式，true为使用，否则为false</p>
    <p>CapPreview(capWnd,true);</p></td>
  </tr>
</table>
<p><br>回调函数代码：</p>
<p>&nbsp;</p>
<table width="100%"  border="1" cellspacing="0" cellpadding="1">
  <tr>
    <td bgcolor="#FFFF99"><p> </p>
        <p>var hd:Thandle;</p>
        <p> jpg:TJpegImage;</p>
        <p> memStream :TMemoryStream;</p>
        <p> Bitmap:TBitmap;</p>
        <p>begin</p>
        <p> //将数据显在Image，</p>
        <p> Bitmap:=TBitmap.Create;</p>
        <p> Bitmap.Width :=BMPINFO.bmiHeader.biWidth; // New size of Bitmap</p>
        <p> Bitmap.Height:=BMPINFO.bmiHeader.biHeight;</p>
        <p> hd:= DrawDibOpen;</p>
        <p> DrawDibDraw(hd,Bitmap.canvas.handle,0,0,BMPINFO.BmiHeader.biwidth,</p>
        <p>BMPINFO.bmiheader.biheight,@BMPINFO.bmiHeader,</p>
        <p>lpVHdr^.lpData,0,0,BMPINFO.bmiHeader.biWidth,BMPINFO.bmiHeader.biheight,0);</p>
        <p> DrawDibClose(hd);</p>
        <p> //发送数据</p>
        <p> memStream := TMemoryStream.Create;</p>
        <p> jpg := TJpegImage.Create;</p>
        <p> jpg.Assign(Bitmap);</p>
        <p> jpg.CompressionQuality := 10; //jpg压缩质量</p>
        <p> jpg.JPEGNeeded;</p>
        <p> jpg.Compress;</p>
        <p> jpg.SaveToStream(memStream);</p>
        <p> jpg.Free;</p>
        <p> //因为UDP数据包有大小限制，这里如果超出部分，就没有传输，完全可以发几次发出去</p>
        <p> Form1.IdUDPClient1.BroadcastEnabled:=true;//用广播功能</p>
        <p> if memStream.Size&gt;Form1.IdUDPClient1.BufferSize then</p>
        <p> //向192.168.0.X网段广播，端口 9001</p>
        <p> Form1.IdUDPClient1.SendBuffer('192.168.0.255',9001,memStream.Memory^,</p>
        <p>Form1.IdUDPClient1.BufferSize)</p>
        <p> else</p>
        <p> Form1.IdUDPClient1.SendBuffer('192.168.0.255',9001,memStream.Memory^,memStream.Size);</p>
        <p> memStream.Free;</p>
        <p> Bitmap.Free;</p>
        <p>End;</p></td>
  </tr>
</table>
<p> </p>
<p>停止代码：</p>
<table width="100%"  border="1" cellspacing="0" cellpadding="1">
  <tr>
    <td bgcolor="#FFFF99"><p> </p>
        <p>capCaptureAbort(CapWnd); //停止捕捉</p>
        <p> capDriverDisconnect(CapWnd); //将捕捉窗同驱动器断开</p></td>
  </tr>
</table>
<p><br> 
</p>
<p>完整的视频聊天室服务器代码：</p>
<table width="100%"  border="1" cellspacing="0" cellpadding="1">
  <tr>
    <td bgcolor="#FFFF99"><p> </p>
        <p>unit Unit1;</p>
        <p> </p>
        <p>interface</p>
        <p> </p>
        <p>uses</p>
        <p> Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,</p>
        <p> Dialogs, StdCtrls, ExtCtrls,VFW, IdBaseComponent, IdComponent, IdUDPBase,</p>
        <p> IdUDPClient,jpeg;</p>
        <p> </p>
        <p>type</p>
        <p> TForm1 = class(TForm)</p>
        <p> Panel1: TPanel;</p>
        <p> Button1: TButton;</p>
        <p> Button2: TButton;</p>
        <p> IdUDPClient1: TIdUDPClient;</p>
        <p> procedure Button1Click(Sender: TObject);</p>
        <p> procedure Button2Click(Sender: TObject);</p>
        <p> private</p>
        <p> { Private declarations }</p>
        <p> public</p>
        <p> { Public declarations }</p>
        <p> end;</p>
        <p> </p>
        <p>var</p>
        <p> Form1: TForm1;</p>
        <p> CapWnd:THandle; //定义捕捉窗句柄</p>
        <p> CapParms:TcaptureParms; //用于设置设备属性的结构变量</p>
        <p> BMPINFO:TBitmapInfo; //BMP图像信息</p>
12

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -