MS Access-VBA-code-capture-Bild von der Kamera und speichern Sie es
Möchte ich hinzufügen, dass ein button in meiner form(MS Access Datenbank), so kann es zu erfassen Bild aus meiner Kamera(laptop) und speichern Sie es in einem bestimmten Ort (c:\image).
Ich bin mit windows 10 mit Microsoft office 2010 oder office 365.
Irgendwelche Ideen oder Hilfe.
Danke.
Ps Update-code mit WIA:
Private Sub Command1_Click()
Dim oWIA_DeviceManager As WIA.DeviceManager
Dim oWIA_Device As WIA.Device
Dim oWIA_ComDlg As WIA.CommonDialog
Dim oImageFile As WIA.ImageFile
Dim i As Long
Set oWIA_DeviceManager = New WIA.DeviceManager
If oWIA_DeviceManager.DeviceInfos.Count > 0 Then
Set oWIA_ComDlg = New WIA.CommonDialog
' Index the Devices property starting here at 1, not 0 .
For i = 1 To oWIA_DeviceManager.DeviceInfos.Count
Set oWIA_Device = oWIA_DeviceManager.DeviceInfos.Item(i).Connect
' Use this to show Acquisition CommonDialog
Set oImageFile = oWIA_ComDlg.ShowAcquireImage
' Use this to show Acquisition Wizard
'Set oImageFile = oWIA_ComDlg.ShowAcquisitionWizard(oWIA_Device)
Next i
Else
MsgBox "No WIA compatible device attached!"
End If
End Sub
Mit diesem Schaffe ich es öffnen, meine iPhone-Kamera (usb Anhängen). Ich mein-build-Kamera von meinem laptop.
Danke
Du musst angemeldet sein, um einen Kommentar abzugeben.
Diese Seite ist wohl das, was Sie brauchen.
http://www.developerfusion.com/thread/46191/how-to-capture-picture-using-webcam-in-vb60/
Im Grunde, was das tut, ist über das windows-Nachrichtensystem zum senden von Nachrichten an web cam Treiber und bittet ihn darum, ein Bild zu machen.
Auch, ein Tipp für die Zukunft selbst zu helfen. Sie können oft bessere Ergebnisse durch die Suche VB6, das ist fast genau das gleiche wie VBA. VBA hat nur ein paar weniger Funktionen.
Wenn man nicht über das Allgemeine Dialogfeld-Steuerelement. Sie können den code ändern, um dies
In der Vergangenheit habe ich verwendet, WIA (Windows Image Acquisition) - Scanner, aber es wird die Arbeit mit webcams. Ich würde auf jeden Fall versuchen es.