تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
طلب تعديل كود لاظهار الصور من السكانر
#1
السلام عليكم
 اذا كان الماسح الضوئي يدعم التغذية التلقائية بأكثر من ورقة

كيف يمكن ان يتم تعديل الكود التالي حتى تظهر كل صورة ملتقطة من السكانر لوحدها في PictureBox

الصورة الأولى تظهر في PictureBox1
الصورة الثانية تظهر في PictureBox2
الصورة الثالثة تظهر في PictureBox3
الصورة الرابعة تظهر في PictureBox4
كود :
Imports Leadtools
Imports Leadtools.Twain
Imports Leadtools.Codecs
Imports Leadtools.WinForms
Public Class Form1
   Private WithEvents TwainSession As TwainSession
   Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
       TwainSession.Shutdown()
   End Sub
   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       Try
           RasterCodecs.Startup()
           Me.TwainSession = New TwainSession
           ' هذا الكود أخذته من درس للأخ عبد الله الدورسي
           ' لذلك تلاحظون ورود اسمه في الكود اللي تحت بالانجليزي
           Me.TwainSession.Startup(Me, "Scan Technologies, Inc.", "Abdulla Scanner .NET", "Version 16", "Abdulla Twain test sample", TwainStartupFlags.None)
           Me.TwainSession.ShowProgressIndicator(True)
           Me.Text = TwainSession.SelectedSourceName
       Catch ex As Exception
           MsgBox(ex.Message, MsgBoxStyle.Exclamation, "error")
       End Try
   End Sub
   Private Sub TwainSession_AcquirePage(ByVal sender As Object, ByVal e As Leadtools.Twain.TwainAcquirePageEventArgs) Handles TwainSession.AcquirePage
       Try
           ' هذا الحدث يجلب الصورة الملتقطة ويظهرها مباشرة في أدة الصور
           If Not IsNothing(e.Image) Then
               PictureBox1.Image = Image.FromHbitmap(e.Image.ToHBitmap)
           End If
       Catch ex As Exception
           MessageBox.Show(ex.Message, "خطأ", MessageBoxButtons.OK, MessageBoxIcon.Error)
       End Try
   End Sub
   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Me.TwainSession.Acquire(TwainUserInterfaceFlags.Show)
   End Sub
   Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
       ' اغلاق البرنامج
       Me.Close()
   End Sub

   Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
       ' تفريغ أداة الصور
       PictureBox1.Image = Nothing
   End Sub
End Class


مرفق المثال


الملفات المرفقة
.rar   Twain.rar (الحجم : 986.12 ك ب / التحميلات : 108)
الرد }}}}
تم الشكر بواسطة:
#2
الرجاء المساعدة
الرد }}}}
تم الشكر بواسطة:
#3
اخوي الحل انك تحط متغير من توع سترينح

وتحط فيه رقم 1

وفي كود السكنر ضع شرط اذا كان الرقم 1 قم بوضع الصوره في مربع الصور1 اذا كان 2 ضع الصوره في مربع الصور 2 وهاكذا

وفي زر السكتر ضع مل مره يقوم السمخدم بضغط عليه يقوم يزيادة الرقم في المتغير


اانا الات على جهاز لا يوجد به فيجوال بيسك ولا كان سويت لك المشروع
لحمد لله رب العالمين على كل شي
الرد }}}}
تم الشكر بواسطة: f-www
#4
الاخ hassan كل عام وانتم بخير
لقد قمت بتباع الخطوات السابقة لكن تظهر الصور مكرره في جميع ادوات الصور وذلك لان الماسح يسحب الاوراق بتتالي دون اعطاء فرصة لتعديل المتغير قمت باضافة  كود الزيادة للمتغير بعد تعبيئة كل ادة بالصورة وكانت النتيجة نفسها تتكرر الصورة في جميع الادوات

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

ارجوا اتكرم بمساعده

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


الملفات المرفقة
.rar   الماسح.rar (الحجم : 1.89 م ب / التحميلات : 96)
الرد }}}}
تم الشكر بواسطة: أبو عمر
#5
لتصطاد !!
يلزمك اجراءان الاول ان تحفظ الصورة من اداة الصورة الى ملف
ثم تقرأها من المسار على هيئة بايتات وتحفظها في الحقل المناسب
وعند البحث والقراءة ايضا يلزمك اجراءان
ان تقوم بتحول البايتات من الحقل الى صورة في مسار معين وتقرأها باداة الصور
------------------
أو استخدم اداة الجريد فيو واجعل حقل الصورة يأخذ الصورة مباشرة من اداة الصور
وفي نفس الوقت مرتبط في الجدول بحقل من نوع كائن
ولكن انت تسأل عن SQL
فالحل هو البايتات .
سبحان الله والحمدلله ولا إله إلا الله والله أكبر
 رَبِّ اغْفِرْ لِي وَلِوَالِدَيَّ
Heart
الرد }}}}
تم الشكر بواسطة: f-www


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [كود] تعديل كود البحث بين تاريخينب hglogtd 2 44 29-11-16, 01:37 AM
آخر رد: hglogtd
  [VB.NET] طلب تعديل ع الكود ليصبح البرنامج جاهزاً 3asfa~mdmra 8 202 12-11-16, 02:30 AM
آخر رد: 3asfa~mdmra
  [VB.NET] تعديل بسيط على المشروع المرفق أبووسم 4 137 29-10-16, 03:42 PM
آخر رد: أبووسم
  [VB.NET] محتاج تعديل الاكواد . 0theghost0 3 98 18-10-16, 10:52 AM
آخر رد: mhmd_911
  [سؤال] مطلوب كود لاظهار حرارة المعالج adeeb mark 3 141 04-10-16, 10:26 PM
آخر رد: adeeb mark
  [كود] تعديل في المشروع الخاص بي عبدالرحمن المكاوي 2 110 04-10-16, 08:25 PM
آخر رد: عبدالرحمن المكاوي
  تعديل على كود فتح ملف معين و إنشاء ملف جديد أبووسم 2 149 25-09-16, 02:14 PM
آخر رد: أبووسم
  سحب صورة من السكانر في فيجيول بيسك توفي العراقي 3 174 24-09-16, 10:14 PM
آخر رد: ابراهيم النعيمي
  تعديل الكود لرفع ملف على الانترنت anes 10 349 22-09-16, 04:20 PM
آخر رد: أبو عمر
Rainbow [سؤال] كيف يتم تعديل الكود من الفيجوال بيسك الى الفيجوال دوت نت محمد مسافر 2 190 17-09-16, 08:32 PM
آخر رد: محمد مسافر

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم