//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
#include "vfw.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
HWND hWndC;
CAPDRIVERCAPS CapDrvCaps;
CAPSTATUS CapStatus;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormShow(TObject *Sender)
{
char szDeviceName[80];
char szDeviceVersion[80];
for (int wIndex = 0; wIndex < 10; wIndex++)
{
if (capGetDriverDescription (wIndex, szDeviceName,
sizeof (szDeviceName), szDeviceVersion,
sizeof (szDeviceVersion)))
{
ComboBox1->Items->Add(szDeviceName);
}
}
if(ComboBox1->Items->Count>0)
ComboBox1->ItemIndex=0;
else
{
ShowMessage("没有找到视频软件");
Close();
}
hWndC = capCreateCaptureWindow (
(LPSTR) "My Capture Window", // window name if pop-up
WS_CHILD | WS_VISIBLE, // window style
0, 0, 160, 120, // window position and dimensions
(HWND)Form1->Handle,
ComboBox1->ItemIndex+1);//(int) nID /* child ID */);
//连接设备:
capDriverConnect(hWndC,0);
capPreviewRate(hWndC, 50); // rate, in milliseconds
capPreview(hWndC, TRUE); // starts preview
//获取视频驱动相关性能
//capDriverGetCaps(hWndC, &CapDrvCaps, sizeof (CAPDRIVERCAPS));
//获取捕获窗口状态
capGetStatus(hWndC, &CapStatus, sizeof (CAPSTATUS));
SetWindowPos(hWndC, NULL,
0,
0,
CapStatus.uiImageWidth,
CapStatus.uiImageHeight, SWP_NOZORDER | SWP_NOMOVE);
//动态设置显示窗口大小
Form1->Width = CapStatus.uiImageWidth;
Form1->Height = CapStatus.uiImageHeight+30;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
if(hWndC)
{
capPreview(hWndC, FALSE); // starts preview
capDriverDisconnect (hWndC);
}
}
//---------------------------------------------------------------------------