تقييم الموضوع :
  • 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 م ب / التحميلات : 98)
الرد }}}}
تم الشكر بواسطة: أبو عمر
#5
لتصطاد !!
يلزمك اجراءان الاول ان تحفظ الصورة من اداة الصورة الى ملف
ثم تقرأها من المسار على هيئة بايتات وتحفظها في الحقل المناسب
وعند البحث والقراءة ايضا يلزمك اجراءان
ان تقوم بتحول البايتات من الحقل الى صورة في مسار معين وتقرأها باداة الصور
------------------
أو استخدم اداة الجريد فيو واجعل حقل الصورة يأخذ الصورة مباشرة من اداة الصور
وفي نفس الوقت مرتبط في الجدول بحقل من نوع كائن
ولكن انت تسأل عن SQL
فالحل هو البايتات .
سبحان الله والحمدلله ولا إله إلا الله والله أكبر
 رَبِّ اغْفِرْ لِي وَلِوَالِدَيَّ
Heart
الرد }}}}
تم الشكر بواسطة: f-www


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تعديل الكود (ظهور مسج بوكس عند عدم وجود الاسم) Namer 10 414 04-01-17, 01:12 AM
آخر رد: Namer
  [سؤال] تعديل html قبل عرضه في WebBrowser ali.alfoly 16 301 24-12-16, 11:48 AM
آخر رد: Basil Abdallah
Information [VB.NET] تعديل بيسط على الكود 3asfa~mdmra 6 123 18-12-16, 04:31 AM
آخر رد: 3asfa~mdmra
Exclamation استفسار عن ادراج الصور في الفيجوال a_abdullah 1 89 14-12-16, 11:16 AM
آخر رد: silverlight
  [كود] تعديل كود البحث بين تاريخينب hglogtd 2 100 29-11-16, 01:37 AM
آخر رد: hglogtd
  [VB.NET] طلب تعديل ع الكود ليصبح البرنامج جاهزاً 3asfa~mdmra 8 233 12-11-16, 02:30 AM
آخر رد: 3asfa~mdmra
  [VB.NET] تعديل بسيط على المشروع المرفق أبووسم 4 173 29-10-16, 03:42 PM
آخر رد: أبووسم
  [VB.NET] محتاج تعديل الاكواد . 0theghost0 3 138 18-10-16, 10:52 AM
آخر رد: mhmd_911
  [سؤال] مطلوب كود لاظهار حرارة المعالج adeeb mark 3 191 04-10-16, 10:26 PM
آخر رد: adeeb mark
  [كود] تعديل في المشروع الخاص بي عبدالرحمن المكاوي 2 151 04-10-16, 08:25 PM
آخر رد: عبدالرحمن المكاوي

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


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