سحب عدة صور من خلال الماسح الضوئي

[حسين العربى]

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

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

طبعا الحين انا اريد ان اضيف عليه خاصية السحب من الماسح الضوئي  عدة صور بحيث عند سحب الصور احفظ الصور في الفولدر الذي احدده  وبعد حفظ الصور في المسار الذي احدده جلب مسار الصور التي حفظتها في الفولدر  الي النموذج الفرعي وهذا مرفق من البرنامج  الذي كان الفضل فيه اولا ( لمولي عز وجل) ثم الاخ محمد سلامه  والاخ شيفان زادهم الله من علمه وبارك الله فيهم 

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

طبعا انا تعبت كثيرا في البحث في المنتدي ووجدت امثلة كثيره ولاكن ليثت ما اريد بالظبط 

ارشيف الكتروني.rar

[حسين العربى]

بصيغة 2003

arsef1 2003.rar

[sandanet]

اخي حسين هذا كود السحب من السكانر 
 

Public Function GetScan()

Dim intRes As Integer
Dim dlg As WIA.CommonDialog
Dim mgr As WIA.DeviceManager
Dim prc As WIA.ImageProcess
Dim dev As WIA.Device
Dim img As WIA.ImageFile
Dim imgFmt As WIA.ImageFile
Dim itm As WIA.Item
Dim prp As WIA.Property
Dim flis As WIA.FilterInfos

Set dlg = New WIA.CommonDialog
Set mgr = New WIA.DeviceManager
Set dev = dlg.ShowSelectDevice

Set itm = dev.Items(1)
intRes = 300
itm.Properties("Current Intent") = 4
itm.Properties("Horizontal Resolution") = intRes
itm.Properties("Vertical Resolution") = intRes


Set img = dlg.ShowTransfer(itm)

Set prc = New WIA.ImageProcess
Set flis = prc.FilterInfos
prc.Filters.Add flis("Convert").FilterID
prc.Filters(1).Properties("FormatID").Value = wiaFormatPNG
Set imgFmt = prc.Apply(img)

imgFmt.SaveFile "c:\test.png"

End Function


Private Sub Command1_Click()
On Error Resume Next
Call GetScan
End Sub

 

[حسين العربى]

اخي الفاضل الف شكر علي اهتمامك بموضوعي وردك السريع  

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

تم تعديل أبريل 14, 2017 بواسطه حسين العربى

[حسين العربى]

up

تم تعديل أبريل 15, 2017 بواسطه حسين العربى

[حسين العربى]

ج

[Shivan Rekany]

19 ساعات مضت, حسين العربى said:

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

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

[حسين العربى]

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

تم تعديل أبريل 15, 2017 بواسطه حسين العربى

[Shivan Rekany]

16 دقائق مضت, حسين العربى said:

والله احزنتني ولاكن لك عزرك

يا رب اغفر لنا .. اننا احزنّا قلب واحد طيب
اعتذر بشدة
 

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

[sandanet]

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

[حسين العربى]

استاذي ومعلمي الفاضل sandanet  لوتكرمت ممكن تطبق لي الكود علي برنامجي لاني حاولت وما ظبط معي

ولي سؤال استاذي هل هذا الكود  يتيح لي امكانية الحفظ عند السحب الي المكان الذي اريده  وجلب مسار الصوره الي النموذج الفرعي المرتبط ببيانات الموظف ولك جزيل الشكر

تم تعديل أبريل 15, 2017 بواسطه حسين العربى

[حسين العربى]

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

https://drive.google.com/file/d/0B5oTVOnhU-rrUmo4Y0NueThtMUk/view?usp=sharing

[sandanet]

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

imgFmt.SaveFile "c:\test.png"

بامكانك استبداله بأمر حفظ الملف الى اي مكان انت تحدده .. سأحاول تنفيذه غداً ان شاء الله

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

 

حالياً لا أملك جهاز سكانر للتجربة في المنزل لكن يمكنك تجربة الملف المرفق التجريبي لكود السكانر واخباري بالنتيجة 

كود اخذ صورة من السكانر.zip

تم تعديل أبريل 16, 2017 بواسطه sandanet

[حسين العربى]

الف شكر استاذي الفاضل جاري التجربه

[حسين العربى]

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

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

[حسين العربى]

تم تعديل أبريل 16, 2017 بواسطه حسين العربى

[حسين العربى]

3 ساعات مضت, حسين العربى said:

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

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

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

لو امكن اخي الفاضل  هذا الكود 

imgFmt.SaveFile "c:\test.png"

يأخذ من مربع نص غير منضم  انا عامله وعامل كود عند الضغط عليه اذهب الي الفولدر وعند الضغط علي الفولدر يجلب لي مسار الفولد ر  

( وانسي الرد الي هو ملحوظه  )

وهذا هي  شكل مربع النص الي الي انا عامله وبجوار زر امر علي شكل فولدر عند الضغط عليه يفتح لي مربع حوار واذهب الي الفولدر الي عاوزه وعند الضغط عليه يجلب لي مسار الفولدر في مربع النص  طبعا ده جاهز 

 

تم تعديل أبريل 16, 2017 بواسطه حسين العربى

[sandanet]

اخي حسين ارجو ان ترفق اخر تعديل قمت به او قم بوضع الأمر Me.pate \ test.png بدلاً من 

"c:\test.png

 

تم تعديل أبريل 16, 2017 بواسطه sandanet

[حسين العربى]

اليك اخر تعديل اخي الفاضل انا عارف تعبتك معي

الارشيف.rar

[sandanet]

اخي حسن برنامجك غير واضح لي لا اعرف كيفية اضافة بيانات جديدة او التعديل على بيانات موجودة وعمل سكان ولا ارى مكان كود عمل السكان الذي زودتك به في برنامجك!!

[حسين العربى]

لحظه وارفقه لك

[حسين العربى]

تفضل اخي وعملت التعديل في الكود الي قولتله عليه

الارشيف.rar

[sandanet]

اخي حسين اين زر امر اخذ صورة من السكانر في نموذجك الاصلي الذي يحتوي على مسار المجلد؟ 

[حسين العربى]

موجود اخي الفاضل  في نموذج formS1 

وليك المرفق مره اخري

الارشيف.rar

[حسين العربى]