SIMPLE UTILISATION D'UNE WEBCAM , Source N°30814

Information sur la source

Catégorie :Périphériques Niveau : Débutant Date de création : 17/04/2005 Date de mise à jour : 24/04/2005 21:38:48 Vu / téléchargé: 8 048 / 1 906

Auteur : Nicolas___

Ecrire un message privé

Note :

7,00 / 10

1
2
3
4
5
6
7
8
9
10

Commentaire sur cette source (12)

Ajouter un commentaire et/ou une note

Description

Cliquez pour voir la capture en taille normale

Mon code ne sert peut etre pas a grand chose mais il sait :

Prendre une photo a partir d'une webcam et enregister l'image soit en JPG soit en BMP.
Visualiser par apres sa photo grace a une listbox(tres basique).
Faire un mode rafale : soit prendre une photo automatiquement toutes les X secondes ou Msecondes(a votre guise!).

Par contre je n'arrive pas a enregister une video(Si qqun sait qu'il se manifeste!).

Contrairement a bcp d'autres programme de ce genre sur ce site , je ne pense pas que mon programme requiert un composant(ou autre chose) special.

TT types de commentaires sont les bienvenus

PS : toujours desole sur l'orthographe, espere que je n'ai pas abuse

Fichier Zip

Pour les "Membres Club", vous pouvez télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

webcam
- Camera.jpg 39 280 octets
- CaptUneImg.bmp 22 714 octets
- CatchWeb.dpr 188 octets
- EnregisterUneVid.bmp 25 362 octets
- Move detector.ico 766 octets
- Unit1.dfm301 807 octets
- Unit1.pas 17 274 octets
- captures
  - numimg.sav

Télécharger le zip

Historique

24 avril 2005 21:38:48 :: Petites fonctions pas mechantes en plus(voir capture). Peut prendre des videos(Esc pr arreter).

Sources du même auteur

Toutes les sources de Nicolas___

Sources de la même categorie

Toutes les sources de la catégorie Périphériques

Commentaires

Commentaire de EddiTheHead le 19/04/2005 14:12:47

Salut,

Chez moi, il fonctionne sur Win98 mais pas WinXP.
Le menu fichier ne s'affiche pas, peut-être à cause de la fenêtre de la webcam.
Pense à utiliser l'indentation dans ta source, se sera plus claire à lire et à comprendre.

Sinon la fonction du prog est intéressante.
Commentaire de Nicolas___ le 19/04/2005 21:24:01

J'ai windows XP SP2 chez moi et j'ai aucun prob.
le menu fichier qui ne s'affiche pas je ne pense pas qu'il y ait un rapport avec la fenetre de la webcam vu qu'on ne sait rien positionner sur un menu(arrete moi si je dis une connerie!)
Slt
Commentaire de Kenavo le 20/04/2005 12:32:43

Salut,

Pour enregistrer une vidéo (avec audio aussi), le "code secret" est 1086 : sendmessage(hcam,1086,0,0);
Pour l'arrêter, touche ESC.

Quand on connaît la signification de ces codes, c'est beaucoup plus facile ;-)

Ken@vo
Commentaire de EddiTheHead le 20/04/2005 13:45:30

Salut,

Ok, sous win xp sp2, j'ai pas de problème (ni démarrage ni menu).
Le menu coince un peu que sous win98 (du moins chez moi).
Commentaire de Nicolas___ le 20/04/2005 14:21:05

Merci Ken@vo,

Mais a moins que je ne sois vraiment tres mauvais (ce qui se pourrait fortement!!), qd j'utilise :

sendmessage(hcam,1086,0,0);

Ya ma WebCam qui plante (1 images toutes les 45 sec!!!)
Pourrais tu me dire Prq?

Salut

Ps : tes sources, elles dechirent meme si je comprends pas tjs tout!
Commentaire de Kenavo le 20/04/2005 15:10:19

Elle ne plante pas, mais le flux est prioritairement utilisé pour créer le fichier C:\CAPTURE.AVI, et le presse-papier n'est plus "alimenté" en image" neuves.
Tu obtiens donc un fichier vidéo+audio (quoique l'audio, j'ai pas essayé : j'ai pas de micro)
J'assaierai un jour de reformuler toutes ces manipulations autour de la webcam, les messages etc ..., en améliorant le composant TCamera (http://www.delphifr.com/code.aspx?id=17900)

Ken@vo
Commentaire de Nicolas___ le 20/04/2005 21:15:29

Merci pas de prob mais j'avais compris apres coup,
comme quoi faut tjs reflechir avant...

Pour le son , c'est Ok : j'ai testé.

Salut
Commentaire de Nicolas___ le 24/04/2005 22:12:40

Voila,

j'ai rajouté qq trucs en plus(images en 2,16,256 couleurs compression BitField...)
-> marche que pr les img pas pr les vid

et la possibilité d'enregister une video.

Qqun sait comment arreter la video autrement que par la touche ESC?

Et comment faire pr enregistrer la vid autrepart que c:/capture.avi.

Merci
+
Commentaire de matrix1 le 02/05/2005 06:05:37

Il y a un composant gratuit que tu peut faire avec lui des avi. de rien
@+
Commentaire de bloom1 le 09/07/2005 17:28:30

Tu utilises Delphi2005Perso ou Delphi6 ?? Quel est le meilleur et avec Delphi2005Perso, comment on fait pour démarrer un projet normal, comme dans Delphi6 ???
Merci d'avance !
@++
Commentaire de Nicolas___ le 13/07/2005 19:47:49

Aucun des 2 j'utilise Delphi7

et pour tes autres questions je n'en sait rien j'ai tjs utilise que Delphi7
Mais ca doit etre comme normal enfin,non,je ne sais pas donc je ne dis rien!!!

Slt
Nico
@+
Commentaire de cincap le 09/08/2007 09:53:51

Bonjour à toutes et à tous,

@ Nicolas__, dans ton code tu ajoutes ceci :

Const

WM_CAP_START                    = WM_USER;
WM_CAP_FILE_SET_CAPTURE_FILE    = (WM_CAP_START+  20);
WM_CAP_SEQUENCE                 = (WM_CAP_START+  62);
WM_CAP_STOP                     = (WM_CAP_START+  68);
WM_CAP_DRIVER_DISCONNECT        = (WM_CAP_START+  11);

Dans la commande du click enregistrement du fichier *.avi

procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
SendMessage(Hcam,WM_CAP_FILE_SET_CAPTURE_FILE,0,Longint(pchar('Captures\test.avi')));
SendMessage(Hcam,WM_CAP_SEQUENCE,0,0);
end;

N. B. Plus souple avec un TsaveDialog, car tu choisis le nom et la destination de ton fichier *.avi

Puis tu rajoutes un boutton STOP ou tu gardes "Escape" :

procedure TForm1.BStopClick(Sender: TObject);
begin
if Hcam<>0 then SendMessage(Hcam,WM_CAP_STOP,0,0);
end;

Enfin, pour quitter tu déconnectes le driver, ce que tu n'avais pas fait :

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if Hcam<>0 then begin
     SendMessage(Hcam, WM_CAP_DRIVER_DISCONNECT, 0, 0);
     Hcam := 0;
     button1.enabled:=True;
     end;
end;

@+,

Cincap