taj88
Messages postés113Date d'inscriptionmercredi 9 mai 2007StatutMembreDernière intervention28 août 2007
-
25 juil. 2007 à 12:40
taj88
Messages postés113Date d'inscriptionmercredi 9 mai 2007StatutMembreDernière intervention28 août 2007
-
27 juil. 2007 à 10:34
Bonjour,
il y a quelque temps j'avais ecris que j'avais un pb de mémoire quand j'utilise la bibliotheque WIA pour capturer les images d'une webcam et je l'ai toujours mais je crois avoir trouvé d'ou cela vien
en fait l'affichage de la webcam ne pose pas de pb:
Option Explicit
Public Di As DeviceInfo
Public Dev As Device
Private Sub UserForm_Initialize()
DeviceManager1.RegisterEvent wiaEventDeviceConnected
DeviceManager1.RegisterEvent wiaEventDeviceDisconnected
pour utiliser la capture d'image je rajoute le code suivant :
Set Di = DeviceManager1.DeviceInfos.Item(1)
Set Dev = Di.Connect
If Dev.Type = VideoDeviceType Then
Set VideoPreview1.Device = Dev
End If
End Sub
et la dés que je met la ligne Set Dev = Di.Connect une erreur de mémoire insuffisante apparait
pour palier à cela j'ai essayé une autre méthode avec le contrôle Commondialog WIA :
Option Explicit
Private Sub CommandButton1_Click()
Dim Img As ImageFile
Set Img = wiaCDiag.ShowAcquireImage
If Not Img Is Nothing Then
Set Image1.Picture = Img.FileData.Picture
End If
End Sub
Private Sub UserForm_Initialize()
Image1.PictureSizeMode = fmPictureSizeModeZoom
End Sub
cela ouvre une boite dialogue pour capturer une image à partir d'un peripherique donné, et en lancant l'application je mesuis redu compte que le programme chargait toutes les photos que j'avais prises précedemment par la première méthode (ca a pris 30min !!!) et je pense donc que c'est à cause de cela que mon prgm me dit qu'il n'a pas assez de memoire (car il doit chargé toutes les photos précedentes....enfin c'est ce que je pense)
Mais voila je ne sais pas comment effacer touttes les images contenu dans la bibliotheque, est ce que quelqu'un saurait comment faire??????
Merci @+
Je viens de découvrir le bonheur de programmer et le VB me le rend bien
taj88
Messages postés113Date d'inscriptionmercredi 9 mai 2007StatutMembreDernière intervention28 août 2007 27 juil. 2007 à 10:34
Bon bah en fait j'ai enlever la commande Set Dev = Di.Connect (donc je ne demande plus de connecter à la caméra) et là ca marche !?? l'informatique est parfois un mystère....
Je viens de découvrir le bonheur de programmer et le VB me le rend bien