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

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


SEMO.Pa3x

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

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

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

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

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

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

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

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

مثال:

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

 

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

صورة الاداة:

 

image.png.719c3fc7c1f33b0e50ad47e37c72dfdd.png

 

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

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

 

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

تم بحمد الله.

SEMO_webCam.rar

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

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

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

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

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

12.png.94b71610eb58047068081db4b412b0fe.png

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

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

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

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

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

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

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

طريقة ممتازة 

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

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

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

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

تحياتي 🌹

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

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

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

طريقة ممتازة 

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

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

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

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

تحياتي 🌹

 

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

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

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

12.png.94b71610eb58047068081db4b412b0fe.png

 

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

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

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

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

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

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

في 14‏/2‏/2022 at 23:17, SEMO.Pa3x said:
    Dim SavedPath As String
    SavedPath = """" & CurrentProject.Path & "\Capture.png" & """"

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

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

تغيير بدل 

CurrentProject.Path

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

"D:\Image"

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

 

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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
×
  • اضف...

Important Information