UserUser2 قام بنشر ديسمبر 20, 2023 مشاركة قام بنشر ديسمبر 20, 2023 كيفيه تسجيل فيديو والتقاط صوره من خلال كاميرا ويب بحثت كثير فى المنتدى عن مواضيع مشابه ولم تعمل او غير مكتمله رابط هذا التعليق شارك More sharing options...
Foksh قام بنشر ديسمبر 20, 2023 مشاركة قام بنشر ديسمبر 20, 2023 لعدم توافر كاميرا ويب حالياً لم أقم بتجربة الكود التالي ، ولكن جربه وإن شاء الله يفيدك 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 رابط هذا التعليق شارك More sharing options...
UserUser2 قام بنشر ديسمبر 20, 2023 الكاتب مشاركة قام بنشر ديسمبر 20, 2023 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 من فضلك لو امكن مثال رابط هذا التعليق شارك More sharing options...
UserUser2 قام بنشر ديسمبر 21, 2023 الكاتب مشاركة قام بنشر ديسمبر 21, 2023 UP رابط هذا التعليق شارك More sharing options...
Foksh قام بنشر ديسمبر 21, 2023 مشاركة قام بنشر ديسمبر 21, 2023 7 دقائق مضت, UserUser2 said: UP جرب هذا الموضوع للأستاذ @SEMO.Pa3x رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان