[عمر عبد]

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

[طالب برمجة]

اعمل جدول للصور فيه ثلاث حقول
حقل ترقيم تلقائي للصورة
حقل رقم الموظف
حقل الصورة نفسها
ثم اربط حقل رقم الموظف برقمه في جدول الموظفين

[عمر عبد]

(02-03-18, 07:46 PM)طالب برمجة كتب : اعمل جدول للصور فيه ثلاث حقول
حقل ترقيم تلقائي للصورة
حقل رقم الموظف
حقل الصورة نفسها
ثم اربط حقل رقم الموظف برقمه في جدول الموظفين

السلام عليكم
اخي ممكن توضيح اكثر هذا الجدول في الاكسس تقصد

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

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