发一段开启摄像头的代码

最新推荐文章于 2023-02-11 14:50:07 发布

iiprogram

最新推荐文章于 2023-02-11 14:50:07 发布

阅读量3.1k

点赞数

分类专栏： vcbcbdelphi的window编程文章标签： button dialog null video action image

本文链接：https://blog.csdn.net/iiprogram/article/details/660506

版权

本文提供了一段Delphi代码，用于在Windows中开启摄像头、调整预览设置、捕获视频流并保存到文件。通过按钮操作，可以实现视频源选择、格式调整、预览控制等功能。

摘要由CSDN通过智能技术生成

原文: 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];