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é.

[chm0105]

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");
}

voila le code que j'utilise. C'est uniquement sur mon PC qu'il ne fonctionne pas...

[pottiez]

Je peut déjà te dire que tu as une erreur lors de la sauvegarde de la photo, ce n'est peut etre pas ta priorité, mais c'est toujours bon de corriger tout de suite : lorsque tu veut mettre le caractère '\' dans un texte en brut tu doit le doublé pour lui dire que ce n'est pas un caractère spécial, mais bien le caractère \ que tu veut.

donc tu doit remplacer ce code :

Code :

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

capFileSaveDIB(Handle, "C:\TOTO.BMP");

par celui ci :

Code :

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

1
2
 
capFileSaveDIB(Handle, "C:\\TOTO.BMP");