Discussion :

[mouchie82]

salut
je développe une application sous BUILDER C++ ; dont j'utilise une Webcam pour accueillir ces images puis faire des traitements
et je me demande es qu’il y a une fonction ou un composant qui permet de connecter la webcam et de faire l’acquisition de ces images .
qq'un peut m'aider
merci

[blondelle]

je ne connais pas mais peut etre en utilisant le composant twain il y a une description sur la FAQ delphi
bon courage

[bakaneko]

Je crois que tu as un composant de gestion de WebCam au sein de la JVCL.

[Satan_666]

Si tu créer un Animate dans ta fiche et tu le lie au handle, tu vas avoir un image en «Temps Réel».

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
#include <vfw.h>
 
void __fastcall TFicheVideo::FormShow(TObject *Sender)
{
                                    //Lier le handle à l'animate.
   Handle = Animate->Handle;
                                    //Créer une capture video de 640*480.
   Handle = capCreateCaptureWindow( NULL,                
                                                    WS_CHILD|WS_VISIBLE,
                                                    0,
                                                    0,
                                                    640,
                                                    480,
                                                    Handle,
                                                    0                                  );
                                    //Connecter le driver.
   capDriverConnect(Handle, 0);
                                    //Initialiser le taux de rafraichissement a 66ms.
   capPreviewRate  (Handle, 66);
                                    //Démarer la preview video.
   capPreview      (Handle, true);
}
 
//Si tu cré un bouton en cliquant dessu tu vas sauvegarder un photo .bmp.
 
void __fastcall TFicheVideo::BtnPhotoClick(TObject *Sender)
{
	capCaptureSingleFrameOpen(Handle);
	capCaptureSingleFrame(Handle) ;
	capCaptureSingleFrameClose(Handle) ;
 
	capFileSaveDIB(Handle, "C:\TOTO.BMP");
}

Je pense qu'avec cela tu vas pouvoir te débrouiller pour faire ton application.

[Mattetfamilly]

Comment tu lies le TAnimate à la WebCam?

Franchement je suis novice sur le sujet et je ne saisis pas (le F1 ne me parait pas très clair...)

Merci d'avance, ça m'intéresses aussi.

[Satan_666]

Tout d'abbord l'exemple que je t'ai donné ci-haut, il faut que tu créé un HWND Handle;. Soit une variable globale ou dans le .H de la fiche, dans la section Private, que tu a créé le TAnimate. Je te conseille cette derniere façon.

EX CODE .h de ta fiche(Quelque chose comme ça)
Ajoute se qui est en caractere gras.:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
//---------------------------------------------------------------------------
#ifndef FVideoH
#define FVideoH

class TFicheVideo : public TForm
{
__published:	// Composants gérés par l'EDI
   TAnimate *Animate;
   TButton *BtnPhoto;
   void __fastcall FormShow(TObject *Sender);
   void __fastcall FormClose(TObject *Sender, TCloseAction &Action);
   void __fastcall BtnPhotoClick(TObject *Sender);
private:	// Déclarations utilisateur
                                    //Handle pour la capture video.
        HWND Handle;
public:		// Déclarations utilisateur
        __fastcall TFicheVideo(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TFicheVideo *FicheVideo;
//---------------------------------------------------------------------------
#endif

Cette ligne de commande qui est tirer de l'exemple plus haut va lier l'image que tu vas recevoir de la webcam, à la boite de l'animate.

Handle = Animate->Handle;




Pour de l'aide regarde dans Help/SDK Windows, c'est des fonction de Windows (capDriverConnect, capDriverDisconnect, capPreviewRate, capFileSaveDIB, etc.)

N'oublie pas de faire un capDriverDisconnect(Handle); quand ta plus besoin de ta cam.

J'espère que je t'ai aidé.

[Tenguryu]

Ca l'aidera sans doute, j'ai essayé, ça marche, je suis tout content ^^

[blondelle]

J'ai essaye le programme et ca marche tres bien
serait il possible d'enregistrer en continue une sequence video si c'est possible comment faire

[cedni]

excellent sujet

toutefois j ai quelques questions

--- La capture me donne un .avi dans c: , pourquoi ?

--- Ensuite comment faire pour centrer la webcam dans animate ?
je n y arrive pas

--- ou alors comment obtenir le format de capture de la webcam pour ensuite redimensionner grace aux données recueillies l animate ?

--- Peut on sauvegarder une sequence video ?

--- Derniere question , peut on gerer deux webcam ?
--- si oui faut il creer un animate par webcam ?

[blondelle]

excellent sujet

toutefois j ai quelques questions

--- La capture me donne un .avi dans c: , pourquoi ?

--- Ensuite comment faire pour centrer la webcam dans animate ?
je n y arrive pas

--- ou alors comment obtenir le format de capture de la webcam pour ensuite redimensionner grace aux données recueillies l animate ?

--- Peut on sauvegarder une sequence video ?

--- Derniere question , peut on gerer deux webcam ?
--- si oui faut il creer un animate par webcam ?

J'ai adapté cette exemple a mes besoins.
Les fichiers sont au format des fichiers vidéo.
Il n'y a aucune réson que des photos ne puissent pas avoir le format .avi.
Tu peux obtenir de l'aide dans Windows SDK de bcb.
Des que j'ai terminé mon programme je le posterai pour avoir un exemple fonctionnel.

[blondelle]

Le programme fonctionne comme je veux.
voici le code
dans le .h

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
 
//---------------------------------------------------------------------------
 
#ifndef FicheVideoH // #ifndef FVideoH
#define FicheVideoH // #define FVideoH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ComCtrls.hpp>
#include <SysUtils.hpp>
#include "dstring.h"
#include "Graphics.hpp"
#include <ExtCtrls.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:	// IDE-managed Components
        TButton *Button1;
        TAnimate *Animate1;
        TButton *Button2;
        TButton *Button3;
        TTimer *Timer1;
        TButton *Button4;
        TEdit *Edit1;
        TLabel *Label1;
        TButton *Button5;
        TEdit *Edit2;
        TEdit *Edit3;
        TLabel *Label2;
        TLabel *Label3;
        TLabel *Label4;
        TLabel *Label5;
        TLabel *Label6;
 
        void __fastcall Button1Click(TObject *Sender);// prise d'une photo
        void __fastcall Button2Click(TObject *Sender);// arret de la camera
        void __fastcall FormCloseQuery(TObject *Sender, bool &CanClose);
        void __fastcall Button4Click(TObject *Sender);// arret Timer
        void __fastcall Button3Click(TObject *Sender);// demarrer le Timer
        void __fastcall Timer1Timer(TObject *Sender);
        void __fastcall Edit1KeyPress(TObject *Sender, char &Key);
        void __fastcall Button5Click(TObject *Sender);
        void __fastcall Edit2KeyPress(TObject *Sender, char &Key);
        void __fastcall Edit3KeyPress(TObject *Sender, char &Key);
 
private:	// User declarations
        HWND Handle; //Handle pour la capture video.
        int i;
        AnsiString temps_calcule;
public:		// User declarations
        __fastcall TForm1(TComponent* Owner);
 
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif

dans le .cpp

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
 
//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
#include <vfw.h>
#include "FicheVideo.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
//Lier le handle à l'animate.
   Handle = Animate1->Handle;
//Créer une capture video de 640*480.
   Handle = capCreateCaptureWindow( NULL, WS_CHILD|WS_VISIBLE,
                                        0, 0, 640, 480, Handle, 0);
//Connecter le driver.
   capDriverConnect(Handle, 0);
//Initialiser le taux de rafraichissement a 66ms.
   capPreviewRate  (Handle, 66);
//Démarer la preview video.
   capPreview      (Handle, true);
// ces deux boutons ne s'affichent qu'aprés la saisie d'un temps
Button3->Visible = false;
Button4->Visible = false;
}
//---------------------------------------------------------------------------
 
//Si tu cré un bouton en cliquant dessus tu vas sauvegarder une photo .bmp.
void __fastcall TForm1::Button1Click(TObject *Sender)
{
// prendre une seule photo
AnsiString Fichier;
char photo[1024];
AnsiString chaine;
AnsiString date_heure;
	capCaptureSingleFrameOpen(Handle);
	capCaptureSingleFrame(Handle) ;
	capCaptureSingleFrameClose(Handle) ;
// on ajoute un index entre "photo et .bmp" afin d'avoir un nom different
// afin de ne pas ecraser le nom precedent il y est inclu l'heure et la
// date sous forme
// heure, minute, seconde, sans separateur
// jour, mois, annee, sans separateur
// il ne faut aucun separateur dans la chaine que l'on
// envoye comme nom de fichier
date_heure = FormatDateTime("HHMMSSDDMMYYYY",Now());
Fichier = ("photo" + IntToStr(i) + date_heure + ".bmp");
chaine = ("C:\\Documents and Settings\\blondelle\\Mes documents\\PHOTO_WEBCAM\\" + Fichier);
// copier la photo a l'adresse chaine
capFileSaveDIB(Handle, chaine.c_str());
i++;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button2Click(TObject *Sender)
{
// on arrete la WebCam
        // arret de la webcam
capDriverDisconnect(Handle);
        // effacer Animate
Animate1->Visible = false;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::FormCloseQuery(TObject *Sender, bool &CanClose)
{
// on arrete la WebCam au cas ou on n'a pas arrete la WebCam
        // arret de la webcam
capDriverDisconnect(Handle);
        // effacer Animate
Animate1->Visible = false;
}
//---------------------------------------------------------------------------
 
 
void __fastcall TForm1::Button4Click(TObject *Sender)
{
 
Label5->Caption = "";
Label6->Caption = "Timer Arreté";
// et dans ton Timer:
Timer1->Enabled = false;
// ShowMessage("Arret timer "); utilise pour les testes
// ShowMessage("Arret timer ");
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button3Click(TObject *Sender)
{
// For an example of the callback function OneShotCallback, see Writing
// a Timer Callback Function.
Label6->Caption = "";
Label5->Caption = "Timer Demarré";
// on n'admet pas de temps inférieur a 5 secondes
if (temps_calcule <= 5)
{
temps_calcule = 5000;
}
Timer1->Interval = StrToInt (temps_calcule); //60 secondes
Form1->Label1->Caption = "";
Form1->Label1->Caption = temps_calcule;
Timer1->Enabled = true;
 
if (Timer1->Enabled == true)
{
// ShowMessage("timer"); utilise pour les testes
// ShowMessage("timer");
}
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
AnsiString Fichier;
char photo[1024];
AnsiString chaine;
AnsiString date_aujourdui;
AnsiString heure;
	capCaptureSingleFrameOpen(Handle);
	capCaptureSingleFrame(Handle) ;
	capCaptureSingleFrameClose(Handle) ;
// on ajoute un index entre "photo et .bmp" afin d'avoir un nom different
// afin de ne pas ecraser le nom precedent il y est inclu l'heure et la
// date sous forme
// heure, minute, seconde, sans separateur
// jour, mois, annee, sans separateur
// il ne faut aucun separateur dans la chaine que l'on
// envoye comme nom de fichier
date_aujourdui = FormatDateTime("DDMMYYYY",Now());
heure = FormatDateTime("HHMMSS",Now());
Fichier = ("photo" + IntToStr(i) + heure + date_aujourdui + ".bmp");
chaine = ("C:\\Documents and Settings\\blondelle\\Mes documents\\PHOTO_WEBCAM\\" + Fichier);
// copier la photo
capFileSaveDIB(Handle, chaine.c_str());
i++;
// ShowMessage("timer"); utilise pour les testes
// ShowMessage("timer ");
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Edit1KeyPress(TObject *Sender, char &Key)
{
// on ne peux saisir que des chiffres sans decimale
//if ((Key < '0' || Key >'9') && Key != 8 && (Key != DecimalSeparator ||
//((TEdit *)Sender)->Text.Pos(DecimalSeparator)!=0))
//Key = NULL;
 
if ((Key < '0' || Key >'9') && Key != 8 && (Key == DecimalSeparator)) Key = NULL;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button5Click(TObject *Sender)
{
// on soisi le temps du Timer
AnsiString heures;
AnsiString minutes;
AnsiString secondes;
 
heures = Edit1->Text;
if (heures != 0);
{
heures = heures * 3600;
}
minutes = Edit2->Text;
if (minutes != 0);
{
minutes = minutes * 60;
}
secondes = Edit3->Text;
if (secondes != 0);
{
secondes = secondes;
}
temps_calcule = 1000 * (StrToInt (heures) + StrToInt (minutes) + StrToInt (secondes));
Label1->Caption = temps_calcule;
// un temps a été choisi alors on affiche les deux boutons
Button3->Visible = true;
Button4->Visible = true;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Edit2KeyPress(TObject *Sender, char &Key)
{
if ((Key < '0' || Key >'9') && Key != 8 && (Key == DecimalSeparator)) Key = NULL;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Edit3KeyPress(TObject *Sender, char &Key)
{
if ((Key < '0' || Key >'9') && Key != 8 && (Key == DecimalSeparator)) Key = NULL;
}
//---------------------------------------------------------------------------

Dans Events du Timer c'est button3 qui est utilisé pour déclancher le Timer.
Le fichier est sauvegardé en .bmp.

[cedni]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
 
//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
#include <vfw.h>
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::CaptureClick(TObject *Sender)
{       AnsiString nom  ;
        nom += FormatDateTime("yyyy-mm-dd_hh-nn",Now()) ;
 
  	capCaptureSingleFrameOpen(Handle);
	capCaptureSingleFrame(Handle) ;
	capCaptureSingleFrameClose(Handle) ;
        AnsiString lenom ;
        lenom = "C:/"+nom+".bmp" ;  ;
       	capFileSaveDIB(Handle, lenom.c_str() );   
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Connect_WebcamClick(TObject *Sender)
{
                                       //Lier le handle à l'animate.
   Handle = Animate->Handle;
                                    //Créer une capture video de 640*480.
   Handle = capCreateCaptureWindow( NULL,
                                                    WS_CHILD|WS_VISIBLE,
                                                    0,
                                                    0,
                                                    Animate->Width,
                                                    Animate->Height,
                                                    Handle,
                                                    0                                  );
                                    //Connecter le driver.
   capDriverConnect(Handle, 0);
                                    //Initialiser le taux de rafraichissement a 66ms.
   capPreviewRate  (Handle, 66);
                                    //Démarer la preview video.
   capPreview      (Handle, true);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Disconnect_WebcamClick(TObject *Sender)
{
     capDriverDisconnect(Handle);
}
//---------------------------------------------------------------------------

moi j ai fait ca , j obtiens maintenant une extension d image pour ma capture
mais parfois j ai des soucis quand je connecte et deconnecte la webcam pour ensuite refaire une capture

autre probleme , pourquoi l acquisition ne prends pas les valeurs de mon animate ?

[beral]

Bonjour,
avez-vous treouvé comment capturer des séquences VIDEO avec cap ?

J'arrive bien a capturer des images BMP, mais je souhaiterai acquérir des petites séquences vidéos maintenant.

Merci par avance.

[blondelle]

Salut beral:
Un lien sur un programme qui fonctionne et avec ses sources.

www.allanpetersen.com

[beral]

Merci bcp pour ta réponse,
j'ai regardé mais j'arrive dejà a faire ce que propose ce soft.
Seulement ce que je voudrais, c'est capturer des séquences vidéos, et non juste des images en bmp.

Si quelqu'un a déjà fait ca...
Merci par avance

[beral]

Je pense etre sur la bonne piste:
http://www.mangue.org/wiki/Capture_v...ous_MS-windows

[chm0105]

slt,

j'ai un problème lorsque je veux afficher ma webcam.

[chm0105]

svp qqn peux m'aider?

[Masmeta]

Bonjour

Vérifie si :
- tu as un tableau et que tu ne tentes pas d'écrire dedans mais sur une zone non réservée. ( exemple : int tab[2]; et que tu fais tab[2]=0; cela provoquera une erreur)
- Tu as crée une variable avec new et tu as oublié le delete;
- un pointeur ne pointe pas au mauvais endroit

[chm0105]

J'utilise le code qui est présenté en première page. Je pense n'avoi aucune de ces erreurs...