EddiTheHead
Messages postés58Date d'inscriptionmercredi 16 février 2005StatutMembreDernière intervention 2 juin 2006
-
19 avril 2005 à 14:12
cincap
Messages postés460Date d'inscriptiondimanche 5 décembre 2004StatutMembreDernière intervention 6 avril 2009
-
9 août 2007 à 09:53
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
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
Nicolas___
Messages postés992Date d'inscriptionjeudi 2 novembre 2000StatutMembreDernière intervention24 avril 20131 13 juil. 2005 à 19:47
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
@+
cs_bloom1
Messages postés328Date d'inscriptionjeudi 26 août 2004StatutMembreDernière intervention 8 mars 2007 9 juil. 2005 à 17:28
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 !
@++
cs_matrix1
Messages postés169Date d'inscriptiondimanche 16 février 2003StatutMembreDernière intervention15 avril 2008 2 mai 2005 à 06:05
Il y a un composant gratuit que tu peut faire avec lui des avi. de rien
@+
Nicolas___
Messages postés992Date d'inscriptionjeudi 2 novembre 2000StatutMembreDernière intervention24 avril 20131 24 avril 2005 à 22:12
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
+
Nicolas___
Messages postés992Date d'inscriptionjeudi 2 novembre 2000StatutMembreDernière intervention24 avril 20131 20 avril 2005 à 21:15
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
Nicolas___
Messages postés992Date d'inscriptionjeudi 2 novembre 2000StatutMembreDernière intervention24 avril 20131 20 avril 2005 à 14:21
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!
EddiTheHead
Messages postés58Date d'inscriptionmercredi 16 février 2005StatutMembreDernière intervention 2 juin 2006 20 avril 2005 à 13:45
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).
cs_Kenavo
Messages postés702Date d'inscriptionvendredi 21 mars 2003StatutMembreDernière intervention 1 octobre 20095 20 avril 2005 à 12:32
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
Nicolas___
Messages postés992Date d'inscriptionjeudi 2 novembre 2000StatutMembreDernière intervention24 avril 20131 19 avril 2005 à 21:24
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
EddiTheHead
Messages postés58Date d'inscriptionmercredi 16 février 2005StatutMembreDernière intervention 2 juin 2006 19 avril 2005 à 14:12
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.
9 août 2007 à 09:53
@ 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
13 juil. 2005 à 19:47
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
@+
9 juil. 2005 à 17:28
Merci d'avance !
@++
2 mai 2005 à 06:05
@+
24 avril 2005 à 22:12
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
+
20 avril 2005 à 21:15
comme quoi faut tjs reflechir avant...
Pour le son , c'est Ok : j'ai testé.
Salut
20 avril 2005 à 14:21
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!
20 avril 2005 à 13:45
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).
20 avril 2005 à 12:32
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
19 avril 2005 à 21:24
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
19 avril 2005 à 14:12
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.