Bouton de webcam

Bonjours,

Je vous explique mon probleme, je veux faire un petit prog qui permet de prendre des photos avec un PC + cam sans avoir besoin de toucher au pc.

En gros mon prog devra prendre une photo quand j'appuie sur le bouton de ma cam et l'enregistrer sur mon disque pour etre pret a recommencer par la suite ...

Donc voila, je ne sais pas si c'est possible mais si c'est possible et si quelqu'un sait comment faire ... je le remercie d'avance !

@+

Je voulais dire aussi que je me suis penché sur le composant TCamera mais je n'ai pas trouvé d'evenement correspondant a l'appuie sur le bouton

Salut,

Il me semble que tu devrais chercher dans la documentation ou sur le site constructeur de ta webCam, afin de savoir s'il t'es possible de récuperer l'appuye sur ce bouton.

Bonne Prog,

Olivier.

Ben ouais c forcement possible vu ke ce bouton existe deja

Et puis en plus dans le soft livré avec (Video Impression 1.6) quand on appuie sur ce bouton ca prend bien la photo.

Mon probleme est que ca ne l'enregistre pas sur mon hdd...

PS: ma cam est une "trust" spacecam

c'est quoi la marque de ta webcam ?

trust

Tu dois avoir un fichier ocx fournit avec ton driver webcam.
"g2video1.ocx" Installe le sur delphi et si Trust à bien fait les choses tu devrais avoir la function ou l'évènement qui te permet de faire ce que tu veux.

Si c'est pas le cas, cela veux dire qu'il ne te reste cas récupérer doit même se qui t'arrives sur le port USB et là c'est en dehors de mes compétances

Bonne Prog,

Olivier.

Ok je vais essayer ca ...

Salut!

Tu dis avoir regardé le composan TCamera sans succès!
Tu as mal regardé alors. Il y a une des procédure qui s'appelle CaptureImageDisque (et la même chose pour de la vidéo).
Il te suffit de mettre dans la procedure d'un TTimer un appel à la cette procédure CaptureImageDisque et le tour est joué. Bien évidement il te faudra faire une petit mécanique d'incrémentation d'une variable "numb: Integer" par exemple qu'il faudra convertir en String pour la définition du nom de fichier que l'on défini sur la propriété "FichierImage: String". Ainsi, tu lances le programme et toute les x sec, il capture une photo.

Bon aller, comme là je suis motivé et que j'ai cinq minutes à perdre, je le fais et te fille le code.

unit unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, Camera; type TTabImage = Array[0..230399] of Byte; type TForm1 = class(TForm) Camera1: TCamera; Timer1: TTimer; procedure FormCreate(Sender: TObject); procedure Timer1Timer(Sender: TObject); private ImageCount: Integer; ImagePath: String; { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); var PImage: ^TTabImage; begin ImageCount:=1; ImagePath:=ExtractFilePath(ParamStr(0))+'Capture\'; ForceDirectories(ImagePath); Camera1.Actif:=True; New(PImage); Timer1.Enabled:=True; end; procedure TForm1.Timer1Timer(Sender: TObject); begin Camera1.FichierImage:=ImagePath+'Img_'+IntToStr(ImageCount)+'.bmp'; Camera1.CaptureImageDisque; Inc(ImageCount,1); Beep; end; end.

Voila, si tu as d'autre question, tu sais où me trouver, et comme le dit si bien mon ami Delphiprog: May Delphi be with you.