Discussion :

[patrick2103]

bonjour,
je voudrais prendre une photo avec ma webcam de mon portable via un bouton et l'enregistrer dans mon formulaire client en jpeg

je n'arrives pas a creer le code pour mon bouton
quelqu'un peut il m'aider?

[loufab]

Bonjour,

Je doute que tu y parviennes simplement via une macro.

C'est plutôt avec VBA et la bibliothèque WIA (de mémoire).

Cordialement,

[jimbolion]

Loufab, patrick2103

Ta mémoire est bonne Loufab

Ici l'explication et le code source

http://www.ammara.com/support/sample...a-control.html

patrick2103 tiens nous au courant de tes avancées...

JimBoLion

[User]

Bonjour à tous,

Je me permet de remonter la discussion car je rencontre des difficultés occasionnelles pour me connecter à ma webcam.

Tout fonctionne correctement (j'ai pris les codes sur internet):
capture de la vidéo dans un formulaire,
capture image,
sauvegarde dans un fichier jpeg,
enregistrement du chemin du fichier dans la base Access,
affichage de l'image.

mise à part ce problème de connexion occasionnelle.

Quelqu'un a-t-il déjà rencontré ce type de problème ?

Quelqu'un serait-t-il prêt à tester mon appli ?

Cdt,

Denis

[hajeahmad]

Bonjour Denis,
Avec un peu de retard

j'ai eu le même problème de déconnexion
d'après mes tests il serait lié à L'usb de l'ordi.

si tu veux je testerais bien ton appli

Cdt

Ahmad

[User]

Bonjour Ahmad,

Je te livre la base sachant que j'ai testé l'appli avec LedZeppII (Christophe) qui m'a gracieusement accordé de son temps pour éplucher tout ça.

On en est arrivé à la conclusion que ça fonctionnait mais pas à 100% :

Dixit Christophe :

Cet API (http://msdn.microsoft.com/en-us/libr...=vs.85%29.aspx) ne semble pas toute jeune.
De plus, j'ai l'impression qu'elle à un niveau d'abstraction assez haut (le nom du pilote est "Microsoft WDM Image Capture (Win32)"), et que de ce fait on a pas accès à tous les paramètres/actions.

a+

Denis

[loufab]

Bonjour,
De mémoire même constat, des déconnexions intempestives. Même après avoir forcer l'usb à ne pas faire d'économie d'énergie.

Une option que j'aurais loupé ?

Cordialement,

[User]

Bonjour,
De mémoire même constat, des déconnexions intempestives. Même après avoir forcer l'usb à ne pas faire d'économie d'énergie.

Une option que j'aurais loupé ?

Cordialement,

Merci Fabien pour ce retour d'expert

[loufab]

Moi c'est Fabrice.

[User]

Oui Fabrice bien sûr

[samgione]

Salut Fabrice,
moi c'est Samgi, j'ai trouvé la base d'exemple que vous avez posté, je l'ai utilize mais le probleme qui se pose, je ne peux pas adapter ce code a plusieurs formulaire different. comment faire pour pouvoir l'adapter à environ plus que deux formulaire differents. ex: F_Etudiant, F_Professeur et F_Employes.

[loufab]

Salut Francis,

Ce n'est pas moi qui ai posté l'exemple, c'est Alain.

Cordialement,

[samgione]

salut,
mais est-ce qu'on ne peut pas me donner une explication comment je peux le faire sur plusieurs formulaire svp?

[samgione]

salut a tous
je demande une bonne explication en toute simplicité concernant la souce du Demo web cam, explique moi s'il vous plais comment est-ce que je peux capturer des image avec web came sur de formulaire differente comme sur formulaire client, formulair employes, formulaire etudiant ect.
j'attend avec impatience votre aide.

[User]

Bonjour,

Il faut copier le formulaire client pour en faire un formulaire employé, ou étudiant.

Ensuite s'assurer que le champ "cheminphoto" est bien présent dans les tables employé et étudiant.

Puis, basé les nouveaux formulaires sur les tables employé et étudiant.

Enfin, adapter le code des formulaires pour que ça joue...

Cdlt,

[samgione]

Salut à tous, spécialement user.

J’ai fait tout ça, je recopie le formulaire F_client en F_Employe, j’ai même recopié le formulaire F_webcam en F_webcamEmploye et j’ai changé tous les noms F_webcam en F_webcamEmploye jusque-là ça ne pose aucun problème, cependant quand j’ai cliqué sur le bouton connexion web cam qui se trouve sur le formulaire F_Fournisseur, j’ai trouvé ce message : « Run-time error ‘2450’ : Microsoft Access cannot find the referenced form ‘F_webcam’.
J’ai trouvé ce message dans le module M_webcam2 en pointant sur cette ligne Forms!F_WebCam.SetFocus, je ne veux pas le supprimez, j’aimerais simplement ajouter : Forms !F_WebCamFournisseur.SetFocus, mais ça ne marche pas.

Que dois-je faire pour que tous les formulaires sur lesquels j’aimerais prendre des photos par webcam fonctionnent en même temps ?, je veux utiliser et le formulaire F_client pour les clients et j’aimerais ajouter le formulaire F_Fournisseur pour les fournisseurs, aidez-moi à le faire svp ?

Merci d’avance User pour votre aide.

[User]

Salut,

Essaies d'enlever le setfocus dans le code:

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
Public Sub ResizeCaptureWindow(ByVal lwnd As Long)
  Dim CAPSTATUS As CAPSTATUS

  capGetStatus lwnd, VarPtr(CAPSTATUS), Len(CAPSTATUS)

  SetWindowPos lwnd, HWND_BOTTOM, 0, 0, _
                     CAPSTATUS.uiImageWidth, _
                     CAPSTATUS.uiImageHeight, _
                     SWP_NOMOVE Or SWP_NOZORDER
 
  ' Forms!F_WebCam.SetFocus
  
  DoCmd.MoveSize 0, 0, CAPSTATUS.uiImageWidth * GetTwipPerPix("X") + 450, CAPSTATUS.uiImageHeight * GetTwipPerPix("Y") + 1550 ' + Forms!F_WebCam.PiedFormulaire.Height * GetTwipPerPix("Y")
  
End Sub

Puis pour le lancement de mettre le setfocus avant la procédure :

Code :

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

1
2
3
4
5
6
7
8
9
...
temp = SendMessage(hwdc, WM_CAP_SET_PREVIEW, -1, 0)
temp = SendMessage(hwdc, WM_CAP_SET_PREVIEWRATE, 66, 0)
 
Forms!F_WebCam.SetFocus ' ou Forms!F_WebCamEmploye.SetFocus
 
ResizeCaptureWindow hwdc
 
DoCmd.OpenForm...

a+

[samgione]

Merci beaucoup Mr. User
je vais essayez de porter cette modification.
mais y a t-il pas une method pour que les deux fonctionnent ensemble, le formulaire client et celui du fournisseur et meme pour les employes?

bon travail, god bless you.

[User]

Bonjour,

Une solution serait de passer le formulaire en argument de la procédure.

Cdlt,

[samgione]

salut User,
je suis venu de te dire un grand merci, j'ai suivit tes conseils à la lettre et ça marche tres tres bien pour moi maintenant.
merci encore ami de loin.