摘要：目前网上视频聊天室、视频会议软件、可视IP电话软件随处可见，你是否想自己做一个玩玩？其实这类软件无非是视频加上网络而建成的。如果熟悉视频捕
捉和网络传输技术，根本就难不倒你。微软为软件开发人员提供了一个专门用于视频捕捉的VFW SDK（Video for Windows
SDK），用它实现视频捕捉很简单，至于网络传输嘛，Delphi更是提供了N多种网络组件，随你用了。本文详细介绍了如何利用Delphi中开发视频聊
天室，同时给出了两个程序示例。
关键词：Delphi VFW 视频 视频会议 视频聊天 Video for Windows
作者：徐长友（yousoft＠sina.com)
一、引言
我们知道视频聊天室的关键技术在于采集视频，并实时传输给聊天室在线的人。对于视频的采集，这里采用微软公司的关于数字视频的一个软件包VFW （Video for Windows）。相信很多人对它都很熟习，VFW能使应用程序通过数字化设备从传统的模拟视频源得到数字化的视频剪辑，VFW的一个关键思想是播放时不 需要专用硬件。为了解决数字视频数据量大的问题，需要对数据进行压缩，而VFW引进了AVI的文件标准。该标准未规定如何对视频进行捕捉、压缩及播放，仅 规定视频和音频该如何存储在硬盘上及在AVI文件中交替存储视频帧和与之相匹配的音频数据。通过VFW，开发人员通过发送消息或设置属性来捕捉、播放和编 辑视频剪辑。当用户在安装VFW时，安装程序会自动地安装配置视频所需要的组件，如设备驱动程序、视频压缩程序等。VFW主要由6个模块组成。VFW功能 模块：
AVICAP.DLL 包含执行视频捕捉的函数，它给AVI文件的I/O处理和视频、音频设备驱动程序提供一个高级接口
MSVIDEO.DLL 包含一套特殊的DrawDib函数，用来处理屏幕上的视频操作
MCIAVI.DRV 包括对VFW的MCI命令解释器的驱动程序
AVIFILE.DLL 包含由标准多媒体I/O（mmio）函数提供的更高的命令，用来访问.AVI文件
ICM 压缩管理器，用于管理的视频压缩/解压缩的编译码器（Codec）
ACM 音频压缩管理器，提供与ICM相似的服务，适用于波形音频
对于视频的传输，我们使用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
二、视频聊天室的开发步骤
2.1 创建捕捉窗口，采集视频
在进行视频捕捉之前必需要先创建一个捕捉窗口，并应以此为基础进行所有的捕捉及设置操作。捕捉窗口可用AVICap窗口类的“CapCreateCaptureWindow”函数来创建，其窗口风格可设置为WSCHILD和WS_VISIBLE参数。
有了捕捉窗口，我们就可以将视频流和音频流捕捉到一个AVI文件中；动态地同视频和音频输入器件连接或断开；用Overlay或Preview模式对输入 的视频流进行实时显示，设置捕捉速率，显示控制视频源、视频格式及视频压缩的对话框，创建、保存或载入调色板，将图像和相关的调色板拷贝到剪贴板，将捕捉 的单帧图像保存到BMP格式文件中。
2.2 捕捉窗口和驱动程序的关联
仅仅一个捕捉窗口是不能工作起来的，它必须要与一个设备相关联才能取得视频信号。用函数CapDriverConnect可使捕捉窗与其设备驱动程序相关联。
2.3设置视频设备的属性
通过设置TcaptureParms结构变量的各个成员变量，可以控制设备的采样频率、中断采样按键、状态行为。设置好TcaptureParms结构变 量后，可以用函CapCaptureSetSetup使设置生效。之后还可以用CapPreviewScale、CapPreviewRate设置预览的 比例与速度，也可以直接使用设备的默认值。
2.4打开预览
利用函数CapOverlay可选择是否采用叠加模式预览，以使系统资源占用小，视频显示速度加快。然后用CapPreview启动预览功能，这时就可以在屏幕上看到来自摄像头的图像了。
2.5使用捕捉窗回调函数
前的四个步骤就可以建立一个基本的视频捕捉程序了，如果想自己处理从设备捕捉到的视频数据，则要使用捕捉窗回调函数来处理，比如一帧一帧地获得视频数据，也可以以流的方式获得视频数据等等。
2.6传输视频流
使用回调函数可以取得第一帧的数据，我们使用网络技术将数据发给其它机器，其它机品将接收的数据显示出来。
2.7接收视频
接收UDP数据，同时将接收到的数据回显出来，这样就可以看到远处传来的视频了。
三、用Delphi编写程序代码
微软的VFW SDK只有VC和VB版，并没有Delphi版，不过在网上可以找到VFW.PAS文件，FW.PAS文件声明了调用DLL中的各个函数和变量。（注：源代码中提供了VFW.PAS文件）
下面就以Delphi7开发一个网络视频聊天室，聊天室分两个程序，一个是视频采集程序并进行UDP广播的视频聊天室服务器，另一个是接收UDP广播程序显示传来的视频数据的视频聊天室客户端。
3.1建立视频聊天室服务器
3.1.1新建一个工程，命名为Project1.dpr，并把VFW.PAS加到USE中
3.1.2在Form1上放置一个Tpanel控件，该控件用于显示视频。之后再放置两个Tbutton控件，一个caption为“开始”,另一个Name为“停止”，放置一个UDP组件，这里用indy的IdUDPClient用来传输视频，如图示：
3.1.3定义全局变量
CapWnd:THandle; //定义捕捉窗句柄
CapParms:TcaptureParms; //用于设置设备属性的结构变量
BMPINFO:TBitmapInfo; //BMP图像信息
3.1.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为使用，否则为false
CapPreview(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 := TMemoryStream.Create;
jpg := TJpegImage.Create;
jpg.Assign(Bitmap);
jpg.CompressionQuality := 10; //jpg压缩质量
jpg.JPEGNeeded;
jpg.Compress;
jpg.SaveToStream(memStream);
jpg.Free;
//因为UDP数据包有大小限制，这里如果超出部分，就没有传输，完全可以发几次发出去
Form1.IdUDPClient1.BroadcastEnabled:=true;//用广播功能
if memStream.Size>Form1.IdUDPClient1.BufferSize then
//向192.168.0.X网段广播，端口 9001
Form1.IdUDPClient1.SendBuffer(\'192.168.0.255\',9001,memStream.Memory^,
Form1.IdUDPClient1.BufferSize)
else
Form1.IdUDPClient1.SendBuffer(\'192.168.0.255\',9001,memStream.Memory^,memStream.Size);
memStream.Free;
Bitmap.Free;
End;
停止代码：
capCaptureAbort(CapWnd); //停止捕捉
capDriverDisconnect(CapWnd); //将捕捉窗同驱动器断开
完整的视频聊天室服务器代码：
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls,VFW, IdBaseComponent, IdComponent, IdUDPBase,
IdUDPClient,jpeg;
type
TForm1 = class(TForm)
Panel1: TPanel;
Button1: TButton;
Button2: TButton;
IdUDPClient1: TIdUDPClient;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
CapWnd:THandle; //定义捕捉窗句柄
CapParms:TcaptureParms; //用于设置设备属性的结构变量
BMPINFO:TBitmapInfo; //BMP图像信息
implementation
{$R *.dfm}
function FrameCallBack(hWnd: HWND; lpVHdr: PVIDEOHDR): LongInt;stdcall;
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 := TMemoryStream.Create;
jpg := TJpegImage.Create;
jpg.Assign(Bitmap);
jpg.CompressionQuality := 10; //jpg压缩质量
jpg.JPEGNeeded;
jpg.Compress;
jpg.SaveToStream(memStream);
jpg.Free;
//因为UDP数据包有大小限制，这里如果超出部分，就没有传输，完全可以发几次发出去
Form1.IdUDPClient1.BroadcastEnabled:=true;//用广播功能
if memStream.Size>Form1.IdUDPClient1.BufferSize then
//向192.168.0.X网段广播，端口 9001
Form1.IdUDPClient1.SendBuffer(\'192.168.0.255\',9001,memStream.Memory^,
Form1.IdUDPClient1.BufferSize)
else
Form1.IdUDPClient1.SendBuffer(\'192.168.0.255\',9001,memStream.Memory^,memStream.Size);
memStream.Free;
Bitmap.Free;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
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为使用，否则为false
CapPreview(capWnd,true);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
capCaptureAbort(CapWnd); //停止捕捉
capDriverDisconnect(CapWnd); //将捕捉窗同驱动器断开
end;
end.
3.2建立视频聊天室客户端
3.2.1新建一个工程，命名为Project2.dpr
3.2.2在程序窗口Form2上放置一个image控件，该控件用于接收的图像内容，再放置一个Tbutton控件，caption为“接收”,，放置一个UDPServer组件，这里用indy的IdUDPServer用来接收网络视频，如图示：
接收按钮代码：
IdUDPServer1.DefaultPort:=9001; //接收端口
IdUDPServer1.Active:=true; //启用
IdUDPServer1的UDPRead事件代码：
var
jpg:TJpegImage;
begin
try
jpg := TJpegImage.Create;
jpg.LoadFromStream(Adata);
Image1.Picture.Bitmap.Assign(jpg);
jpg.Free;
except
end;
end;
视频的传输是压缩成JPG进行传输的，服务器端和接收端都用到了jpeg单元，所以use中都要加入jpeg。
完整的视频聊天室客户端代码：
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdUDPBase, IdUDPServer,
ExtCtrls,jpeg,IdSocketHandle;
type
TForm1 = class(TForm)
Image1: TImage;
IdUDPServer1: TIdUDPServer;
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure IdUDPServer1UDPRead(Sender: TObject; AData: TStream;
ABinding: TIdSocketHandle);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
IdUDPServer1.DefaultPort:=9001; //接收端口
IdUDPServer1.Active:=true; //启用
end;
procedure TForm1.IdUDPServer1UDPRead(Sender: TObject; AData: TStream;
ABinding: TIdSocketHandle);
var
jpg:TJpegImage;
begin
try
jpg := TJpegImage.Create;
jpg.LoadFromStream(Adata);
Image1.Picture.Bitmap.Assign(jpg);
jpg.Free;
except
end;
end;
end.
好了，到这里程序代码也就写完了。在机上运行视频聊天室服务器程序，点开始就开始进行视频的传输了，在网络上（网段为192.168.0.X，根据你的网络设置IP地址，我这用的局域网测试）的任何一台机上运行视频聊天室客户端点接收都能接收到视频了。
如果要接收的视频内容清晰点，可以设置jpg.CompressionQuality:=10;（这个值可以是从1至100，数值越大，图像越清晰，当然传输的速度会越慢了，图像越清晰，数据包就会越大，如果超出了UDP包限制，看到图像就不完整了）
视频聊天室服务器
聊天室客户端
四、结束语
在这里，我把自己的一些经验和代码拿出来与大家一起分享，请高手不要扔鸡蛋啊，我真的是花了不少力气的！看了这篇文章后，相信你也可以自己动手做一个网络 视频聊天室，也可以做个类似MSN、QQ、E话通一样的视频聊天软件，有了网络视频就可以在千里之外和家人进行可视通讯了。上面的示例程序还有很多地方需 要改进的，比如视频的压缩可以用其它视频压缩编码器进行压缩，这里只讲了传输图像，并没有声音，再改一下就才能传输音视频了，有兴趣的朋友不妨自己动手去 试一试。
关键词：Delphi VFW 视频 视频会议 视频聊天 Video for Windows
作者：徐长友（yousoft＠sina.com)
一、引言
我们知道视频聊天室的关键技术在于采集视频，并实时传输给聊天室在线的人。对于视频的采集，这里采用微软公司的关于数字视频的一个软件包VFW （Video for Windows）。相信很多人对它都很熟习，VFW能使应用程序通过数字化设备从传统的模拟视频源得到数字化的视频剪辑，VFW的一个关键思想是播放时不 需要专用硬件。为了解决数字视频数据量大的问题，需要对数据进行压缩，而VFW引进了AVI的文件标准。该标准未规定如何对视频进行捕捉、压缩及播放，仅 规定视频和音频该如何存储在硬盘上及在AVI文件中交替存储视频帧和与之相匹配的音频数据。通过VFW，开发人员通过发送消息或设置属性来捕捉、播放和编 辑视频剪辑。当用户在安装VFW时，安装程序会自动地安装配置视频所需要的组件，如设备驱动程序、视频压缩程序等。VFW主要由6个模块组成。VFW功能 模块：
AVICAP.DLL 包含执行视频捕捉的函数，它给AVI文件的I/O处理和视频、音频设备驱动程序提供一个高级接口
MSVIDEO.DLL 包含一套特殊的DrawDib函数，用来处理屏幕上的视频操作
MCIAVI.DRV 包括对VFW的MCI命令解释器的驱动程序
AVIFILE.DLL 包含由标准多媒体I/O（mmio）函数提供的更高的命令，用来访问.AVI文件
ICM 压缩管理器，用于管理的视频压缩/解压缩的编译码器（Codec）
ACM 音频压缩管理器，提供与ICM相似的服务，适用于波形音频
对于视频的传输，我们使用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
二、视频聊天室的开发步骤
2.1 创建捕捉窗口，采集视频
在进行视频捕捉之前必需要先创建一个捕捉窗口，并应以此为基础进行所有的捕捉及设置操作。捕捉窗口可用AVICap窗口类的“CapCreateCaptureWindow”函数来创建，其窗口风格可设置为WSCHILD和WS_VISIBLE参数。
有了捕捉窗口，我们就可以将视频流和音频流捕捉到一个AVI文件中；动态地同视频和音频输入器件连接或断开；用Overlay或Preview模式对输入 的视频流进行实时显示，设置捕捉速率，显示控制视频源、视频格式及视频压缩的对话框，创建、保存或载入调色板，将图像和相关的调色板拷贝到剪贴板，将捕捉 的单帧图像保存到BMP格式文件中。
2.2 捕捉窗口和驱动程序的关联
仅仅一个捕捉窗口是不能工作起来的，它必须要与一个设备相关联才能取得视频信号。用函数CapDriverConnect可使捕捉窗与其设备驱动程序相关联。
2.3设置视频设备的属性
通过设置TcaptureParms结构变量的各个成员变量，可以控制设备的采样频率、中断采样按键、状态行为。设置好TcaptureParms结构变 量后，可以用函CapCaptureSetSetup使设置生效。之后还可以用CapPreviewScale、CapPreviewRate设置预览的 比例与速度，也可以直接使用设备的默认值。
2.4打开预览
利用函数CapOverlay可选择是否采用叠加模式预览，以使系统资源占用小，视频显示速度加快。然后用CapPreview启动预览功能，这时就可以在屏幕上看到来自摄像头的图像了。
2.5使用捕捉窗回调函数
前的四个步骤就可以建立一个基本的视频捕捉程序了，如果想自己处理从设备捕捉到的视频数据，则要使用捕捉窗回调函数来处理，比如一帧一帧地获得视频数据，也可以以流的方式获得视频数据等等。
2.6传输视频流
使用回调函数可以取得第一帧的数据，我们使用网络技术将数据发给其它机器，其它机品将接收的数据显示出来。
2.7接收视频
接收UDP数据，同时将接收到的数据回显出来，这样就可以看到远处传来的视频了。
三、用Delphi编写程序代码
微软的VFW SDK只有VC和VB版，并没有Delphi版，不过在网上可以找到VFW.PAS文件，FW.PAS文件声明了调用DLL中的各个函数和变量。（注：源代码中提供了VFW.PAS文件）
下面就以Delphi7开发一个网络视频聊天室，聊天室分两个程序，一个是视频采集程序并进行UDP广播的视频聊天室服务器，另一个是接收UDP广播程序显示传来的视频数据的视频聊天室客户端。
3.1建立视频聊天室服务器
3.1.1新建一个工程，命名为Project1.dpr，并把VFW.PAS加到USE中
3.1.2在Form1上放置一个Tpanel控件，该控件用于显示视频。之后再放置两个Tbutton控件，一个caption为“开始”,另一个Name为“停止”，放置一个UDP组件，这里用indy的IdUDPClient用来传输视频，如图示：
3.1.3定义全局变量
CapWnd:THandle; //定义捕捉窗句柄
CapParms:TcaptureParms; //用于设置设备属性的结构变量
BMPINFO:TBitmapInfo; //BMP图像信息
3.1.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为使用，否则为false
CapPreview(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 := TMemoryStream.Create;
jpg := TJpegImage.Create;
jpg.Assign(Bitmap);
jpg.CompressionQuality := 10; //jpg压缩质量
jpg.JPEGNeeded;
jpg.Compress;
jpg.SaveToStream(memStream);
jpg.Free;
//因为UDP数据包有大小限制，这里如果超出部分，就没有传输，完全可以发几次发出去
Form1.IdUDPClient1.BroadcastEnabled:=true;//用广播功能
if memStream.Size>Form1.IdUDPClient1.BufferSize then
//向192.168.0.X网段广播，端口 9001
Form1.IdUDPClient1.SendBuffer(\'192.168.0.255\',9001,memStream.Memory^,
Form1.IdUDPClient1.BufferSize)
else
Form1.IdUDPClient1.SendBuffer(\'192.168.0.255\',9001,memStream.Memory^,memStream.Size);
memStream.Free;
Bitmap.Free;
End;
停止代码：
capCaptureAbort(CapWnd); //停止捕捉
capDriverDisconnect(CapWnd); //将捕捉窗同驱动器断开
完整的视频聊天室服务器代码：
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls,VFW, IdBaseComponent, IdComponent, IdUDPBase,
IdUDPClient,jpeg;
type
TForm1 = class(TForm)
Panel1: TPanel;
Button1: TButton;
Button2: TButton;
IdUDPClient1: TIdUDPClient;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
CapWnd:THandle; //定义捕捉窗句柄
CapParms:TcaptureParms; //用于设置设备属性的结构变量
BMPINFO:TBitmapInfo; //BMP图像信息
implementation
{$R *.dfm}
function FrameCallBack(hWnd: HWND; lpVHdr: PVIDEOHDR): LongInt;stdcall;
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 := TMemoryStream.Create;
jpg := TJpegImage.Create;
jpg.Assign(Bitmap);
jpg.CompressionQuality := 10; //jpg压缩质量
jpg.JPEGNeeded;
jpg.Compress;
jpg.SaveToStream(memStream);
jpg.Free;
//因为UDP数据包有大小限制，这里如果超出部分，就没有传输，完全可以发几次发出去
Form1.IdUDPClient1.BroadcastEnabled:=true;//用广播功能
if memStream.Size>Form1.IdUDPClient1.BufferSize then
//向192.168.0.X网段广播，端口 9001
Form1.IdUDPClient1.SendBuffer(\'192.168.0.255\',9001,memStream.Memory^,
Form1.IdUDPClient1.BufferSize)
else
Form1.IdUDPClient1.SendBuffer(\'192.168.0.255\',9001,memStream.Memory^,memStream.Size);
memStream.Free;
Bitmap.Free;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
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为使用，否则为false
CapPreview(capWnd,true);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
capCaptureAbort(CapWnd); //停止捕捉
capDriverDisconnect(CapWnd); //将捕捉窗同驱动器断开
end;
end.
3.2建立视频聊天室客户端
3.2.1新建一个工程，命名为Project2.dpr
3.2.2在程序窗口Form2上放置一个image控件，该控件用于接收的图像内容，再放置一个Tbutton控件，caption为“接收”,，放置一个UDPServer组件，这里用indy的IdUDPServer用来接收网络视频，如图示：
接收按钮代码：
IdUDPServer1.DefaultPort:=9001; //接收端口
IdUDPServer1.Active:=true; //启用
IdUDPServer1的UDPRead事件代码：
var
jpg:TJpegImage;
begin
try
jpg := TJpegImage.Create;
jpg.LoadFromStream(Adata);
Image1.Picture.Bitmap.Assign(jpg);
jpg.Free;
except
end;
end;
视频的传输是压缩成JPG进行传输的，服务器端和接收端都用到了jpeg单元，所以use中都要加入jpeg。
完整的视频聊天室客户端代码：
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdUDPBase, IdUDPServer,
ExtCtrls,jpeg,IdSocketHandle;
type
TForm1 = class(TForm)
Image1: TImage;
IdUDPServer1: TIdUDPServer;
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure IdUDPServer1UDPRead(Sender: TObject; AData: TStream;
ABinding: TIdSocketHandle);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
IdUDPServer1.DefaultPort:=9001; //接收端口
IdUDPServer1.Active:=true; //启用
end;
procedure TForm1.IdUDPServer1UDPRead(Sender: TObject; AData: TStream;
ABinding: TIdSocketHandle);
var
jpg:TJpegImage;
begin
try
jpg := TJpegImage.Create;
jpg.LoadFromStream(Adata);
Image1.Picture.Bitmap.Assign(jpg);
jpg.Free;
except
end;
end;
end.
好了，到这里程序代码也就写完了。在机上运行视频聊天室服务器程序，点开始就开始进行视频的传输了，在网络上（网段为192.168.0.X，根据你的网络设置IP地址，我这用的局域网测试）的任何一台机上运行视频聊天室客户端点接收都能接收到视频了。
如果要接收的视频内容清晰点，可以设置jpg.CompressionQuality:=10;（这个值可以是从1至100，数值越大，图像越清晰，当然传输的速度会越慢了，图像越清晰，数据包就会越大，如果超出了UDP包限制，看到图像就不完整了）
视频聊天室服务器
聊天室客户端
四、结束语
在这里，我把自己的一些经验和代码拿出来与大家一起分享，请高手不要扔鸡蛋啊，我真的是花了不少力气的！看了这篇文章后，相信你也可以自己动手做一个网络 视频聊天室，也可以做个类似MSN、QQ、E话通一样的视频聊天软件，有了网络视频就可以在千里之外和家人进行可视通讯了。上面的示例程序还有很多地方需 要改进的，比如视频的压缩可以用其它视频压缩编码器进行压缩，这里只讲了传输图像，并没有声音，再改一下就才能传输音视频了，有兴趣的朋友不妨自己动手去 试一试。
