مثال للتعامل مع الصور ( رابط خارجي - الاسكانر - الجهاز )

[د.كاف يار]

الاخوة الاعزاء اسعد الله اوقاتكم بكل خير ..

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

و رأيت امثلة يصعب التعامل معها للمبتدئين و متوسطي الخبرة

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

( صورة من رابط خارجي - صور من الماسح الضوئي - صورة من الجهاز )

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

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

اتتمنى ان يحوز على استحسانكم .. و دمتم في رعاية الله و حفظه

من فضلكم ليس هناك داعى لعمل اقتباس عند الرد فهذا يقوم بدوره بتشتيت المطلع والباحث عن نفس الموضوع مستقبلاً

 

مثال للتعامل مع الصور.mdb

[حربي العنزي]

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

[د.كاف يار]

مرورك هو الأجمل اخي الكريم ... شكرا لك

[ابو جودي]

لا تكمن المشكله فى صورة واحدة فقط

انما مع مسح اكثر من ورقة دفعة واحدة adf 

Automatic Document Feeder

[wael_rafat]

بانتظار ابداعاتك استاذنا وحبيبنا الغالي @ابا جودى

[د.كاف يار]

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

سؤال اخي الكريم ...

ماذا لو تمكنا من اضافة مكتبة ادوات iTextSharp

فأنا استخدم هذه المكتبة مع لغة VB.ASP/#C/VB.NET

انظر الى هذا المثال لهذه المكتبة 

و الذي من خلاله قمنا بإنشاء ملف PDF من خلال الكود و وضعنا به جميع البيانات و الصور

كذلك سهولة توصيل الماسح الضوئي و الكاميرا سواء للهاتف المحمول او اللابتوب او اي كميرا خارجية

 

Try


            Dim d As New Document(PageSize.A4, 20.0F, 0.0F, 0.0F, 0.0F)
            PdfWriter.GetInstance(d, New FileStream(MapPath("~/Files/محضر اثبات حالة.pdf"), FileMode.Create))
            Dim bflatha As BaseFont = BaseFont.CreateFont(MapPath("~/timesbd.ttf"), BaseFont.IDENTITY_H, False)
            Dim Font As Font = New Font(bflatha, 14)


            d.Open()

            Dim image1 = iTextSharp.text.Image.GetInstance(MapPath("~/22.png"))
            image1.ScaleAbsolute(600.0F, 120.0F)
            d.Add(image1)
            Dim image2 = iTextSharp.text.Image.GetInstance(MapPath("~/11.png"))
            image2.ScaleAbsolute(220.0F, 100.0F)
            d.Add(image2)
            Dim image3 = iTextSharp.text.Image.GetInstance(MapPath("~/3.png"))
            image3.ScaleAbsolute(600.0F, 30.0F)
            d.Add(image3)


            Dim ph1 As Paragraph = New Paragraph("" & vbNewLine & TextBox3.Text, Font)
            Dim table1 As PdfPTable = New PdfPTable(1)
            table1.RunDirection = Element.ALIGN_JUSTIFIED
            Dim cell1 As PdfPCell
            cell1 = New PdfPCell(ph1)
            cell1.RunDirection = PdfWriter.RUN_DIRECTION_RTL
            cell1.HorizontalAlignment = Element.ALIGN_JUSTIFIED
            d.Add(table1)
            cell1.Border = 0
            table1.AddCell(cell1)
            d.Add(table1)


            Dim ph2 As Paragraph = New Paragraph("" & vbNewLine & TextBox4.Text, Font)
            Dim table2 As PdfPTable = New PdfPTable(1)
            table2.RunDirection = Element.ALIGN_CENTER
            Dim cell2 As PdfPCell
            cell2 = New PdfPCell(ph2)
            cell2.RunDirection = PdfWriter.RUN_DIRECTION_RTL
            cell2.HorizontalAlignment = Element.ALIGN_CENTER
            d.Add(table2)
            cell2.Border = 0
            table2.AddCell(cell2)
            d.Add(table2)



            Dim ph As Paragraph = New Paragraph("" & vbNewLine & t3.Text, Font)
            Dim table As PdfPTable = New PdfPTable(1)
            table.RunDirection = Element.ALIGN_JUSTIFIED
            Dim cell As PdfPCell
            cell = New PdfPCell(ph)
            cell.RunDirection = PdfWriter.RUN_DIRECTION_RTL
            cell.HorizontalAlignment = Element.ALIGN_JUSTIFIED
            d.Add(table)
            cell.Border = 0
            table.AddCell(cell)
            d.Add(table)


            Dim ph8 As Paragraph = New Paragraph("" & vbNewLine & TextBox5.Text, Font)
            Dim table8 As PdfPTable = New PdfPTable(1)
            table8.RunDirection = Element.ALIGN_CENTER
            Dim cell8 As PdfPCell
            cell8 = New PdfPCell(ph8)
            cell8.RunDirection = PdfWriter.RUN_DIRECTION_RTL
            cell8.HorizontalAlignment = Element.ALIGN_CENTER
            d.Add(table8)
            cell8.Border = 0
            table8.AddCell(cell8)
            d.Add(table8)


            Dim ph11 As Paragraph = New Paragraph(job.Text, Font)
            Dim table11 As PdfPTable = New PdfPTable(1)
            Dim cell11 As PdfPCell
            cell11 = New PdfPCell(ph11)
            cell11.RunDirection = PdfWriter.RUN_DIRECTION_RTL
            cell11.HorizontalAlignment = Element.ALIGN_RIGHT
            d.Add(table11)
            cell11.Border = 0
            table11.AddCell(cell11)
            d.Add(table11)

            Dim image44 = iTextSharp.text.Image.GetInstance(MapPath("~/stamp/" & seig.Text.Trim))
            image44.ScaleAbsolute(100.0F, 50.0F)
            image44.Alignment = Element.ALIGN_LEFT
            Dim table42 As PdfPTable = New PdfPTable(1)
            Dim cell42 As PdfPCell
            cell42 = New PdfPCell(image44)
            cell42.RunDirection = PdfWriter.RUN_DIRECTION_RTL
            cell42.HorizontalAlignment = Element.ALIGN_RIGHT
            d.Add(table42)
            cell42.Border = 0
            table42.AddCell(cell42)
            d.Add(table42)



            Dim ph4 As Paragraph = New Paragraph(usernamem.Text, Font)
            Dim table4 As PdfPTable = New PdfPTable(1)
            table4.RunDirection = BorderStyle.None
            Dim cell4 As PdfPCell
            cell4 = New PdfPCell(ph4)
            cell4.Border = 0
            cell4.RunDirection = PdfWriter.RUN_DIRECTION_RTL
            cell4.HorizontalAlignment = Element.ALIGN_RIGHT
            d.Add(table4)
            cell1.Border = 0
            table4.AddCell(cell4)
            d.Add(table4)


            Dim image5 = iTextSharp.text.Image.GetInstance(MapPath("~/stamp/" & stamp.Text.Trim))
            image5.ScaleAbsolute(100.0F, 50.0F)
            image5.Alignment = Element.ALIGN_LEFT
            Dim table3 As PdfPTable = New PdfPTable(1)
            Dim cell3 As PdfPCell
            cell3 = New PdfPCell(image5)
            cell3.RunDirection = PdfWriter.RUN_DIRECTION_RTL
            cell3.HorizontalAlignment = Element.ALIGN_RIGHT
            d.Add(table3)
            cell3.Border = 0
            table3.AddCell(cell3)
            d.Add(table3)

            d.Close()
            Response.Clear()
            Response.ContentType = "application/octet-stream"
            Response.AddHeader("Content-Disposition", "attachment; filename=""downloadName.pdf""")
            Response.WriteFile(Server.MapPath("~/Files/محضر اثبات حالة.pdf"))
            Response.End()

        Catch ex As Exception
            Label1.Text = ex.Message.ToString
        End Try

 

[د.كاف يار]

في كل الأحوال ما يدور في رأسي هو 

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

 

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

[ابو جودي]

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

سأتيك به هو يعتمد على نفس المكتبة التى قمت انت باستخدامها يا استاذى العزيز @د.كاف يار 

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

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

لم يسعنى وقتها التعامل مع المرفق 

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

 

هذا رابط الموضوع

 

[د.كاف يار]

الف الف سلامة عليك يا خالي 

اجر و عافية و طهور انشاء الله

أسأل الله العظيم رب العرش العظيم أن يشفيك

أسأل الله العظيم رب العرش العظيم أن يشفيك

أسأل الله العظيم رب العرش العظيم أن يشفيك

 

[ابو جودي]

اخى الحبيب واستاذى الكريم @د.كاف يار 
جزاكم الله تعالى خيرا على دعائكم المبارك اشهد الله تعالى انى احبكم فى الله حبا خالصا لوجهه تعالى 

[Ali Mohamed Ali]

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

[ابو جودي]

[ابو جودي]

Up

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

ولكن يمكن العمل من خلالها على انواع الماسحات الضوئية الهياى سبيد والتى سمكن من خلالها المسح الضوئى لاكثر من ورقة   Automatic Document Feeder
ولكن ما يعيب المرفق رسالة عند كل ورقه يتم مسحها ضوئيا بصراحة لا املك الادوات للعمل والتجربة الكافية فى الوقت الراهن

اتمنى على الله تعالى ان يعينكم وتجدون الوقت الكافى لحل هذه المشكلة ان شاء الله

[د.كاف يار]

اخي و  حبيبي @ابا جودى 

انت معلمنا و استاذنا الفاضل تأمر علينا و نحن ننفذ حبا لك

 

مرفق التعديل

مثال للتعامل مع الصور (1).mdb

[ابو جودي]

العفو منكم استاذى الجليل اسأل الله تعالى ان يزيدكم عزة ورفعة وبركة فى العمر والعلم والاهل والولد وان يجعلكم للمتقين اماما ً
كل الشكـر والتقدير والله لن يوفيكم قدركم 

شكر الله لكم واحسن اليكم كما تحسنون الى طلاب العلم امثالى 

احبكم فى الله 

[ابو جودي]

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

استاذى الجليل ومعلمى القدير الاستاذ @د.كاف يار  بعد التحية 

للاسف بعد التجربة لم يقم المرفق الا بعمل مسح ضوئى لورقة واحدة فقط

المطلوب المسح الضوئى لكل الاوراق مره واحدة 

[ابو جودي]

استاذى الجليل  @د.كاف يار

اطلب منكم على  النظر فى هذا المرفق والرجوع الى بعد التجربة

مسح ضوئى لاى عدد من الاوراق دون الاعتماد على اى برامج خارجية والتحويل الى   pdf 

Scan With ms Access ADF.zip

[wael_rafat]

استاذنا الغالي @ابا جودى

مع كل التقدير  والحب   للاسف  بعد التجرية

تم التجرية على سكانر عادي  (  all in one )  وليست Feeder

 

 

[wael_rafat]

استاذنا وحبيبنا ومعلمنا القدير @ابا جودى

بعد التجربة على جهاز سكانر feeder  حصل شئ غريب جدا  وهو ان البرنامج هنج وتوقف عن العمل وبالنظر الى داخل الفولدر temp  لرؤية الصور المسحوبة  وجد انها نسخ كثيرة جدااااااا  لنفس الورقة .

سامحني استاذنا للاطاله ...وبارك الله فيك وجزاك الله عنا كل خير 

مع كل الحب والتقدير

[أبو عبدالله الحلوانى]

السلام عليكم

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

وبه شرح لسحب أكثر من ورقة والتعامل مع الصور بأكثر من صيغة

 

من باب تمام الفائدة 

[محمد سلامة]

هذا الرابط هو افضل طريقه حتي الآن

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

[ابو جودي]

اعتذر لا املك الادوات الكافية واللازمة للتجربة على اكثر من موديل 

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

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

تم تعديل أكتوبر 12, 2019 بواسطه ابا جودى

[أبوبسمله]

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

هذه مشاركه فمنتدى الفريق العربى لعلها تنفعكم وجدتها اثناء بحثى هناك وتذكرت هذا الموضوع

http://arabteam2000-forum.com/index.php?/topic/287524-هل-يمكن-ادراج-مجموعة-من-روابط-الصور-دفعة-واحدة-عن-طريق-الماسح-الضوئى-السكنر/#comment-1379539

تقبلوا تحياتى ودعواتى لكم اساتذتى بالتوفيق وان يجعل ما تقدموه لنا فى ميزان حسناتكم

[محمد سلامة]

21 ساعات مضت, أحمد الفلاحجى said:

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

هذه مشاركه فمنتدى الفريق العربى لعلها تنفعكم وجدتها اثناء بحثى هناك وتذكرت هذا الموضوع

http://arabteam2000-forum.com/index.php?/topic/287524-هل-يمكن-ادراج-مجموعة-من-روابط-الصور-دفعة-واحدة-عن-طريق-الماسح-الضوئى-السكنر/#comment-1379539

تقبلوا تحياتى ودعواتى لكم اساتذتى بالتوفيق وان يجعل ما تقدموه لنا فى ميزان حسناتكم

تحياتى استاذ احمد واحب اوضح لحضرتك ان انا اصلا صاحب المرفق ده  za-Scan-UP.rar  بس مش انا صاحب المشاركة اللى معلق فيه الاستاذ زهرة والمرفق ده كنت فكرت به كاحد الحلول قديما .. وطبعا الاستاذة زهرة ادخلت عليه بعض التعديلات لكن انا اللى منشا هذا النموذج 

 

[أبوبسمله]

تقبل تحياتى أستاذى العزيز @محمد سلامة

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

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

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

تقبل تحياتى مره اخى استاذى العزيز وبالتوفيق والنجاح ان شاء الله تعالى