التقاط الفيديو من كاميرا ويب وعرضة في مربع صورة
صفحة 1 من اصل 1 • شاطر
التقاط الفيديو من كاميرا ويب وعرضة في مربع صورة
اصدقائى الاعزاء كلعام وانتم بخير بمناسبة حلول عيد الاضحى المبارك ....اليوم سأقدم لكم شرح عن كيفية التقاط الفيديو من كاميرا ويب ويعرض في مربع صورة باستخدام خطوات بسيطة و سهلة للغاية:
الخطوة الاولى : قم بانشاء وحدة برمجية ثم ضع التعليمات البرمجية التالية فيها
الخطوة الثانية : قم بانشاء نافذة و بها عدد 4 زر أمر بالاسماء التالية cmdCapture / cmdClose / cmdexit / cmdVideoFormat و مربع صورة
_ فى قسم التصريحات العامة نكتب الكود التالى :
_ فى زر الامر cmdCapture نكتب الكود التالى :
_فى زر الامر cmdClose نكتب الكود التالى :
_ فى زر الامر cmdexit نكتب الكود التالى :
_فى زر الامر cmdVideoFormat نكتب الكود التالى :
وفى النهاية ارجو أن يكون الدرس سهل و مفيد
الخطوة الاولى : قم بانشاء وحدة برمجية ثم ضع التعليمات البرمجية التالية فيها
- الكود:
Public Const ws_child As Long = &H40000000
Public Const ws_visible As Long = &H10000000
Global Const WM_USER = 1024
Global Const wm_cap_driver_connect = WM_USER + 10
Global Const wm_cap_set_preview = WM_USER + 50
Global Const WM_CAP_SET_PREVIEWRATE = WM_USER + 52
Global Const WM_CAP_DRIVER_DISCONNECT As Long = WM_USER + 11
Public Const WM_CAP_DLG_VIDEOFORMAT As Long = WM_USER + 41
Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Declare Function capCreateCaptureWindow Lib "avicap32.dll" Alias "capCreateCaptureWindowA" (ByVal a As String, ByVal b As Long, ByVal c As Integer, ByVal d As Integer, ByVal e As Integer, ByVal f As Integer, ByVal g As Long, ByVal h As Integer) As Long
الخطوة الثانية : قم بانشاء نافذة و بها عدد 4 زر أمر بالاسماء التالية cmdCapture / cmdClose / cmdexit / cmdVideoFormat و مربع صورة
_ فى قسم التصريحات العامة نكتب الكود التالى :
- الكود:
Dim hwdc As Long
Dim startcap As Boolean
_ فى زر الامر cmdCapture نكتب الكود التالى :
- الكود:
Private Sub cmdCapture_Click()
Dim temp As Long
hwdc = capCreateCaptureWindow("Debasis Das", ws_child Or ws_visible, 0, 0, 320, 240, Picture1.hWnd, 0)
If (hwdc <> 0) Then
temp = SendMessage(hwdc, wm_cap_driver_connect, 0, 0)
temp = SendMessage(hwdc, wm_cap_set_preview, 1, 0)
temp = SendMessage(hwdc, WM_CAP_SET_PREVIEWRATE, 30, 0)
startcap = True
Else
MsgBox ("No Webcam found")
End If
End Sub
_فى زر الامر cmdClose نكتب الكود التالى :
- الكود:
Private Sub cmdClose_Click()
Dim temp As Long
If startcap = True Then
temp = SendMessage(hwdc, WM_CAP_DRIVER_DISCONNECT, 0&, 0&)
startcap = False
End If
End Sub
_ فى زر الامر cmdexit نكتب الكود التالى :
- الكود:
Private Sub cmdexit_Click()
Unload Me
End Sub
_فى زر الامر cmdVideoFormat نكتب الكود التالى :
- الكود:
Private Sub cmdVideoFormat_Click()
Dim temp As Long
If startcap = True Then
temp = SendMessage(hwdc, WM_CAP_DLG_VIDEOFORMAT, 0&, 0&)
End If
End Sub
وفى النهاية ارجو أن يكون الدرس سهل و مفيد
جورج صبحى- ......
- تاريخ التسجيل : 18/02/2011
المساهمات : 127
النقاط : 259
التقيم : 6
الجنس :
رد: التقاط الفيديو من كاميرا ويب وعرضة في مربع صورة
موضع طبعا مفيد جدا واشكرك اخى الغالى ع الموضوع المميز
torky1985- .....
- تاريخ التسجيل : 25/05/2013
المساهمات : 82
النقاط : 115
التقيم : 1
الدولة :
الجنس :
رد: التقاط الفيديو من كاميرا ويب وعرضة في مربع صورة
شكرا لك و شرفنى مرورك أخى الكريم
جورج صبحى- ......
- تاريخ التسجيل : 18/02/2011
المساهمات : 127
النقاط : 259
التقيم : 6
الجنس :
| |
صفحة 1 من اصل 1
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى
أمس في 9:18 pm من طرف wdqwd
» رش الدفان بالرياض
أمس في 7:11 pm من طرف moslema_r
» شركة تنظيف خزانات الشارقة
أمس في 6:57 pm من طرف moslema_r
» شركة مكافحة الفئران بالرياض
الإثنين أبريل 15, 2024 8:23 pm من طرف moslema_r
» افضل شركة كشف تسربات المياه بالباحة
الخميس أبريل 04, 2024 7:02 am من طرف gmalnagy
» ساعدوني وفهموني help me
الجمعة مارس 29, 2024 8:37 am من طرف linesoft
» كشف تسربات المياه في جدة
السبت مارس 23, 2024 7:23 pm من طرف gmalnagy
» خدمات كشف تسربات المياه بخصم 25% - اتصل الان
السبت مارس 23, 2024 7:22 pm من طرف gmalnagy
» كهربائي منازل بالرياض
الأحد مارس 17, 2024 1:52 pm من طرف رانيا حماد
» افضل شركة نقل عفش بالرياض نقل باكستاني 40% خصم | موقع الانوار
الأحد مارس 17, 2024 1:25 pm من طرف رانيا حماد