تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
اظهار صورة ملتقطة من webcam في DATAGRIDVIEW
#1
السلام عليكم
استخدم حاليا webcam لالتقاط صور ثم حفظها في الكمبيوتر ولكني لدي داتاقريد أود اظهار الصور الملتقطة فيها بعد الضغط على زر الالتقاط 

i used a webcam to capture pictures and save it to my computer now i would like to show every picture tooked in a column in my DATAGRIDVIEW i added a new column to my datagrid, but i did not find a way to show them i want when i click capture button == > save it directly in my computer at the same time show it to my datagridview


كود :
Private Sub frmWeight_Load(sender As Object, e As EventArgs) Handles MyBase.Load

   DataGridView1.DataSource = vbEmpty
   DataGridView1.Columns.Clear()

   Dim table As New DataTable

   table.Columns.Add("Picture_name", GetType(String))
   table.Columns.Add("Gewicht", GetType(String))
   btnWeiter.Enabled = False


  HERE I ADDED THE IMAGE COLUMN  '

 Dim dgvImageColumn As New DataGridViewImageColumn
    dgvImageColumn.DataPropertyName = "ActualPaketImage"
    dgvImageColumn.Name = "ActualPaketImage"
    dgvImageColumn.ImageLayout = DataGridViewImageCellLayout.Zoom
    DataGridView1.Columns.Add(dgvImageColumn)

    DataGridView1.DataSource = table


    With Me.DataGridView1.RowTemplate
      .DefaultCellStyle.BackColor = Color.Bisque
      .Height = 150
      .MinimumHeight = 20
    End With
    Me.DataGridView1.DataSource = table
    Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
    DataGridViewCellStyle1.Font = New System.Drawing.Font("Microsoft Sans Serif", 20.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
    Me.DataGridView1.DefaultCellStyle = DataGridViewCellStyle1
    Me.DataGridView1.Columns(0).Width = 120
    Me.DataGridView1.Columns(1).Width = 120
    Me.DataGridView1.Columns(2).Width = 400




End sub

Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick

   Try
     PictureBox1.Image = Capture.QueryFrame.ToBitmap()
   Catch ex As Exception
     Capture = New Emgu.CV.Capture
   End Try

 End Sub
 ' start the webcam
 Private Sub startWebcam_Click(sender As Object, e As EventArgs) Handles startWebcam.Click
   Timer1.Start()

 End Sub

 Private pakNum As Integer = 0


 Private Sub captWebcam_Click(sender As Object, e As EventArgs) Handles captWebcam.Click

   Timer1.Stop()

   'Save the picture

   pakNum += 1
   PictureBox1.Image.Save("D:\WEBCAM\Img" & strBarcode & "-" & pakNum.ToString("00") & ".JPEG", Imaging.ImageFormat.Jpeg)
   capture.Dispose()

   startWebcam.Visible = False

   Timer1.Start()
 End Sub
الرد
تم الشكر بواسطة:
#2
(04-03-20, 01:26 PM)nasro.betz كتب : السلام عليكم
استخدم حاليا webcam لالتقاط صور ثم حفظها في الكمبيوتر ولكني لدي داتاقريد أود اظهار الصور الملتقطة فيها بعد الضغط على زر الالتقاط 

i used a webcam to capture pictures and save it to my computer now i would like to show every picture tooked in a column in my DATAGRIDVIEW i added a new column to my datagrid, but i did not find a way to show them i want when i click capture button == > save it directly in my computer at the same time show it to my datagridview


كود :
Private Sub frmWeight_Load(sender As Object, e As EventArgs) Handles MyBase.Load

   DataGridView1.DataSource = vbEmpty
   DataGridView1.Columns.Clear()

   Dim table As New DataTable

   table.Columns.Add("Picture_name", GetType(String))
   table.Columns.Add("Gewicht", GetType(String))
   btnWeiter.Enabled = False

   Dim img As New DataGridViewImageColumn()

   table.Columns.Add("picture")
   img.HeaderText = "picture"
   Img.Name = "img"
End sub

Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick

   Try
     PictureBox1.Image = Capture.QueryFrame.ToBitmap()
   Catch ex As Exception
     Capture = New Emgu.CV.Capture
   End Try

 End Sub
 ' start the webcam
 Private Sub startWebcam_Click(sender As Object, e As EventArgs) Handles startWebcam.Click
   Timer1.Start()

 End Sub

 Private pakNum As Integer = 0


 Private Sub captWebcam_Click(sender As Object, e As EventArgs) Handles captWebcam.Click

   Timer1.Stop()

   'Save the picture

   pakNum += 1
   PictureBox1.Image.Save("D:\WEBCAM\Img" & strBarcode & "-" & pakNum.ToString("00") & ".JPEG", Imaging.ImageFormat.Jpeg)
   capture.Dispose()

   startWebcam.Visible = False

   Timer1.Start()
 End Sub

كود :
table.Columns.Add("picture",gettype(byte()))
الرد
تم الشكر بواسطة: ابراهيم ايبو
#3


واعبد ربك حتى يأتيك اليقين
الرد
تم الشكر بواسطة: ابراهيم ايبو
#4
لم تشتغل معي
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  عرض صورة مقطع موسيقي aldery 0 19 منذ 6 ساعة مضت
آخر رد: aldery
  اظهار الادوات لتقرير مثل parameter عمور2016 4 164 17-11-20, 03:25 AM
آخر رد: SABER_ZINOUBI
  [VB.NET] اريد اظهار الجمع الموجود في داتا قريد لكل شهر يظهر في label rochdi191 13 763 10-11-20, 11:55 PM
آخر رد: rochdi191
  [سؤال] الحفظ و التعديل و الحذف داخل datagridview and databases Sql server mo.fathi 1 142 10-11-20, 04:32 PM
آخر رد: mmali127
  ماهي طريقة إضافة اكثر من صورة دفعة واحد لمجلد الصور داخل المشروع وحفظ المسارات بـ sql العطر الرايق 13 451 10-11-20, 03:36 AM
آخر رد: سعود
Question [VB.NET] كيف يتم تحديث البيانات في DataGridView بعد حفظ السجل الحالي ؟؟ Microformt 6 205 09-11-20, 07:54 PM
آخر رد: moahmed.abdelmohsen
  طريقة تحديد مقاس الصورة في Datagridview aliraqi 4 363 30-10-20, 04:10 PM
آخر رد: AymanRamadanSaad
  ممكن كود مجموع ضرب عمودين (هناك صورة مرفقة) sofiane-phy 2 218 29-10-20, 10:31 AM
آخر رد: sofiane-phy
  خطأ في الحفظ بدون صورة sofiane-phy 7 303 24-10-20, 08:28 AM
آخر رد: سعود
  طباعة datagridview khaled Mohammed 1 189 27-09-20, 02:48 PM
آخر رد: khaled Mohammed

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


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