إقتباس :السلام عليكم
كيف حالكم اخواني . ممكن طريقة خزن صور لملفات موظفين مثل كتب شكر او تعيين عن طريق جهاز سكنر وخزنها بقاعدة بيانات واسترجاها ولعرضها او طباعتها
بالفجوال بيسك 2008
وعليكم السلام
1- تحتاج الى إظافة مكتبة Interop.WIA.dll الى المشروع لسحب الصور من الاسكنر
2- ضع هذا في أعلى المشروع للتعامل مع هذه المكتبة
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