Как работать с двумя веб камерами?

@Fonti · Регистрация: 23.12.2008

Студворк — интернет-сервис помощи студентам

у меня 2 вопроса
1 как работать с двумя веб камерами?
2 как настроить разрешение камеры я нашел capDlgVideoFormat() и capDlgVideoSource()
они вызова ют окно с настройками
можно как-то настроить без вызова capDlgVideoFormat() чтобы окно не появлялось
типа capDlgVideoFormat("320х240") без окна

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
#include <vfw.h> //capCreateCaptureWindow
#include <Clipbrd.hpp> //Clipboard()
//#include "jpeg.hpp"
void *hWndC=0;
void __fastcall TForm1::Button1Click(TObject *Sender)
{
        if(!hWndC){
                HWND hWnd = FindWindow("Shell_TrayWnd", NULL);
                hWndC = capCreateCaptureWindow("WebCamera",WS_CHILD,0,0,0,0,hWnd, 11011);
                capDriverConnect(hWndC,0);
                Timer1->Enabled=1;
        }
        capGrabFrame(hWndC);
        if(capEditCopy(hWndC))
        {
                Graphics::TBitmap *bit = new Graphics::TBitmap;
                //TMemoryStream* Stream = new TMemoryStream();
                bit->Width =320;
                bit->Height=280;
                if(Clipboard()->HasFormat(CF_BITMAP))
                        bit->LoadFromClipboardFormat(CF_BITMAP, Clipboard()->GetAsHandle(CF_BITMAP),0);
                Image1->Picture->Bitmap->Width  =bit->Width;
                Image1->Picture->Bitmap->Height =bit->Height;
                Image1->Picture->Bitmap->Canvas->Draw(0,0,bit);
                //Stream->Clear();
                //bit->SaveToStream(Stream);
                //delete Stream;
                delete bit;
        }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
Timer1->Enabled=0;
        if(hWndC){
                capDriverDisconnect(hWndC);
                hWndC=0;
        }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
        capGrabFrame(hWndC);
        if(capEditCopy(hWndC))
        {
                Graphics::TBitmap *bit = new Graphics::TBitmap;
                //TMemoryStream* Stream = new TMemoryStream();
                bit->Width =320;
                bit->Height=280;
                if(Clipboard()->HasFormat(CF_BITMAP))
                        bit->LoadFromClipboardFormat(CF_BITMAP, Clipboard()->GetAsHandle(CF_BITMAP),0);
                AnsiString aaa = AnsiString()+bit->Width+"x"+bit->Height;
                bit->Canvas->TextOutA(10,10,aaa.c_str());
                Image1->Picture->Bitmap->Width  =bit->Width;
                Image1->Picture->Bitmap->Height =bit->Height;
                Image1->Picture->Bitmap->Canvas->Draw(0,0,bit);
                //Stream->Clear();
                //bit->SaveToStream(Stream);
                //delete Stream;
                delete bit;
        }
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::FormCloseQuery(TObject *Sender, bool &CanClose)
{
Timer1->Enabled=0;
        if(hWndC){
                capDriverDisconnect(hWndC);
                hWndC=0;
        }
}
//---------------------------------------------------------------------------

cpp_developer · 26.03.2012, 19:39

Одновременная работа с двумя одинаковыми веб-камерами

Новые блоги и статьи Все статьи Все блоги /
Программный контроль заполнения реквизита табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать контроль заполнения реквизита табличной части. . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных в справочнике через динамический список Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .
Функция заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .	Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем

cpp_developer 20124 / 5691 / 417 Регистрация: 09.04.2010 Сообщений: 22,546 Записей в блоге: 1
	26.03.2012, 19:39
	Одновременная работа с двумя одинаковыми веб-камерами 0