للمتطوعين: التقاط الصورة بكاميرا Webcam

[jjafferr]

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

 

الجزء الاول تم مناقشته هنا

 

هذا الجزء رقم 2 من مشروع متكامل لتصوير الاشخاص والمستندات بإستخدام الكاميرات والماسح الضوئي (Scanner) ، والمشروع يتكون من:

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

وهذه الاجهزة ستكون لتصوير الاشخاص والمستندات ، ان شاء الله

1. التصوير عن طريق كاميرا هاتف اندرويد ، وتمت التجربة على هاتف اندرويد Galaxy S3 بنظام 4.4 و Huawei Mate 7 بنظام اندرويد 6 ،
2. التصوير عن طريق WebCam ، وتمت التجربة على Logitec HD c615 ، و Creative Live (VF0610)e ،
3. التصوير عن طريق الكامرات الكبيرة من نوع DSLR ، وتمت التجربة على Nikon D5100 او Canon Mark iii ،
4. تطويع الماسح الضوئي لتصوير المستند/المستندات ، وحفظ المستندات الى اي مجلد ، بصيغة pdf او jpg

والعمل غير مكتمل 100% ،

 

هذا البرنامج يشتمل على الرقم 1 كذلك (وهو نفس نسخة الرابط اعلاه وبدون تغيير) ،

هذا البرنامج يعتمد على البرنامج الخارجي (RobotEyez.exe) ، وهذا رابطه:

https://batchloaf.wordpress.com/2011/11/27/ultra-simple-machine-vision-in-c-with-roboteyes/

وهذا كود برنامج التصوير عن طريق كاميرا Webcam:

    Dim cmmd As String
    
    'how long does it take to take the picture
    istart = Timer
    
    'set BE_Path
    Call BE_or_FE

    'RobotEyez location
    App_Location = BE_Path & "Camera_App\WebCam\RobotEyez.exe"
    Save_images_to = BE_Path & "images\"
    'Debug.Print App_Location
    
    iview_Folder = BE_Path & "image_App\i_view32.exe"
    File_Path = Save_images_to & Me.Employee_ID & ".jpg"
        
    SetCurrentDirectory Save_images_to
    'cmmd = App_Location & " /devnum 1 /delay 1000 /width 1920 /height 1080 /bmp"
    cmmd = App_Location & " /devnum 1 /delay 1000 /width 1280 /height 720 /bmp"
    'Debug.Print cmmd
    
    Call ShellWait(cmmd, vbHidden)
    
    'convert bmp to jpg
    Call ShellWait(iview_Folder & " " & Save_images_to & "frame.bmp" & " /convert=" & File_Path, vbNormalFocus)

    'Delete the bmp image
    Kill Save_images_to & "\frame.bmp"
        
    'show the picture in the Form
    Me.Pic.Picture = Save_images_to & Me.Employee_ID & ".jpg"
    
    MsgBox Timer - istart

.

المرفق فيه جميع البرامج المطلوبة لجعل هذا البرنامج يعمل ، ولكن ،

1. المطلوب اولا معرفة حجم الصورة التي تستطيع Webcam التقاطها ، فاذا ادخلت رقم خطأ ، فستظهر لك رسالة بعدم الحصول على الصورة frame.bmp ،

فرجاء تغيير هذه الارقام: width 1280 /height 720

فتجربتي على الكاميرتين كانا:

 Logitec HD c615 : 1920 x 1080

Creative Live (VF0610)e : 1280 x 720

 

وهذه قائمة بالاحجام العامة للكاميرات ، وانا انصح بالبدء بالحجم 640x480 ، وعند ظهور الصورة ، تستطيع ان تزيد الحجم بالتجربة:

.

2. اذا عندك اكثر من Webcam ، مثلا تستخدم كاميرا اللابتوب واخرى خارجية ، فيجب تغيير الرقم الى 2: devnum 1  

وهذا هو سطر الكود الذي يحتاج الى تغيير:

cmmd = App_Location & " /devnum 1 /delay 1000 /width 1280 /height 720 /bmp"

.

وبما ان هذا البرنامج للتجربة ، فالرجاء ابداء ملاحظاتكم

 

جعفر

 

 

Camera_Scanner.zip

[Shivan Rekany]

فرحت لاني اول شخص ان اعمل مشارك مع مواضيعك هذا 
لكن
حصل معي هذا

 

ما السبب استاذي الحبيب ؟

تم تعديل مايو 11, 2017 بواسطه Shivan Rekany

[jjafferr]

18 دقائق مضت, jjafferr said:

1. المطلوب اولا معرفة حجم الصورة التي تستطيع Webcam التقاطها ، فاذا ادخلت رقم خطأ ، فستظهر لك رسالة بعدم الحصول على الصورة frame.bmp ،

هذا السبب 

 

جعفر

[Shivan Rekany]

19 دقائق مضت, jjafferr said:

هذا السبب 

 

جعفر

شكرا لك

تم العمل بنجاح حسب رأيي
اولا فتحت المرفق باسم RobotEyez وتم التقط صصور عند فتحه
و فتحت صورة في برامج Picosmos Shows لكي اعرف حجم الصورة

وعرفت ان لابتوبي بيلتقط الصور بحجم 640 * 480 
للعلم لابتوبي الان هو من نوع اج بي بافيليون جي 6

وغير الارقام في ذاك السطر

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

اي يعني سيخلي لكل موظف صورة واحدة فقط

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

وتسلم ايدك سيدي

تم تعديل مايو 11, 2017 بواسطه Shivan Rekany

[king5star]

تسلم ايدك استاذى وهذه التجربة

والاب توب نوع Acer ZHG

[Shivan Rekany]

يللا استاذنا @jjafferr @ابو خليل @رمهان 
انا اتمنى ان اشوف وجوهكم الطيب
هل من الممكن ان ترفق لنا تجربتكم

[jjafferr]

21 دقائق مضت, Shivan Rekany said:

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

الحمدلله ، التجربة كانت ناجحة ، شكرا لكم

هذا الرقم هو المدة بالثواني من وقت ضغطك على زر التقاط الصورة ، إلى وقت الانتهاء من كل شيء وعرض الصورة في النموذج

 

جعفر

 

الحجم 640x480 هو حجم افتراضي وتستطيع ان تجرب الرقم الاكبر فالاكبر ، حسب القائمة اللي ارفقتها في المشاركة.

 

جعفر

[رمهان]

55 دقائق مضت, Shivan Rekany said:

يللا استاذنا @jjafferr @ابو خليل @رمهان 
انا اتمنى ان اشوف وجوهكم الطيب
هل من الممكن ان ترفق لنا تجربتكم

اخي شيفان تحية لك وللاستاذ جعفر وبعد

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

واحب ان اعمل برامجي دائما بواسطة اكسس 100% واذا خرج الموضوع عن الاكسس فاني اترك الاكسس نهائيا وانتقل لتقنية اخرى

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

هذا وتقبلو تحياتي

تم تعديل مايو 11, 2017 بواسطه رمهان

[ابوخليل]

السلام عليكم

 

 

[king5star]

منور والله يا استاذ ابو خليل ربنا يديم عليك نور وجهك  .

[ابوخليل]

56 دقائق مضت, king5star said:

منور والله يا استاذ ابو خليل ربنا يديم عليك نور وجهك  .

الله ينور دربك بالايمان ، ويديم عليك نعمه  ، واعتذر لتغيير الصورة  

[jjafferr]

9 ساعات مضت, Shivan Rekany said:

تم العمل بنجاح حسب رأيي

 

9 ساعات مضت, king5star said:

تسلم ايدك استاذى وهذه التجربة

 

4 ساعات مضت, ابوخليل said:

الله ينور دربك بالايمان ، ويديم عليك نعمه  ، واعتذر لتغيير الصورة  

السلام عليكم شباب

 

اشكركم على تأكيد ان البرنامج اشتغل ،

وان شاء الله في النسخة النهائية نعمل احد اثنين ، حتى لا يدخل المستخدم في الكود اصلا:

1. نحاول نقرأ مقدرة الكاميرا في حجم الصور ، ونضع القائمة تلقائيا في مربع تحرير وسرد ، ويختار المستخدم الحجم المناسب ،

2. او نضع القائمة يدويا في مربع تحرير وسرد

 

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

 

 

8 ساعات مضت, رمهان said:

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

2. واحب ان اعمل برامجي دائما بواسطة اكسس 100% واذا خرج الموضوع عن الاكسس فاني اترك الاكسس نهائيا وانتقل لتقنية اخرى

هلا والله أخوي رمهان

 

1. كلنا يعرف ان الاكسس برنامج قاعدة بيانات ، ونحن في الكثير من الاحيان نلوي ذراعه ليعمل اللي نريد ، لذا انا دائما اقول:

اقتباس

وانا أؤمن بأن للأكسس حدود معينة (مثله مثل اي برنامج) ، فانا دائما استخدم البرامج المساعدة لمساعدتي في عمل المطلوب ، 

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

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

ونستخدم بشكل يومي كائنات ActiveX و OCX ومكتبات تأتي مع اجهزة ، داخل الاكسس (والتي هي برامج خارجية) ، سواء من صنع مايكروسوفت ، او من غيرها ،

2. هممم ، هنا سنواجه مشكلة في جميع البرامج تقريبا!!

SQL Server ليس ببرنامج بحد ذاته ، حيث انه جداول فقط ، وتحتاج الى برنامج واجهة لجعله يشتغل ، فهل هذا معناه عدم استعماله لأنه يستعمل برنامج خارجي معه!!

وفي احد المشاريع التي عملت فيها ، المبرمج كان يستعمل ASP.net ، واضطررنا الى شراء كائن ActiveX لإستعماله في البرنامج ، فهذا كذلك برنامج خارجي!!

في هذه الحالة ، احنا تمام مع الاكسس

 

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

 

والسبب اني كتبت ما قلته اعلاه ، حتى يعرف الجميع الاختيارات التي لديه ، سواء بالاكسس 100% ، او بمساعدة البرامج الخارجية

 

جعفر

 

[رمهان]

3 ساعات مضت, jjafferr said:

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

شهادة اعتز بها ووسام على صدري

تحياتي

[النجاشي]

23 ساعات مضت, jjafferr said:

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

 

الجزء الاول تم مناقشته هنا

 

هذا الجزء رقم 2 من مشروع متكامل لتصوير الاشخاص والمستندات بإستخدام الكاميرات والماسح الضوئي (Scanner) ، والمشروع يتكون من:

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

وهذه الاجهزة ستكون لتصوير الاشخاص والمستندات ، ان شاء الله

1. التصوير عن طريق كاميرا هاتف اندرويد ، وتمت التجربة على هاتف اندرويد Galaxy S3 بنظام 4.4 و Huawei Mate 7 بنظام اندرويد 6 ،
2. التصوير عن طريق WebCam ، وتمت التجربة على Logitec HD c615 ، و Creative Live (VF0610)e ،
3. التصوير عن طريق الكامرات الكبيرة من نوع DSLR ، وتمت التجربة على Nikon D5100 او Canon Mark iii ،
4. تطويع الماسح الضوئي لتصوير المستند/المستندات ، وحفظ المستندات الى اي مجلد ، بصيغة pdf او jpg

والعمل غير مكتمل 100% ،

 

هذا البرنامج يشتمل على الرقم 1 كذلك (وهو نفس نسخة الرابط اعلاه وبدون تغيير) ،

هذا البرنامج يعتمد على البرنامج الخارجي (RobotEyez.exe) ، وهذا رابطه:

https://batchloaf.wordpress.com/2011/11/27/ultra-simple-machine-vision-in-c-with-roboteyes/

وهذا كود برنامج التصوير عن طريق كاميرا Webcam:

    Dim cmmd As String
    
    'how long does it take to take the picture
    istart = Timer
    
    'set BE_Path
    Call BE_or_FE

    'RobotEyez location
    App_Location = BE_Path & "Camera_App\WebCam\RobotEyez.exe"
    Save_images_to = BE_Path & "images\"
    'Debug.Print App_Location
    
    iview_Folder = BE_Path & "image_App\i_view32.exe"
    File_Path = Save_images_to & Me.Employee_ID & ".jpg"
        
    SetCurrentDirectory Save_images_to
    'cmmd = App_Location & " /devnum 1 /delay 1000 /width 1920 /height 1080 /bmp"
    cmmd = App_Location & " /devnum 1 /delay 1000 /width 1280 /height 720 /bmp"
    'Debug.Print cmmd
    
    Call ShellWait(cmmd, vbHidden)
    
    'convert bmp to jpg
    Call ShellWait(iview_Folder & " " & Save_images_to & "frame.bmp" & " /convert=" & File_Path, vbNormalFocus)

    'Delete the bmp image
    Kill Save_images_to & "\frame.bmp"
        
    'show the picture in the Form
    Me.Pic.Picture = Save_images_to & Me.Employee_ID & ".jpg"
    
    MsgBox Timer - istart

.

المرفق فيه جميع البرامج المطلوبة لجعل هذا البرنامج يعمل ، ولكن ،

1. المطلوب اولا معرفة حجم الصورة التي تستطيع Webcam التقاطها ، فاذا ادخلت رقم خطأ ، فستظهر لك رسالة بعدم الحصول على الصورة frame.bmp ،

فرجاء تغيير هذه الارقام: width 1280 /height 720

فتجربتي على الكاميرتين كانا:

 Logitec HD c615 : 1920 x 1080

Creative Live (VF0610)e : 1280 x 720

 

وهذه قائمة بالاحجام العامة للكاميرات ، وانا انصح بالبدء بالحجم 640x480 ، وعند ظهور الصورة ، تستطيع ان تزيد الحجم بالتجربة:

.

2. اذا عندك اكثر من Webcam ، مثلا تستخدم كاميرا اللابتوب واخرى خارجية ، فيجب تغيير الرقم الى 2: devnum 1  

وهذا هو سطر الكود الذي يحتاج الى تغيير:

cmmd = App_Location & " /devnum 1 /delay 1000 /width 1280 /height 720 /bmp"

.

وبما ان هذا البرنامج للتجربة ، فالرجاء ابداء ملاحظاتكم

 

جعفر

 

 

Camera_Scanner.zip

جزاك الله خير استاذنا جعفر

[Shivan Rekany]

21 ساعات مضت, رمهان said:

اخي شيفان تحية لك

والف تحية لك سيدي

11 ساعات مضت, jjafferr said:

1. نحاول نقرأ مقدرة الكاميرا في حجم الصور ، ونضع القائمة تلقائيا في مربع تحرير وسرد ، ويختار المستخدم الحجم المناسب ،

انا اتفضل هذا على النقطة الثانية

كما عملت لي في موضوع هدية سكرين ريليشن

[النجاشي]

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

[Shivan Rekany]

25 دقائق مضت, ابو زاهر said:

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

لا انا هم عم استخدم اوفيس 2010
هل  فتحت ملف زيب رار و نقلت الملفات الى خارج زيب رار
ام فتحت برامج بداخله ؟
وما هو مشكلة عندك هل مشكلتك هو مثل مشكلتي في مشاركتي الاولى ؟

[النجاشي]

16 ساعات مضت, Shivan Rekany said:

لا انا هم عم استخدم اوفيس 2010
هل  فتحت ملف زيب رار و نقلت الملفات الى خارج زيب رار
ام فتحت برامج بداخله ؟
وما هو مشكلة عندك هل مشكلتك هو مثل مشكلتي في مشاركتي الاولى ؟

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

[Shivan Rekany]

23 دقائق مضت, ابو زاهر said:

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

انقل كل الملفات الى مكان واحد مثلا قرص D و جرب 

[النجاشي]

26 دقائق مضت, Shivan Rekany said:

انقل كل الملفات الى مكان واحد مثلا قرص D و جرب 

شكرا لك استلذي شفان نسخت الملفات للدي ضبط شكرا لك ولاخوان جميعا بالمنتدي

[jjafferr]

شكرا أخوي شفان

 

يحتاج المرة الجاية اكتب ، للدعم الفني رجاء مراجعة الاستاذ شفان

 

جعفر

[Shivan Rekany]

منذ ساعه, jjafferr said:

يحتاج المرة الجاية اكتب ، للدعم الفني رجاء مراجعة الاستاذ شفان

[sandanet]

ماشاء الله على هذا الابداع .. ارجو متابعة التحديث على هذا البرنامج لكي يعمل تلقائياً مع اي نوع كاميرا بدون الحاجة الى تغيير شيء في الكود

[king5star]

استاذى @جعفر إلا يمكن عرض الصورة كـ Live View قبل الالتقاط ؟

[النجاشي]

2 ساعات مضت, king5star said:

استاذى @جعفر إلا يمكن عرض الصورة كـ Live View قبل الالتقاط ؟

سوال جيد اخي الفاضل بإذن الله ينظر استاذنا جعفر. بالامر