semo.pa3x التقاط صور من كاميرا الويب وحفظها في الجهاز [ Access + VB.NET ]

[SEMO.Pa3x]

بسم الله الرحمن الرحيم..

السلام عليكم ورحمة الله وبركاته..

بعد طول غياب عن الساحة بسبب ضروف الحياة والعمل..

اقدم لكم اداة صغيرة من برمجتي بلغة Visual Studio .NET

تقوم بالتقاط الصور كاميرا الويب او اي كاميرا متصلة بالكومبيوتر ومن ثم خزنها في الجهاز

الاداة قمت بربطها مع الاكسس، بحيث تقوم بتمرير براميتر من الاكسس الى الاداة

وهذا البراميتر متمثل بـ مسار حفظ الصورة + واسم الصورة + صيغتها

مثال:

    Dim SavedPath As String
    SavedPath = """" & CurrentProject.Path & "\Capture.png" & """"

 

الاداة تستخدم مكتبات AForge للتحكم بالكاميرات.

صورة الاداة:

 

 

بمجرد ان تضغط زر Open Camera من الاكسس ستعمل الاداة مباشرة

قم بترتيب الكاميرا الخاصة بك لاخذ لقطة مناسبة واضغط على الزر Snapshot ثم اضغط على الز save لحفظ الصورة.

 

الاداة اخذت مني وقت 8 ساعات في البرمجة لذلك لا تنسوني ووالدي من صالح دعائكم.

تم بحمد الله.

SEMO_webCam.rar

كلمات مفتاحية:

التقاط صورة من الكاميرا، حفظ الصورة من الكاميرا، جلب الصورة من كاميرا الويب، جلب الصورة من الكاميرا وحفظها في قاعدة البيانات، حفظ الصور بقاعدة البيانات، خزن الصورة من الكاميرا

كاميرا ويب قاعدة بيانات اكسس، اكسس كاميرا الويب، اكسس كاميرا، جلب الصورة من الكاميرا

[Amr Ashraf]

عليكم السلام ورحمة الله وبركاته ..

وحشتنا مواضيعك يا استاذنا .. منور المنتدى ونتمنى تواجدك اكثر

[abouelhassan]

شكر وتقدير واحترام من اخيك

[king5star]

بسم الله ما شاء الله وفقك الله بس لدي طلب اذا امكن معالجة هذه الرسالة لتوضح ان لا يوجد كاميرا موصله بدل من هذا الرسالة التى ستكون مفزعة للعميل ولن يفهم  ما تطلبة او توضحه الرسالة .

[محمد القدسي]

ما شاء الله عليك استاذي 

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

ولا يبقي الا اخر صورة

فهل بالامكان الاحتفاظ بالصور في المجلد بدون حذف الصور السابقة

[محمد سلامة]

جزاك الله خيرا وبارك وغفر الله لوالديك

طريقة ممتازة 

سؤال هل يمكن استبدال الكاميرا بالاسكنر

او هل يمكن التعديل علي تلك الاداه لتناسب جهاز الاسكنر 

لان كما تعلم نوحه صعوبة في تعامل الاسكنر مع الاكسس خاصة الفيدر أو السحب المتعدد 

جزاك الله خيرا علي ما تقدمه

تحياتي 🌹

[النجاشي]

بارك الله فيك

[SEMO.Pa3x]

في 16‏/2‏/2022 at 09:54, محمد سلامة said:

جزاك الله خيرا وبارك وغفر الله لوالديك

طريقة ممتازة 

سؤال هل يمكن استبدال الكاميرا بالاسكنر

او هل يمكن التعديل علي تلك الاداه لتناسب جهاز الاسكنر 

لان كما تعلم نوحه صعوبة في تعامل الاسكنر مع الاكسس خاصة الفيدر أو السحب المتعدد 

جزاك الله خيرا علي ما تقدمه

تحياتي 🌹

 

يوجد اداة اسمها NAPS للتعامل مع السكنر خصوصا السحب المتعدد والفيدر ابحث في مواضيع الاستاذ @jjafferr

في 15‏/2‏/2022 at 21:37, king5star said:

بسم الله ما شاء الله وفقك الله بس لدي طلب اذا امكن معالجة هذه الرسالة لتوضح ان لا يوجد كاميرا موصله بدل من هذا الرسالة التى ستكون مفزعة للعميل ولن يفهم  ما تطلبة او توضحه الرسالة .

 

ان شاء الله في النسخة القادمة

[محمد سلامة]

6 ساعات مضت, SEMO.Pa3x said:

يوجد اداة اسمها NAPS للتعامل مع السكنر خصوصا السحب المتعدد والفيدر ابحث في مواضيع الاستاذ

بالفعل هذه الأداة هي التي استخدمها حالياً ولكن كبرنامج مستقل وليست مربوطة بالاكسس يعني معرفش اتحكم فيها من الاكسس مثل حفظ المرفق بعد الحفظ واعطاء الأمر بالسحب من الاسكنر من داخل الاكسس 

[qathi]

في 14‏/2‏/2022 at 23:17, SEMO.Pa3x said:

    Dim SavedPath As String
    SavedPath = """" & CurrentProject.Path & "\Capture.png" & """"

بعد أذن استاذنا الغالي حسنين .. أن سمح لي

ملاحظة بسيطة للمبتدئين : كحالتنا:

تغيير بدل 

CurrentProject.Path

الى مسار حفظ الصورة مثال:

"D:\Image"

مع كتابة علامة ""

 

[محمد التميمي]

السلام عليكم

بارك الله بك استاذ حسنين عمل في غاية الروعة 

 

 

 

[ابومنتظر2005]

السلام عليكم استاذي العزيز ... رحم الله والديك عبى هذه المشاركة الرائعة ... استاذ ممكن الاداة مفتوحة المصدر في الفجول حتى استطيع التعديل عليها لان احتاج استخدماها بصورة ثانية 

مع فائق الشكر والاحترام