تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
تخزين صور ملفات متنوعه لشخص واحد من قيد في قاعدة بيانات
#1
السلام عليكم
كيف حالكم اخواني . ممكن طريقة خزن صور لملفات موظفين مثل كتب شكر او تعيين عن طريق جهاز سكنر وخزنها بقاعدة بيانات واسترجاها ولعرضها او طباعتها
بالفجوال بيسك 2008
الرد
تم الشكر بواسطة:
#2
اعمل جدول للصور فيه ثلاث حقول
حقل ترقيم تلقائي للصورة
حقل رقم الموظف
حقل الصورة نفسها
ثم اربط حقل رقم الموظف برقمه في جدول الموظفين
الرد
#3
(02-03-18, 07:46 PM)طالب برمجة كتب : اعمل جدول للصور فيه ثلاث حقول
حقل ترقيم تلقائي للصورة
حقل رقم الموظف
حقل الصورة نفسها
ثم اربط حقل رقم الموظف برقمه في جدول الموظفين

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



(إني وجهت وجهي للذي فطر السماوات والأرض حنيفًا وما أنا من المشركين)
الرد


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] كيفية جلب مدة تشغيل عدة ملفات صوتية قبل تشغيلها asmarsou 3 313 منذ 5 ساعة مضت
آخر رد: alfaiz678
  ملف تنفيذي واحد moh8880 0 88 12-04-21, 03:24 PM
آخر رد: moh8880
  البحث في بيانات الجريد عن نص مكتوب في RichTextBox aftfm 5 135 09-04-21, 08:07 PM
آخر رد: messry
  [VB.NET] الكود المكافئ لعرض أسماء الجداول فى قاعدة البيانات mmaalmesry 3 175 08-04-21, 07:24 PM
آخر رد: mmaalmesry
  حفظ list box في قاعدة البيانات اعينوني,,,,,,, KIKO1992 1 373 04-04-21, 03:45 AM
آخر رد: messry
  [سؤال] كيفية التعامل مع عدة قواعد بيانات ابو انس 6 298 26-03-21, 02:52 AM
آخر رد: ابو انس
Rainbow [سؤال] سؤال عن طريقة توصيل كامبرا الموبايل بقاعدة بيانات خالد دياب 0 161 25-03-21, 07:13 PM
آخر رد: خالد دياب
  [سؤال] سؤال عن ListView و الربط مع قاعدة البيانات alims 1 196 18-03-21, 01:59 AM
آخر رد: alims
  [سؤال] ممكن فكرة حفظ عدد غير معلوم من الصور بقاعدة بيانات سيكوال ahmedramzyaish 1 274 12-03-21, 09:34 PM
آخر رد: محمد فوزى محمد
  قاعدة بيانات Sql Server ghias 2 335 28-02-21, 08:57 AM
آخر رد: العتيق

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم