استخدام كاميرا الويب من داخل الأكسيس

اخي الكريم

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

هذه الاداة Ezvidc60 خاصه بالفيديو ولا تصلح لاستخدامها لالتقاط صور ثابته والسبب في ذلك انها لا تستخدم عنصر الـ Twain_32 الخاص بالصور والذي يأتي مع الكميرات الثابته . لهذا انت بحاجه الى كميرا ثابته من النوع الحديث وربطها بالكمبيوتر والتي ستعمل مثل الاسكانر .

بإمكانك ادراج صور الموظفين عن طريق الاسكانر .

بسم الله

أختى الفاضله / زهرة

بارك الله فيك

شكرا لك على ردك الكريم

الحقيقة لقد رأيت هذه الفكرة فى احد البرامج التى تعتمد على قواعد البيانات و لكن هذا كان منذ مدة ..

و قد رأيت انه يتم التقاط صورة من خلال صورة فيدوية مثل هذه تماما و يتم التقاط الصورة بأخذ Shot

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

جاء فى ردك الكريم :

- ان هذه الأداه لا تستخدم عنصر الـ Twain_32 الخاص بالصور ..

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

- ياتى مع الكاميرات الثابته - لهذا انت بحاجه الى كميرا ثابته

ما هى الكاميرات الثابته ؟ مجرد اسمها و بعدها ابحث عنها و عن مواصفاتها و اسعارها ..

- بإمكانك ادراج صور الموظفين عن طريق الاسكانر

نعم يمكن هذا و أعتقد ان كثير من الأخوه لهم امثله فى هذا الموضوع و لكن سيكون الأمر مرهقا جدا خاصة ان الأعداد كبيرة المطلوب تصويرها ..

اكرر شكرى و تقديرى لشخصك الفاضل و لردك الكريم

الأصيل

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

و يجد منها انواع رخيصة الثمن تبدأ من 300 جنيه مصري

السلام عليكم ..

أخوانى و اخواتى الكرام

مجرد إعادة الأستفسار .. هل هناك أمل فى هذا الموضوع .. فهو جد مهم

تقبلوا تحياتى

الأصيل

اخي الفاضل

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

اليك المثال المرفق الذي ستتمكن ان شاء الله تعالى به من حل المشكلة

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

ملاحظة : يجب اولا تحديد موقع الصور لكي يعمل معك البرنامج بشكل صحيح

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

ملاحظة 2 : اذا ظهرت لك رسائل خطأ عند الاستخدام الاولي للبرنامج فهذا يدل على انه لا يوجد ملفات تم ادراجها في القاعدة ولكي تتأكد من ذلك انظر الى الجداول فهى خالية من البيانات الخاصة بموقع الصور ولكن بعد تحديث البرنامج موقع الصور لديك سيعمل بشكل سليم

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

DC2006.rar

اختكم

زهره

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

أختــــاه .. زهرة المنتدى

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

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

يبدو اننى لم استطع عرض فكرتى لذا - و كلى أمل - ساعرضها بطريقة اخرى راجيا من الله ان اوفق هذه المره

بسم الله نبدأ ..

1- لدى كاميرا ويب عادية جدا مثل التى تستخدم من خلال الكمبيوتر على النت فى المحادثات

2- هذه الكاميرا عند توصيلها بالحاسب تقوم بنقل صورة متحركة " فيديو " لم تراه العدسة الخاصة بها عند التشغيل

3 - يمكن خلال تشغيل الكاميرا يتم اخذ لقطة Shot لاحد المشاهد التى تسجلها الكاميرا على الشاشة من خلال برنامج التشغيل الخاص بها و الذى تم تنصيبة على الجهاز

4- هذه اللقطه يتم تخزينها على الحاسب كصورة ثابته باحد الأمتدادات التالية :

Bmp , Jpg , Gif - إلا أن الكاميرا التى عندى تحفظ بصيغة Bmp فقط

حتى الأن أعتقد أن الأمور تمام مفيهاش مشاكل

ما ابحث عنه و مدوخــــــــنى .. هو

1- عرض صورة برنامج التشغيل الخاص بكاميرا الويب من داخل نموذج بالأكسيس - و هذا تم بفضل الله

2- كيف يتم عمل كود برمجى يتم من خلاله اخذ لقطه لحد الصور التى تظهر من خلال شاشة البرنامج و التى تعرض عرض حى لما تراه عدسة الكاميرا .. و ذلك حتى يتم حفظها كصورة بامتداد Bmp

3- كيف يتم تسميه هذه الصورة الملتقطة بنفس رقم الحقل الخاص برقم الموظف مثلا .. أى اذا كنا ناخذ لقطة من الكاميرا لصورة شخص مثلا و قبلها نكون على الجسل الخاص ببياناته و عندنا احد الحقول التى تعرض رقم الموظف و ليكن 125 مثلا ان يتم حفظ الصورة الملتقطه باسم 125.Bmp و هكذا و طبعا يتم الحفظ فى مسار يتم تحديده للنموذج ليتم تجميع صور العاملين به

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

خالص شكرى للجميع و فى أنتظار رود كل الأخوان

الأصيل

سبحان الله و بحمده ..

سبحان الله عدد خلقه ..

و رضا نفسه .. و زنه عرشه .. و مداد كلماته ..

للرفع لعل الله يحدث أمرا

للجميع ..

كل عام و أنت بألف خير و صحة و فى إيمان دائم

لعل هناك أمل مع إشراقة هذه الأيام المباركة :)

خالص حبى و تقديرى للجميع

الأصيل

اخي الكريم يمكنك ان تستخدم برنامج مراقب الجهاز V.bلكل ثانية وهناك برنامج فجوال بيسك يقوم لك بمقارنة الصور!؟؟ كيف؟

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

وتكون الصور للموضفين مخزنة في برنامجك

وتقوم بمقارنه الصور

وانا باذن الله سوف افعل البرنامح بالفجوال بيسك

بسم الله الرحمن الرحيم .. السلام عليكم جميعا

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

وجدت أداه اسمها DBpix Activex Control و بالفعل انزلتها على الجهاز و جمعت بعض المعلومات المتوفرة عنها بموقعها مثل :

The following code saves the new image into a recordset field after the user clicked a "Load" button to select an image from the file system

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

Private Sub BtnLoad_Click()
	If DBPixCtl.ImageLoad Then
		rs("Image") = DBPixCtl.Image
	End If
End Sub

كود اخر يقوم بالحفظ مع تحديد المكان مباشرة و قد حاولت استخدام امر ImageSaveFile بدلا من الامر ImageLoadFile و لكنى لم اوفق اعتقد ان ما اريده فى هذا الكود بعد التغيير الذى حاولته .. ارجو مساعدتى فى تصحيح الكود مع امكانية ان يكون اسم الصورة التى يتم التقاطها من خلال هذه الاداه و حفظها مساوى تماما لرقم الموظف الحالى الظاهر بالنموذج المستخدم .. حيث يعرض النموذج بيانات الموظف الذى يتم التقاط الصورة له و بها طبعا رقم الموظف - اسمه - تاريخ ميلاده .. الخ

 Private Sub BatchLoad_Click()
	On Error GoTo Finish
	Dim szDir As String
	Dim szSearchSpec As String
	Dim szFile As String
	Dim szFullPath As String

	szDir = "C:\images\	'The source directory for our images
	szSearchSpec = szDir + "*.jpg"	'Filespec for directory listing

	szFile = Dir(szSearchSpec, vbNormal)	'Generate a list of matching files
	While (Not StrComp(szFile,	 ""))
		If Len(szFile) > 1 Then
			szFullPath = szDir + szFile
			DBPixCtl.ImageLoadFile (szFullPath)	'Load the file
			DoCmd.GoToRecord , , acNewRec	 'Move the recordset cursor to the next image
		End If
		szFile = Dir	'Get the next filename from the directory listing
	Wend
	Finish:
End Sub

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

و طبعا الأداه نفسها تحت أمر أخوانى جميعا بالمنتدى .. لمن يحب استخدامها الملف مضغوط حوالى 4.3 ميجا

مع خالص شكرى للجميع .. الأصيل

DBPix20.chm

DBPix20.rar

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

ارجو ان يتم اكمال مثل هذا المشروع لانه بالفعل لم يتم مناقشتة من قبل - اعتقد ذلك

شكرا لك أخى الكريم

هو بالفعل لم يتم مناقشتة من قبل بهذا المنتدى ..

و هى حقا ستفتح موضوعات كثيرة هامة يحتاجها الكثير

أرجو أن نجد لدى خبرائنا ما يحل الأشكالية .. :lol: :rolleyes:

خالص شكرى للجميع

الأصيل

للرفع

الاخوة الاعزاء شكرا على هذا المجهود الكبير

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

كل عام و أنتم جميعا بألف خير

رمضان كريم

الأصيل

تفضل اخي الكريم الأصيل

الشرح الكامل للبرنامج مع التطبيق

التقاط صورة الموظف بالكميرا او بالماسح الضوئي وحفظها في مجلد الصور

/index.php?showtopic=170595

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

إخواني بالمنتدى السلام عليكم ورحمة الله وبركاته

عندي كاميرا ديجيتال ماركة كانون

أريد أن أجعلها تعمل في نفس الوقت ككاميرا ويب بدلا من شراء كاميرا ويب

بمعني عندما أحتاج تشغيلها ديجيتال تعمل وعند تشغيلها على النت برده تعمل

فهل هذا ممكن من الأفاضل أصحاب الأفكار

وفقكم الله لما فيه رضاه أخوكم بابا محمد

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

sx1 كتب:

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

ارجو ان يتم اكمال مثل هذا المشروع لانه بالفعل لم يتم مناقشتة من قبل - اعتقد ذلك

ارجوا اكمال المثال لانه مهم جدا

احمدالسلطان كتب:

ارجوا اكمال المثال لانه مهم جدا

ياريت تكمل المثال مع وتعمل زرار لالتقاط الصورة وكمان يولع فلاش الكامرا

الله بيكون رووووووووووووووووووووعه