C++Builder中实现视频捕捉(VFW)方式

发贴人:pspice
发表时间:Mon Mar 31 10:59:18 2003

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "main.h"
#include <vfw.h>
#include <clipbrd.hpp>
//---------------------------------------------------------------------------

#pragma package(smart_init)
#pragma resource "*.dfm"

HWND ghCapWnd=NULL; //定义捕获窗句柄
HWND ghParentWnd=NULL; //
LPVIDEOHDR VideoStr ; //可以得到视频数据指针的结构变量，用于回调函数中

CAPTUREPARMS CapParms; //用于设置设备属性的结构变量
CAPDRIVERCAPS gCapDriverCaps;
CAPSTATUS gCapStatus;

Graphics::TBitmap *sBitmap=new Graphics::TBitmap;

TForm1 *Form1;
//---------------------------------------------------------------------------

__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::OpenVideoClick(TObject *Sender)
{
int ok;
ghParentWnd=gCapVideoArea->Handle;
ghCapWnd=capCreateCaptureWindow(PChar("视频捕捉"), //捕获窗口的名字
WS_CHILD|WS_VISIBLE, //窗口样式
0, //X坐标
0, //Y坐标
gCapVideoArea->Width, //窗口宽
gCapVideoArea->Height, //窗口高
ghParentWnd, //窗口句柄
0); //一般为0
ok=capDriverConnect(ghCapWnd,0); //将一个捕获窗口与一个设备驱程相关联，第二个
参数是个序号，
//当系统中装有多个显视驱动程序时，其值分别依
次为0到总个数
Sleep(20);
if(!ok)
{
ShowMessage("与设备连接失败");
Close();
}
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,long(&CapParms),sizeof(CAPTUREPARMS)); //使设置生
效
capPreviewScale(ghCapWnd, 1); //设置预览时的比例
capPreviewRate(ghCapWnd,20); //设置预览时的帧频率
capOverlay(ghCapWnd, 0); //指定是否使用叠加模式，使用为1，否则为0
capPreview(ghCapWnd, 1);//打开预览

}
//---------------------------------------------------------------------------

void __fastcall TForm1::CloseVideoClick(TObject *Sender)
{
capCaptureAbort(ghCapWnd); //停止捕获
capSetCallbackOnVideoStream(ghCapWnd,NULL);
capDriverDisconnect(ghCapWnd); //将捕获窗同驱动器断开
}
//---------------------------------------------------------------------------

void __fastcall TForm1::GetDriverClick(TObject *Sender)
{
char szDeviceName[80]; // driver name
char szDeviceVersion[80]; // driver version
char item[161]; // concatinated string
int i; // counter
for(i=0;i<10;i++)
{
if(capGetDriverDescription(i,szDeviceName,sizeof(szDeviceName),szDeviceVersi
on,sizeof(szDeviceVersion)))
{
strcpy(item, szDeviceName);
strcat(item, " ");
strcat(item, szDeviceVersion);
strcat(item, " ");
DrvList->Lines->Add(item+IntToStr(i));
}
}
}
//---------------------------------------------------------------------------

void __fastcall TForm1::EditCopyClick(TObject *Sender)
{
capEditCopy(ghCapWnd);
if (Clipboard()->HasFormat(CF_BITMAP))
{
sBitmap->Assign(Clipboard());
Image1->Canvas->Draw(0,0,sBitmap);
}
}
//---------------------------------------------------------------------------

void __fastcall TForm1::FormDestroy(TObject *Sender)
{
delete sBitmap;
capCaptureAbort(ghCapWnd);
capSetCallbackOnVideoStream(ghCapWnd,NULL);
capDriverDisconnect(ghCapWnd);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::SaveBmpClick(TObject *Sender)
{
AnsiString CurrentFile;
AnsiString Extname=".bmp";
if(SaveDialog1->Execute())
{
CurrentFile=SaveDialog1->FileName;
CurrentFile=CurrentFile+Extname;
sBitmap->SaveToFile(CurrentFile);
}
}
//---------------------------------------------------------------------------