تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] كيف ألتقط صورة من الكامرة إلى البكتشر بكس
#1
أرجوكم إخواني ساعدوني
أريد هذا الكود ضروري
الرد }}}}
تم الشكر بواسطة:
#2
السلام عليكم 
اخذت كوبي من الفورم لضيق وقتي فقط 
كود :
Public Class Form1
   Const WM_CAP As Short = &H400S
   Const WM_CAP_DRIVER_CONNECT As Integer = WM_CAP + 10
   Const WM_CAP_DRIVER_DISCONNECT As Integer = WM_CAP + 11
   Const WM_CAP_EDIT_COPY As Integer = WM_CAP + 30
   Const WM_CAP_SET_PREVIEW As Integer = WM_CAP + 50
   Const WM_CAP_SET_PREVIEWRATE As Integer = WM_CAP + 52
   Const WM_CAP_SET_SCALE As Integer = WM_CAP + 53
   Const WS_CHILD As Integer = &H40000000
   Const WS_VISIBLE As Integer = &H10000000
   Const SWP_NOMOVE As Short = &H2S
   Const SWP_NOSIZE As Short = 1
   Const SWP_NOZORDER As Short = &H4S
   Const HWND_BOTTOM As Short = 1
   Dim iDevice As Integer = 0
   Dim hHwnd As Integer
   Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As OBJECT) As Integer
   Declare Function SetWindowPos Lib "user32" Alias "SetWindowPos" (ByVal hwnd As Integer, ByVal hWndInsertAfter As Integer, ByVal x As Integer, ByVal y As Integer, ByVal cx As Integer, ByVal cy As Integer, ByVal wFlags As Integer) As Integer
   Declare Function DestroyWindow Lib "user32" (ByVal hndw As Integer) As Boolean
   Declare Function capCreateCaptureWindowA Lib "avicap32.dll" (ByVal lpszWindowName As String, ByVal dwStyle As Integer, ByVal x As Integer, ByVal y As Integer, ByVal nWidth As Integer, ByVal nHeight As Short, ByVal hWndParent As Integer, ByVal nID As Integer) As Integer
   Declare Function capGetDriverDescriptionA Lib "avicap32.dll" (ByVal wDriver As Short, ByVal lpszName As String, ByVal cbName As Integer, ByVal lpszVer As String, ByVal cbVer As Integer) As Boolean

   Private Sub LoadDeviceList()
       Dim strName As String = Space(100)
       Dim strVer As String = Space(100)
       Dim bReturn As Boolean
       Dim x As Integer = 0
       Do
           bReturn = capGetDriverDescriptionA(x, strName, 100, strVer, 100)
           If bReturn Then lstDevices.Items.Add(strName.Trim)
           x += 1
       Loop Until bReturn = False
   End Sub

   Private Sub OpenPreviewWindow()
       Dim iHeight As Integer = picCapture.Height
       Dim iWidth As Integer = picCapture.Width
       hHwnd = capCreateCaptureWindowA(iDevice, WS_VISIBLE Or WS_CHILD, 0, 0, 640, 480, picCapture.Handle.ToInt32, 0)
       If SendMessage(hHwnd, WM_CAP_DRIVER_CONNECT, iDevice, 0) Then
           SendMessage(hHwnd, WM_CAP_SET_SCALE, True, 0)
           SendMessage(hHwnd, WM_CAP_SET_PREVIEWRATE, 66, 0)
           SendMessage(hHwnd, WM_CAP_SET_PREVIEW, True, 0)
           SetWindowPos(hHwnd, HWND_BOTTOM, 0, 0, picCapture.Width, picCapture.Height, SWP_NOMOVE Or SWP_NOZORDER)
           btnSave.Enabled = True
           btnStop.Enabled = True
           btnStart.Enabled = False
       Else
           DestroyWindow(hHwnd)
           btnSave.Enabled = False
       End If
   End Sub

   Private Sub btnSave_Click(ByVal sender As System.OBJECT, ByVal e As System.EventArgs) Handles btnSave.Click
       Dim data As IDataObject
       Dim bmap As Image
       SendMessage(hHwnd, WM_CAP_EDIT_COPY, 0, 0)
       data = Clipboard.GetDataObject()
       If data.GetDataPresent(GetType(System.Drawing.Bitmap)) Then
           bmap = CType(data.GetData(GetType(System.Drawing.Bitmap)), Image)
           picCapture.Image = bmap
           ClosePreviewWindow()
           btnSave.Enabled = False
           btnStop.Enabled = False
           btnStart.Enabled = True
           If sfdImage.ShowDialog = DialogResult.OK Then
               bmap.Save(sfdImage.FileName, Imaging.ImageFormat.Bmp)
           End If
       End If
   End Sub

   Private Sub ClosePreviewWindow()
       SendMessage(hHwnd, WM_CAP_DRIVER_DISCONNECT, iDevice, 0)
       DestroyWindow(hHwnd)
   End Sub

   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       LoadDeviceList()
   End Sub

   Private Sub btnStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStart.Click
       OpenPreviewWindow()
       btnStart.Enabled = False
       btnStop.Enabled = True
   End Sub

   Private Sub btnStop_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStop.Click
       ClosePreviewWindow()
       btnStart.Enabled = True
       btnStop.Enabled = False
   End Sub
End Class
microsoft partner
Team administrator
MCPD,MCITP,OCP,MP,MCC
Xprema Systems
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] طريقة لقص صورة في الpictureBox1 CLARO 7 130 06-12-16, 03:30 PM
آخر رد: CLARO
  حفظ صورة الموظف في جدول مستقل أبووسم 3 186 18-11-16, 03:56 PM
آخر رد: أبووسم
  [VB.NET] كيفية تحميل صورة من قاعدة بيانات اكسس 2010 نوريس 2 113 09-11-16, 12:32 PM
آخر رد: نوريس
  [VB.NET] اريد إضافة صورة للموظف في جدول أخر بنفس قاعدة البيانات أبووسم 8 275 05-11-16, 12:00 PM
آخر رد: Adrees
  ;كيف اضع صورة لخلفية ريتش بوكس samira20 3 134 27-10-16, 07:22 AM
آخر رد: samira20
Information [VB.NET] طريقة عمل مربع حوار يعمل على ادخال صورة إلى قاعدة البيانات thevirus 1 78 24-10-16, 01:49 PM
آخر رد: Adrees
Smile [VB.NET] كيف يمكن عمل كشف حساب بشكل تفصيلي مرفق صورة توضيحية MH mekawy 0 111 16-10-16, 07:12 PM
آخر رد: MH mekawy
  هام وعاجل .... كيف يمكن عمل كشف حساب بشكل تفصيلي مرفق صورة توضيحية MH mekawy 0 141 16-10-16, 04:40 PM
آخر رد: MH mekawy
  [سؤال] عرض صورة في كريستال ريبورت crystal repoet اليوم مبتدئة وغداً محترفة 2 123 07-10-16, 06:59 AM
آخر رد: اليوم مبتدئة وغداً محترفة
  اخفاء صورة من ريبورت فيور hglogtd 3 222 26-09-16, 09:08 AM
آخر رد: hglogtd

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


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