[safalo]

كيف يتم ربط الماسح مع الفيجوال ...وكيف يتم اضافة مكتبة TWIN

[محمد كريّم]

حمل المشروع المرفق مشاركة ابوليلى من هنا
http://vb4arb.com/vb/showthread.php?tid=21129

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

[ابو خالد]

طريقة التعامل مع الاسكنر

اولاً يجب إرفاق مكتبة YAMTwinDll.dll الى المشروع

ثانياً : اكتب هذا في أعلى نافذة الكود للتعامل مع مكتبة WIA الخاصة بالاسكنر

PHP كود :

Imports System.IO
Imports System.Drawing.Imaging
Imports WIA 


اظف هذا الكود في Button لإستدعاء الحدث scanMe لسحب الصورة من الاسكنر وإظافتها PictureBox

PHP كود :

 Dim myMS As MemoryStream
            myMS = New MemoryStream(scanMe(300, 11.6, 8.3, False, False))
            PictureBox1.Image = Image.FromStream(myMS)
            PictureBox1.SizeMode = PictureBoxSizeMode.Zoom 


هذا حدث سحب الصورة من الاسكنر ...

PHP كود :

Private Function scanMe(ByVal myDPI As Integer, ByVal myHeight As Double, ByVal myWidth As Double, ByVal ShowSelectScanner As Boolean, ByVal ShowScanPreview As Boolean) As Byte()
        Dim CD As WIA.CommonDialog = New WIA.CommonDialog
        Dim device As WIA.Device = CD.ShowSelectDevice(WIA.WiaDeviceType.ScannerDeviceType, ShowSelectScanner, False)
        Dim item As WIA.Item = device.Items(1)
        Try
            With item
                .Properties("Horizontal Resolution").Value = myDPI
                .Properties("Vertical Resolution").Value = myDPI
                .Properties("Horizontal Extent").Value = myDPI * myWidth
                .Properties("Vertical Extent").Value = myDPI * myHeight
            End With
            Dim F As WIA.ImageFile
            If ShowScanPreview Then
                F = CD.ShowAcquireImage(WiaDeviceType.ScannerDeviceType, WiaImageIntent.ColorIntent, WiaImageBias.MaximizeQuality, WIA.FormatID.wiaFormatJPEG, False, True, False)
            Else
                F = CD.ShowTransfer(item, WIA.FormatID.wiaFormatJPEG, False)
            End If
            Dim myBuffer As Byte() = F.FileData.BinaryData
            Return myBuffer
        Catch ex As Exception
            MsgBox(ex.Message)
            Return Nothing
        End Try
    End Function 


.... انتهى ...

[NosaNO]

ممكن نستخدم نفس هذه المكتبة في VB.NET

[ابو محمد القحطاني]

(13-08-17, 06:36 PM)NosaNO كتب : ممكن نستخدم نفس هذه المكتبة في VB.NET

نعم هي تستخدم في VB.NET

[safalo]

(13-08-17, 05:01 PM)ابو خالد كتب : طريقة التعامل مع الاسكنر

اولاً يجب إرفاق مكتبة YAMTwinDll.dll الى المشروع

ثانياً : اكتب هذا في أعلى نافذة الكود للتعامل مع مكتبة WIA الخاصة بالاسكنر

PHP كود :

Imports System.IO
Imports System.Drawing.Imaging
Imports WIA 


اظف هذا الكود في Button لإستدعاء الحدث scanMe لسحب الصورة من الاسكنر وإظافتها PictureBox

PHP كود :

 Dim myMS As MemoryStream
            myMS = New MemoryStream(scanMe(300, 11.6, 8.3, False, False))
            PictureBox1.Image = Image.FromStream(myMS)
            PictureBox1.SizeMode = PictureBoxSizeMode.Zoom 


هذا حدث سحب الصورة من الاسكنر ...

PHP كود :

Private Function scanMe(ByVal myDPI As Integer, ByVal myHeight As Double, ByVal myWidth As Double, ByVal ShowSelectScanner As Boolean, ByVal ShowScanPreview As Boolean) As Byte()
        Dim CD As WIA.CommonDialog = New WIA.CommonDialog
        Dim device As WIA.Device = CD.ShowSelectDevice(WIA.WiaDeviceType.ScannerDeviceType, ShowSelectScanner, False)
        Dim item As WIA.Item = device.Items(1)
        Try
            With item
                .Properties("Horizontal Resolution").Value = myDPI
                .Properties("Vertical Resolution").Value = myDPI
                .Properties("Horizontal Extent").Value = myDPI * myWidth
                .Properties("Vertical Extent").Value = myDPI * myHeight
            End With
            Dim F As WIA.ImageFile
            If ShowScanPreview Then
                F = CD.ShowAcquireImage(WiaDeviceType.ScannerDeviceType, WiaImageIntent.ColorIntent, WiaImageBias.MaximizeQuality, WIA.FormatID.wiaFormatJPEG, False, True, False)
            Else
                F = CD.ShowTransfer(item, WIA.FormatID.wiaFormatJPEG, False)
            End If
            Dim myBuffer As Byte() = F.FileData.BinaryData
            Return myBuffer
        Catch ex As Exception
            MsgBox(ex.Message)
            Return Nothing
        End Try
    End Function 


.... انتهى ...

كيف يتم ارفاق المكتبة ؟؟

---

(13-08-17, 03:47 PM)محمد كريّم كتب : حمل المشروع المرفق مشاركة ابوليلى من هنا
http://vb4arb.com/vb/showthread.php?tid=21129

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

اغلب الملفات المرفقة لا تنفتح عندي.....

[ابو محمد القحطاني]

يتم إرفاق المكتبة من قائمة Project ثم تختار Add Reference

ستفتح نافذة من Browse اختر المكتبة --- وموافق

كذا تكون ارفقت المكتبة

والبرنامج بيشتغل معك 100% دام كاتب الاكواد بشكل صحيح

[safalo]

(14-08-17, 11:59 AM)ابو محمد القحطاني كتب : يتم إرفاق المكتبة من قائمة Project ثم تختار Add Reference

ستفتح نافذة من Browse اختر المكتبة --- وموافق

كذا تكون ارفقت المكتبة

والبرنامج بيشتغل معك 100% دام كاتب الاكواد بشكل صحيح

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

[ALi-Ip]

اخي ممكن المكتبه YAMTwinDll.dll 

لم احصل عليها