发一段开启摄像头的代码
来源:互联网 发布:人工智能与人类思维 编辑:程序博客网 时间:2024/05/02 04:18
原文:http://www.donews.net/zwell/archive/2004/09/24/108219.aspx
//---------------------------------------------------------------------------
// author: ZwelL
// http://www.donews.net/zwell/
//---------------------------------------------------------------------------
#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();
}
Button1Click(NULL);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
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)Panel2->Handle,//(HWND)Application->Handle,//(HWND) hwndParent,
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);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
if(hWndC)
{
capPreview(hWndC, FALSE); // starts preview
capDriverDisconnect (hWndC);
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
// Video format dialog box.
if (CapDrvCaps.fHasDlgVideoFormat)
{
capDlgVideoFormat(hWndC);
// Are there new image dimensions?
capGetStatus(hWndC, &CapStatus, sizeof (CAPSTATUS));
SetWindowPos(hWndC, NULL,
0,
0,
CapStatus.uiImageWidth,
CapStatus.uiImageHeight, SWP_NOZORDER | SWP_NOMOVE);
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
// Video source dialog box.
if (CapDrvCaps.fHasDlgVideoSource)
capDlgVideoSource(hWndC);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button4Click(TObject *Sender)
{
//设置相关参数
CAPTUREPARMS CaptureParms;
float FramesPerSec = 30.0;
capCaptureGetSetup(hWndC, &CaptureParms, sizeof(CAPTUREPARMS));
CaptureParms.dwRequestMicroSecPerFrame = (DWORD) (1.0e6 /
FramesPerSec);
capCaptureSetSetup(hWndC, &CaptureParms, sizeof (CAPTUREPARMS));
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button5Click(TObject *Sender)
{
//设置预览时的比例
capPreviewScale(hWndC, 1);
//设置预览时的帧频率
capPreviewRate(hWndC,66);
//如果要捕获视频流,则要使用函数指定不生成文件。否则将会自动生成AVI文件
capCaptureSequenceNoFile(hWndC);
//指定是否使用叠加模式,使用为1,否则为0
capOverlay(hWndC, 1);
//Video display dialog box.
if (CapDrvCaps.fHasDlgVideoDisplay)
capDlgVideoDisplay(hWndC);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button6Click(TObject *Sender)
{
if(SaveDialog2->Execute())
capFileSaveDIB( hWndC, (SaveDialog2->FileName+".bmp").c_str() ); //截取当前帧
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button7Click(TObject *Sender)
{
if(Button7->Caption == "开始捕获")
{
if(SaveDialog1->Execute())
{
// Set up the capture operation.
capCaptureSequence(hWndC);
// Capture.
capFileSaveAs(hWndC, (SaveDialog1->FileName+".avi").c_str());//视频
}
Button7->Caption="停止捕获";
}
else
{
Button7->Caption="开始捕获";
capCaptureStop(hWndC);
}
}
//---------------------------------------------------------------------------
---
//---------------------------------------------------------------------------
// author: ZwelL
// http://www.donews.net/zwell/
//---------------------------------------------------------------------------
#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();
}
Button1Click(NULL);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
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)Panel2->Handle,//(HWND)Application->Handle,//(HWND) hwndParent,
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);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
if(hWndC)
{
capPreview(hWndC, FALSE); // starts preview
capDriverDisconnect (hWndC);
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
// Video format dialog box.
if (CapDrvCaps.fHasDlgVideoFormat)
{
capDlgVideoFormat(hWndC);
// Are there new image dimensions?
capGetStatus(hWndC, &CapStatus, sizeof (CAPSTATUS));
SetWindowPos(hWndC, NULL,
0,
0,
CapStatus.uiImageWidth,
CapStatus.uiImageHeight, SWP_NOZORDER | SWP_NOMOVE);
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
// Video source dialog box.
if (CapDrvCaps.fHasDlgVideoSource)
capDlgVideoSource(hWndC);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button4Click(TObject *Sender)
{
//设置相关参数
CAPTUREPARMS CaptureParms;
float FramesPerSec = 30.0;
capCaptureGetSetup(hWndC, &CaptureParms, sizeof(CAPTUREPARMS));
CaptureParms.dwRequestMicroSecPerFrame = (DWORD) (1.0e6 /
FramesPerSec);
capCaptureSetSetup(hWndC, &CaptureParms, sizeof (CAPTUREPARMS));
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button5Click(TObject *Sender)
{
//设置预览时的比例
capPreviewScale(hWndC, 1);
//设置预览时的帧频率
capPreviewRate(hWndC,66);
//如果要捕获视频流,则要使用函数指定不生成文件。否则将会自动生成AVI文件
capCaptureSequenceNoFile(hWndC);
//指定是否使用叠加模式,使用为1,否则为0
capOverlay(hWndC, 1);
//Video display dialog box.
if (CapDrvCaps.fHasDlgVideoDisplay)
capDlgVideoDisplay(hWndC);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button6Click(TObject *Sender)
{
if(SaveDialog2->Execute())
capFileSaveDIB( hWndC, (SaveDialog2->FileName+".bmp").c_str() ); //截取当前帧
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button7Click(TObject *Sender)
{
if(Button7->Caption == "开始捕获")
{
if(SaveDialog1->Execute())
{
// Set up the capture operation.
capCaptureSequence(hWndC);
// Capture.
capFileSaveAs(hWndC, (SaveDialog1->FileName+".avi").c_str());//视频
}
Button7->Caption="停止捕获";
}
else
{
Button7->Caption="开始捕获";
capCaptureStop(hWndC);
}
}
//---------------------------------------------------------------------------
---
- 发一段开启摄像头的代码
- 发一段开启摄像头的代码
- 一段开启摄像头的代码(BCB)
- 一段控制摄像头的代码
- 发一段Ajax的代码
- 发一段菜鸟代码
- python-opencv的一段比较稳定的摄像头视频读取代码
- opencv成长之路2:一段用来获取摄像头视频的代码
- 一段不可思议的代码
- 一段写晕掉的代码
- 一段好玩的代码
- 一段有趣的代码
- 一段漏洞百出的代码
- 一段弃暗投明的代码
- treeview的一段代码
- 一段分页的代码
- 一段简单的代码
- 一段smc的代码
- JAVA中的equals和==的区别
- JBoss在Linux上自动启动
- 对Windows内核空间操作的一些说明
- 运用之妙,在乎于心
- IBM推出的AJAX开发工具 ATF(AJAX Tookkit FrameWok)
- 发一段开启摄像头的代码
- 修改导入表载入DLL
- 在图片的不同位置添加文字
- 数据执行保护的奥秘
- 腾讯的小九九之:QQ能不能只对某个人隐身?
- SQL Server 中易混淆的数据类型
- sql server 中字段类型及说明
- 利用Graphics的MeasureString方法测量特定字符串的长度
- 给微软上课的车夫