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

[UserUser2]

كيفيه تسجيل فيديو والتقاط صوره من خلال كاميرا ويب  
بحثت كثير فى المنتدى عن مواضيع مشابه ولم تعمل او غير مكتمله 
 

[Foksh]

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

 

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

 

[UserUser2]

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

 

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

[UserUser2]

UP

 

[Foksh]

7 دقائق مضت, UserUser2 said:

UP

 

جرب هذا الموضوع للأستاذ @SEMO.Pa3x