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

إقتباس :السلام عليكم 
كيف حالكم اخواني . ممكن طريقة خزن صور لملفات موظفين مثل كتب شكر او تعيين عن طريق جهاز سكنر وخزنها بقاعدة بيانات واسترجاها ولعرضها او طباعتها 
بالفجوال بيسك 2008

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

1- تحتاج الى إظافة مكتبة Interop.WIA.dll الى المشروع لسحب الصور من الاسكنر

2- ضع هذا في أعلى المشروع للتعامل مع هذه المكتبة 

كود :

Imports WIA

3- هذا الحدث خاص بحسب الصور من الاسكنر مباشرة 

كود :

 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()
       Try
           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("Current Intent").Value = &H2
                   .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
       Catch

       End Try
   End Function

4 - قم بإضافة Button وكذلك PictureBox1  الى النافذة  

5- ضع هذا الكود في Button ليقوم بعملية سحب الصورة عن طريق الحدث السابق وعرضها في مربع الصور PictureBox1  

كود :

Try
           Dim myMS As MemoryStream
           myMS = New MemoryStream(scanMe(300, 11.6, 8.3, False, False))
           PictureBox1.Image = Image.FromStream(myMS)
           PictureBox1.SizeMode = PictureBoxSizeMode.Zoom
       Catch ex As Exception
           MessageBox.Show(ex.Message, "", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1, MessageBoxOptions.RightAlign)
       End Try

قم بتشغيل البرنامج وضع صورة داخل الاسكنر وانقر على Button  لسحب الصورة وعرضها مباشرة على PictureBox1  

-----------------

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

...

تحياتي

---

هذا رابط المكتبة للتحميل Interop.WIA.dll