اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


د.كاف يار

الردود الموصى بها

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

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

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

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

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

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

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

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

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

 

المكتبات المستخدمة.jpg

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

  • Like 8
  • Thanks 2
  • Haha 1
رابط هذا التعليق
شارك

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

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

ماذا لو تمكنا من اضافة مكتبة ادوات 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

 

  • Like 1
  • Confused 1
رابط هذا التعليق
شارك

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

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

 

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

  • Like 2
رابط هذا التعليق
شارك

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

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

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

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

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

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

 

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

 

رابط هذا التعليق
شارك

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

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

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

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

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

 

  • Like 1
  • Haha 1
رابط هذا التعليق
شارك

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

  • Like 1
رابط هذا التعليق
شارك

  • 2 weeks later...

Up

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

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

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

رابط هذا التعليق
شارك

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

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

 

مرفق التعديل

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

  • Like 1
رابط هذا التعليق
شارك

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

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

احبكم فى الله :wub:

رابط هذا التعليق
شارك

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

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

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

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

رابط هذا التعليق
شارك

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

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

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

Scan With ms Access ADF.zip

  • Like 4
رابط هذا التعليق
شارك

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

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

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

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

رابط هذا التعليق
شارك

السلام عليكم

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

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

 

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

  • Like 1
رابط هذا التعليق
شارك

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

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

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

تم تعديل بواسطه ابا جودى
  • Thanks 1
رابط هذا التعليق
شارك

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

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

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

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

  • Like 1
رابط هذا التعليق
شارك

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

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

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

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

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

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

 

  • Like 1
رابط هذا التعليق
شارك

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

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

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

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

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

  • Like 1
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information