سحب صور بالماسح الضوئى

[ابو جودي]

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

 

Dim Ret As Long, PictureFile As String

PictureFile = mypathofdb() & "\photos\" & Me.Control_No & ".jpg"

Ret = TWAIN_AcquireToFilename(Me.hwnd, PictureFile)

If Ret = 0 Then

Me.pic_path = PictureFile
Me.pic.Picture = Me.pic_path

Else
Kill PictureFile
MsgBox "فشلت عملية المسح", vbCritical, "تنبيه"
End If

الكود ممتاز ل عمل مسح لصورة واحدة 

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

[ابوخليل]

اعتقد تم طرق الفكرة في اكثر من موضوع هنا

يابو جودي ابحث في المنتدى عن : اكثر من صورة

[N_ELMASRY]

 

[jjafferr]

وعليكم السلام 

 

هذه طريقتي  ، بمشروع متكامل:

http://www.officena.net/ib/topic/60235-هدية-ربط-الصور-وملفات-pdf-بالنموذج،-وتشغيل-الماسح-الضوئي/

 

ومثل ما قال أخونا ابو خليل: ابحث عن "اكثر من صورة"  ، مثال مختصر للموضوع اعلاه:

http://www.officena.net/ib/topic/62143-هدية-سحب-اكثر-من-صورة-من-الاسكنر-وتحويلها-الي-pdf-او-صور-مسلسلة/

 

جعفر

[ابو جودي]

اولا جزاكم الله كل الخير 

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

تم تعديل فبراير 29, 2016 بواسطه ابا جودى