اذهب الي المحتوي
أوفيسنا

تسجيل فيديو والتقاط صوره من خلال كاميرا ويب


UserUser2

الردود الموصى بها

لعدم توافر كاميرا ويب حالياً لم أقم بتجربة الكود التالي ، ولكن جربه وإن شاء الله يفيدك

 

Sub CaptureWebcamImage()
    Dim wia As Object
    Dim webcam As Object
    Dim imageFile As Object

    Set wia = CreateObject("WIA.CommonDialog")

    Set webcam = wia.ShowSelectDevice(WIA.WiaDeviceTypeCameraDevice)
    
    If Not webcam Is Nothing Then

        Set imageFile = webcam.TakePicture()

        imageFile.SaveFile "C:\Path\To\Save\captured_image.jpg"

        Set imageFile = Nothing
    Else
        MsgBox "لم يتم اختيار كاميرا ويب.", vbExclamation
    End If

    Set webcam = Nothing
    Set wia = Nothing
End Sub

 

رابط هذا التعليق
شارك

2 ساعات مضت, Foksh said:

لعدم توافر كاميرا ويب حالياً لم أقم بتجربة الكود التالي ، ولكن جربه وإن شاء الله يفيدك

 

Sub CaptureWebcamImage()
    Dim wia As Object
    Dim webcam As Object
    Dim imageFile As Object

    Set wia = CreateObject("WIA.CommonDialog")

    Set webcam = wia.ShowSelectDevice(WIA.WiaDeviceTypeCameraDevice)
    
    If Not webcam Is Nothing Then

        Set imageFile = webcam.TakePicture()

        imageFile.SaveFile "C:\Path\To\Save\captured_image.jpg"

        Set imageFile = Nothing
    Else
        MsgBox "لم يتم اختيار كاميرا ويب.", vbExclamation
    End If

    Set webcam = Nothing
    Set wia = Nothing
End Sub

 

من فضلك لو امكن مثال 

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information