大翁们,帮帮忙,如何自己写程序连接视频,并可截取视频画面?就象QQ一样.(100分)

如何自己写程序连接视频,并可截取视频画面?就象QQ一样.UP

在许多关于视频的软件(如视频会议、可视电话等)开发中，都应用了视频捕获技术。微软为软件开发人员提供了一个专门用于视频捕获的VFW (Video for Windows) SDK。VFW SDK为在Windows系统中实现视频捕获提供了标准的接口，从而大大降低了程序的开发难度。由于VFW SDK只有VC和VB版，没有Delphi版，因此需要在Delphi中一一声明DLL中的各个函数和变量（可以参考MSDN中的VC的函数声明以及变量定义）。本文分3部分介绍如何利用VFW在Delphi中开发视频捕获程序。
VFW简介
VFW是微软公司1992年推出的关于数字视频的一个软件包，它能使应用程序通过数字化设备从传统的模拟视频源得到数字化的视频剪辑。VFW的一个关键思想是播放时不需要专用硬件，为了解决数字视频数据量大的问题，需要对数据进行压缩。它引进了一种叫AVI的文件标准，该标准未规定如何对视频进行捕获、压缩及播放，仅规定视频和音频该如何存储在硬盘上，以及在AVI文件中交替存储视频帧和与之相匹配的音频数据。VFW使程序员能通过发送消息或设置属性来捕获、播放和编辑视频剪辑。在Windows 9x系统中,当用户在安装VFW时，安装程序会自动地安装配置视频所需要的组件，如设备驱动程序、视频压缩程序等。
VFW主要由以下6个模块组成：
●AVICAP.DLL：包含执行视频捕获的函数，它给AVI文件的I/O处理和视频、音频设备驱动程序提供一个高级接口；
●MSVIDEO.DLL：包含一套特殊的DrawDib函数，用来处理屏幕上的视频操作；
●MCIAVI.DRV：包括对VFW的MCI命令解释器的驱动程序；
●AVIFILE.DLL：包含由标准多媒体I/O（mmio）函数提供的更高的命令，用来访问.AVI文件；
●压缩管理器（ICM）：用于管理的视频压缩/解压缩的编译码器（Codec）；
●音频压缩管理器ACM：提供与ICM相似的服务，适用于波形音频。
开发步骤
AVICap窗口类支持实时的视频流捕获和单帧捕获，并提供对视频源的控制。虽然MCI也提供数字视频服务(比如它为显示.AVI文件的视频提供了AVI VIDEO命令集)，为视频叠加提供了Overlay命令集，但这些命令主要是基于文件的操作，它们不能满足实时地从视频缓存中取数据的要求， 对于使用没有视频叠加能力的捕获卡的PC机来说， 用MCI提供的命令集是无法捕获视频流的。而AVICap窗口类在捕获视频方面具有一定的优势，它能直接访问视频缓冲区，不需要生成中间文件，实时性很强，效率很高。而且，它还可将数字视频捕获到一个文件中。
1.创建“捕获窗”
在进行视频捕获之前必需要先创建一个“捕获窗”，并以它为基础进行所有的捕获及设置操作。“捕获窗”用AVICap窗口类的“CapCreateCaptureWindow”函数来创建，其窗口风格一般为WS_CHILD和WS_VISIBLE。
捕获窗类似于标准控件（如按钮、列表框等），并具有下列功能：
●将视频流和音频流捕获到一个AVI文件中；
●动态地同视频和音频输入器件连接或断开；
●以Overlay或Preview模式对输入的视频流进行实时显示；
●在捕获时，可指定所用的文件名并能将捕获文件的内容拷贝到另一个文件；
●设置捕获速率；
●显示控制视频源、视频格式、视频压缩的对话框；
●创建、保存或载入调色板；
●将图像和相关的调色板拷贝到剪贴板；
●将捕获的单帧图像保存为DIB格式的文件。
2．关联捕获窗和驱动程序
单独定义的一个捕获窗是不能工作的，它必需与一个设备相关联，这样才能取得视频信号。用函数CapDriverConnect可使一个捕获窗与一个设备驱动程序相关联。
3．设置视频设备的属性
通过设置TcaptureParms结构变量的各个成员变量，可以控制设备的采样频率、中断采样按键、状态行为等等。设置好TCaptureParms结构变量后，可以用函数CapCaptureSetSetup使设置生效。之后还可以用CapPreviewScale、CapPreviewRate来设置预览的比例与速度，也可以直接使用设备的默认值。
4．打开预览
利用函数CapOverlay选择是否采用叠加模式预览，这样占用系统资源小，并且视频显示速度快。然后用CapPreview启动预览功能，这时就可以在屏幕上看到来自摄像机的图像了。
通过以上4步就可以建立一个基本的视频捕获程序。但如果想自已处理从设备捕获到的视频数据，则要使用捕获窗回调函数来处理，比如一帧一帧地获得视频数据或以流的方式获得视频数据等等。
实例编程
下面以一个一帧一帧地从视频设备上捕获视频数据的Delphi程序为例，来说明每个函数的作用以及开发过程。
该程序的功能是可以在屏幕上显视捕获到的视频，并可以获得每一帧的图像数据。
新建一个工程，并将AVICAP32.PAS包含到USES中。
在Form1上放置一个TPanel控件，设Name为“gCapVideoArea”，该控件用于显示视频。再放置两个TButton控件，一个Name为“Openvideo”，另一个Name为“Closevideo”。
定义全局变量：
var
//定义捕获窗句柄
ghCapWnd: THandle;
//可以得到视频数据指针的结构变量，用于回调函数中
VideoStr: LPVIDEOHDR;
//用于设置设备属性的结构变量
CapParms: TCaptureParms;
在Name为“Openvideo”的TButton 的Click事件中写入以下代码：
procedure TForm1.OpenvideoClick(Sender: TObject);
begin
//使用Tpanel控件来创建捕获窗口
ghCapWnd := CapCreateCaptureWindow
( PChar(‘KruwoSoft'), //捕获窗口的名字
WS_CHILD or WS_VISIBLE,//窗口样式
0, //X坐标
0, //Y坐标
gCapVideoArea.Width, //窗口宽
gCapVideoArea.Height, //窗口高
gCapVideoArea.Handle, //窗口句柄
0); //一般为0
{为了能够捕获视频帧，要启动一个捕获帧回调函数VideoStreamCallBack。捕获一个视频流或当前设备状态时分别使用以下函数：
//捕获一个视频流
CapSetCallbackOnVideoStream;
//得到一个设备错误
CapSetCallbackonError;
//得到一个设备状态
CapSetCallbackOnStatus
}
//定义一个帧捕获回调函数
CapSetCallbackOnFrame (ghCapWnd,LongInt(@VideoStreamCallBack));
//将一个捕获窗口与一个设备驱程相关联，第二个参数是个序号，当系统中装有多个显视驱动程序时，其值分别依次为0到总个数
CapDriverConnect(ghCapWnd, 0);
//设置设备属性的结构变量
CapParms.dwRequestMicroSecPerFrame:=40000;
CapParms.fLimitEnabled := FALSE;
CapParms.fCaptureAudio := FALSE; // NO Audio
CapParms.fMCIControl := FALSE;
CapParms.fYield := TRUE;
CapParms.vKeyAbort := VK_ESCAPE;
CapParms.fAbortLeftMouse := FALSE;
CapParms.fAbortRightMouse := FALSE;
//使设置生效
CapCaptureSetSetup(ghCapWnd,LongInt(@CapParms),sizeof(TCAPTUREPARMS));
//设置预览时的比例
CapPreviewScale(ghCapWnd, 1);
//设置预览时的帧频率
CapPreviewRate(ghCapWnd,66);
//如果要捕获视频流，则要使用函数指定不生成文件。否则将会自动生成AVI文件
CapCaptureSequenceNoFile(ghCapWnd);
//指定是否使用叠加模式，使用为1，否则为0
CapOverlay(ghCapWnd, 1);
//打开预览
CapPreview(ghCapWnd, 1);
end;
在Name为“Closevideo”的TButton 的Click事件中写入以下代码：
procedure TForm1.ClosevideoClick(Sender: TObject);
begin
//停止捕获
capCaptureAbort(ghCapWnd);
//将捕获窗同驱动器断开
capDriverDisconnect(ghCapWnd);
end;
定义捕获帧回调函数：
function FrameCallBack(hWnd:HWND; lpVHdr:LongInt) :LongInt; stdcall;
var
DataPoint:^byte;
DibLen,RectWidth,RectHeight:integer;
begin
//转换从回调函数中得到的指针
VideoStr:=LPVIDEOHDR(lpVHdr);
//得到返回的数据大小
DibLen:=VideoStr^.dwBufferLength;
GetMem(DataPoint,64000);
//将帧数据COPY到一个内存中，注意DATAPOINT要先分配空间
CopyMemory(DataPoint,VideoStr^.lpData,Diblen);
//一些其他处理
……
end;
灵活地使用AVICap窗口类的回调函数可以满足各种不同的需求，但要注意从视频卡中捕获的视频数据的格式和图像的长宽要参考视频卡的参数。而且有些视频卡通过设置可支持多种的格式和图像长宽，所以在还原图像时要注意参考所用的视频卡的参数。

p2p,真正的点对点,语音视频聊天源码 ( delphi)**出售,语音g729压缩,视频:dx开发,mpeg4压缩,UDP协议,高效可靠的网络传输,语音,视频效果好,可以做聊天聊天系统或视频会议或远程监控系统等等.有demo测试
**出售
qq:444094419
顶者有分
请最好流下qq号,方便联系

http://www.delphibbs.com/keylife/images/u196832/列举视频驱动.rar
http://www.delphibbs.com/keylife/images/u196832/vfw200602028.jpg

1、建立Socket联接。
2、截屏并使用文件流分步向服务端发送
3、服务端将文件流组合放入IMAGE中。
4、循环。
上面是基本的原理！如果要做需要做很多的事情！

[red]定义捕获帧回调函数：
function FrameCallBack(hWnd:HWND; lpVHdr:LongInt) :LongInt; stdcall;
var
DataPoint:^byte;
DibLen,RectWidth,RectHeight:integer;
begin
//转换从回调函数中得到的指针
VideoStr:=LPVIDEOHDR(lpVHdr);
//得到返回的数据大小
DibLen:=VideoStr^.dwBufferLength;
GetMem(DataPoint,64000);
//将帧数据COPY到一个内存中，注意DATAPOINT要先分配空间
CopyMemory(DataPoint,VideoStr^.lpData,Diblen);
//一些其他处理
……
end; [/red]上面的回调函数不全也不实用。数据没有处理。发送很容易阻塞。
我在此修改先处理数据大小在发。176*144 的桢处理后不到4096。
用UDP发很顺利。

程序员群组19313830

我有一个简单的程序发给你吧!

unit Ubutu;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, RzPanel, StdCtrls, Buttons, UhGlobal_Var, UhBase_Function,
MPlayer, DirectShow9,DSPack,DSUtil;

type
TF_butu = class(TForm)
RzPanel1: TRzPanel;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
BitBtn3: TBitBtn;
RzPanel2: TRzPanel;
VideoWindow: TVideoWindow;
Filter: TFilter;
SampleGrabber: TSampleGrabber;
FilterGraph: TFilterGraph;
SaveDialog1: TSaveDialog;
procedure jianwenja(wenja: string);
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
imapath: string;
SysDev: TSysDevEnum;
end;

var
F_butu: TF_butu;

implementation

uses Utujianadd;

{$R *.dfm}

{ TF_butu }

procedure TF_butu.jianwenja(wenja: string);
begin
try
SysDev:= TSysDevEnum.Create(CLSID_VideoInputDeviceCategory);
if SysDev.CountFilters > 0 then
begin
FilterGraph.ClearGraph;
FilterGraph.Active := false;
Filter.BaseFilter.Moniker := SysDev.GetMoniker(0);
FilterGraph.Active := true;
with FilterGraph as ICaptureGraphBuilder2 do
RenderStream(@PIN_CATEGORY_PREVIEW, nil, Filter as IBaseFilter, SampleGrabber as IBaseFilter, VideoWindow as IbaseFilter);
FilterGraph.Play;
end;
imapath := ExtractFilePath(Application.ExeName) + 'image/';
if not DirectoryExists(imapath) then
mkdir(imapath);
imapath := imapath + idno + '/';
if not DirectoryExists(imapath) then
mkdir(imapath);
except
on E: exception do
begin
UhBase_Function.Write_log('<<TF_butu<<jianwenja<< 建立图片文件夹' + E.Message);
exit;
end;
end;
end;

procedure TF_butu.BitBtn2Click(Sender: TObject);
var
MyBmp: Tbitmap;
MyCanvas: TCanvas;
DC: HDC;
Rect: TRect;
begin
MyBmp := Tbitmap.Create;
MyCanvas := TCanvas.Create;
Rect := VideoWindow.ClientRect;
DC := GetDC(VideoWindow.Handle);
MyCanvas.Handle := DC;
MyBmp.Width := Rect.Right + 5 + Rect.Left - 10;
MyBmp.height := Rect.Bottom + 5 + Rect.Top - 10;
MyBmp.Canvas.CopyRect(Rect, MyCanvas, Rect);
imapat := imapath + F_tujianadd.RzComboBox1.Text + formatDateTime('yymmdd', now) + '.bmp';
MyBmp.SaveToFile(imapat);
ReleaseDC(0, DC);
MyBmp.Free;
MyCanvas.Free;
//MediaPlayer1.Play;

SampleGrabber.GetBitmap(F_tujianadd.Image1.Picture.Bitmap);//F_tujianadd.Image1.Picture.Bitmap.LoadFromFile(imapat);
F_tujianadd.tutpye := '1';
Close;
end;


procedure TF_butu.BitBtn3Click(Sender: TObject);
begin

Close;
end;

procedure TF_butu.FormClose(Sender: TObject; var Action: TCloseAction);
begin
SysDev.Free;
FilterGraph.ClearGraph;
FilterGraph.Active := false;
Action := cafree;
end;

end.
你自已看看吧