icroSecPerFrame:=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; exceptend;end;

　　视频的传输是压缩成JPG进行传输的，服务器端和接收端都用到了jpeg单元，所以use中都要加入jpeg。

　　完整的视频聊天软件客户端代码：

unit Unit2;
interfaceuses 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包限制，看到图像就不完整