[وهج الصحراء]

السلام عليكم

اريد كود سحب الصورة من الاسكانر ووضعها في البكتشر بوكس



شكرا لكم ..

[طالب برمجة]

شاهد هذه المواضيع
مشروع الماسح الضوئي Scanner
شرح - سحب الصور بأستخدام الماسح الضوئي (السكانر ) image scan

[عبد العزيز البسكري]

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

تسلم أخي الكريم " طالب برمجة " على رابط الملف الرّائع لعمل السكانر

الدّال على الخير كفاعله

جزاك الله أحسن من ذلك و نفع بك الاسلام و المسلمين إن شاء الله

بعد إذن صاحب الموضوع ..

أخي الكريم أوّل مرّة أرى فورم بالعديد من End Class

فلم أفهم بدايته من نهايته

فلو تكرّمت و كان ذلك بالإمكان إضافة زر الحفظ للصّورة بأي قرص من أقراص الجهاز و ليكن مثلاً C

بارك الله فيك و لك مقدّمًا و رزقك من حيث تحتسب و من حيث لا تحتسب

تحياتي

[طالب برمجة]

لم أتعامل من قبل مع الماسح الضوئي،
بالاضافة أنه ليس لدي ماسح ضوئي لتجربة المرفق،
عندما شاهدت الكود لم أفهمه.

[عبد العزيز البسكري]

(15-12-17, 12:46 AM)طالب برمجة كتب : لم أتعامل من قبل مع الماسح الضوئي،
بالاضافة أنه ليس لدي ماسح ضوئي لتجربة المرفق،
عندما شاهدت الكود لم أفهمه.

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

بارك الله فيك أخي الكريم و جزاك خير الجزاء بكل الحالات

" الباب لي يجيلك منّو ..........................سدّوا واستريح "

أنا كذلك استغنيت عن المشروع بما فيه لأنّي ببساطة تعبت في إيجاد الوسيلة لنسخ على الأقل محتوياته أو تكييفها لما يناسبني

تحياتي

[طالب برمجة]

لا يوجد .......................... ولا حاجة
المسألة في معرفة الكود

استطعت اختصار الكود وتوصلت للتالي:
اعمل مشروع وقم بتضمين المكتبتان التاليتان:
Leadtools.dll
Leadtools.Twain.dll

وفي الفورم ضع زرين وأداة صورة

PHP كود :

Public Class Form1

    Private WithEvents TwainSession1 As New Leadtools.Twain.TwainSession
    Private Sub TwainSession1_AcquirePage(ByVal sender As Object, ByVal e As Leadtools.Twain.TwainAcquirePageEventArgs) Handles TwainSession1.AcquirePage
        If Not IsNothing(e.Image) Then
            PictureBox1.Image = e.Image.ConvertToGdiPlusImage
        End If
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try
            Me.TwainSession1.Startup(Me, "Scan Technologies, Inc.", "Abdulla Scanner .NET", "Version 16", "Abdulla Twain test sample", Leadtools.Twain.TwainStartupFlags.None)
            Me.TwainSession1.Acquire(Leadtools.Twain.TwainUserInterfaceFlags.Show)
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If Not IsNumeric(PictureBox1.Image) Then
            Using save As New SaveFileDialog With {.Filter = "Images|*.png"}
                If save.ShowDialog = vbOK Then
                    PictureBox1.Image.Save(save.FileName, Imaging.ImageFormat.Png)
                End If
            End Using
        End If
    End Sub

End Class 


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

[عبد العزيز البسكري]

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

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

تحياتي

[طالب برمجة]

هل تم تجربة مشاركتي الأخيرة من عضو لديه ماسح ضوئي وعمل بنجاح؟

[عبد العزيز البسكري]

(15-12-17, 04:10 PM)طالب برمجة كتب : هل تم تجربة مشاركتي الأخيرة من عضو لديه ماسح ضوئي وعمل بنجاح؟

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

مع الأسف المثال لم يعمل أخي الكريم .. عند محاولة تشغيل المشروع تأتي الرسالة التالية ..

تحياتي

[طالب برمجة]

قم بتعديل startup في الملف App.config الموجود ضمت قائمة ملفات المشروع

إن وجدت الملف App.config ولم تجد الجزء startup فاكتبه في نهاية الملف قبل السطر الأخير

PHP كود :

<startup useLegacyV2RuntimeActivationPolicy="true">
  <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.0,Profile=Client"/>
</startup>