[VB.NET] การ Capture ภาพจากกล้อง WebCam Touchless SDK และแปลงเป็นไฟล์ PDF ด้วย Syncfusion

thongkorn

สำหรับรายละเอียดของเรื่อง Touchless SDK สามารถไปดูได้ที่ [VB.NET] การจับภาพและบันทึกไฟล์ภาพจากกล้องเว็บแคมด้วยการใช้งาน Touchless SDK ... ส่วนในบทความนี้จะเป็นการนำภาพที่แคปเจอร์มาใส่ PictureBox แล้วแปลงเป็นไฟล์ PDF ซึ่งต้อง Add References Syncfusion.Pdf.Base ของฟรีจากค่าย Syncfusion เข้ามาใช้งานก่อนด้วยครับ สามารถดูรายละเอียดได้จาก [VB.NET] โค้ดการใช้งาน XlsIO ของ Syncfusion เพื่อทำการแปลงไฟล์ Excel ให้เป็น PDF และ PNG ...

มาดูโค้ดกันเถอะ ...

1. Imports TouchlessLib
   
2. Imports System.IO
   
3. Imports Syncfusion.Pdf
   
4. Imports Syncfusion.Pdf.Graphics
   
5. 
   
6. Public Class frmCamera
   
7.     Dim WebCamMgr As TouchlessLib.TouchlessMgr
   
8.     Dim strPDFPath As String
   
9. 
   
10.     Private Sub frmCamera_FormClosing(sender As Object, e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
    
11.         Try
    
12.             Timer1.Enabled = False
    
13.             WebCamMgr.CurrentCamera.Dispose()
    
14.             WebCamMgr.Cameras.Item(cmbCamera.SelectedIndex).Dispose()
    
15.             WebCamMgr.Dispose()
    
16.         Catch ex As Exception
    
17.             MessageBox.Show(ex.Message)
    
18.         End Try
    
19.     End Sub
    
20. 
    
21.     Private Sub frmCamera_Load(sender As Object, e As System.EventArgs) Handles Me.Load
    
22.         WebCamMgr = New TouchlessLib.TouchlessMgr
    
23.         Label2.Text = ""
    
24.         For i As Integer = 0 To WebCamMgr.Cameras.Count - 1
    
25.             cmbCamera.Items.Add(WebCamMgr.Cameras(i).ToString)
    
26.         Next
    
27.         If cmbCamera.Items.Count >= 0 Then
    
28.             cmbCamera.SelectedIndex = 0
    
29.             Timer1.Enabled = True
    
30.             btnSave.Enabled = False
    
31.             '// Create a folder in VB if it doesn't exist.
    
32.             strPDFPath = MyPath(Application.StartupPath) & "PDF"
    
33.             If (Not System.IO.Directory.Exists(strPDFPath)) Then System.IO.Directory.CreateDirectory(strPDFPath)
    
34.             '// Initialized and load images into DataGridView.
    
35.             Call InitDataGridView()
    
36.             Call LoadPDF2DatagridView()
    
37.         Else
    
38.             MessageBox.Show("No Web Camera, This application needs a webcam.", "Report Status", MessageBoxButtons.OK, MessageBoxIcon.Information)
    
39.             Me.Close()
    
40.         End If
    
41.     End Sub
    
42. 
    
43.     ' / --------------------------------------------------------------------------
    
44.     Private Sub LoadPDF2DatagridView()
    
45.         Dim directory As New IO.DirectoryInfo(strPDFPath)
    
46.         If directory.Exists Then
    
47.             Dim pdfFiles() As IO.FileInfo = directory.GetFiles("*.pdf")
    
48.             Dim row As String()
    
49.             Dim iArr() As String
    
50.             For Each pdfFile As IO.FileInfo In pdfFiles
    
51.                 iArr = Split(pdfFile.FullName, "")
    
52.                 row = New String() {iArr(UBound(iArr))}
    
53.                 dgvData.Rows.Add(row)
    
54.             Next
    
55.         End If
    
56.         Label2.Text = "Total PDF : " & Me.dgvData.Rows.Count
    
57.     End Sub
    
58. 
    
59.     ' / --------------------------------------------------------------------------
    
60.     Private Sub btnSave_Click(sender As System.Object, e As System.EventArgs) Handles btnSave.Click
    
61.         If picPreview Is Nothing Then Exit Sub
    
62.         Try
    
63.             '/ Create file name
    
64.             Dim sPicName As String = strPDFPath & Format(Now, "ddMMyy-hhmmss") & ".png"
    
65.             Dim b As Bitmap = picPreview.Image
    
66.             b.Save(sPicName, System.Drawing.Imaging.ImageFormat.Png)
    
67.             '// Copy filename and change to PDF extension.
    
68.             Dim sPDF As String = Mid(sPicName, 1, Len(sPicName) - 3) & "pdf"
    
69.             '/ Create a new PDF document.
    
70.             Dim doc As New PdfDocument()
    
71.             '/ Add a page to the document
    
72.             Dim page As PdfPage = doc.Pages.Add()
    
73.             '/ Getting page size to draw the image which fits the page.
    
74.             Dim pageSize As SizeF = page.GetClientSize()
    
75.             '/ Create PDF graphics for the page.
    
76.             Dim graphics As PdfGraphics = page.Graphics
    
77.             '/ Load the image from the disk.
    
78.             Dim image As New PdfBitmap(sPicName)
    
79.             '/ Draw the image
    
80.             graphics.DrawImage(image, New RectangleF(0, 0, pageSize.Width, pageSize.Height))
    
81.             '/ Save the document
    
82.             doc.Save(sPDF)
    
83.             '/ Close the document
    
84.             doc.Close(True)
    
85.             '// Show File name in the DataGridView.
    
86.             Dim iArr() As String
    
87.             iArr = Split(sPDF, "")
    
88.             Dim row As String()
    
89.             row = New String() {iArr(UBound(iArr))}
    
90.             dgvData.Rows.Add(row)
    
91.             '//
    
92.             Label2.Text = "Total PDF : " & Me.dgvData.Rows.Count
    
93.             Me.dgvData.Focus()
    
94.             SendKeys.Send("^{HOME}")
    
95.             SendKeys.Send("^{DOWN}")
    
96.         Catch ex As Exception
    
97.             MessageBox.Show(ex.Message)
    
98.         End Try
    
99.     End Sub
    
100. 
     
101.     ' / --------------------------------------------------------------------------
     
102.     Private Sub dgvData_DoubleClick(sender As Object, e As System.EventArgs) Handles dgvData.DoubleClick
     
103.         If Me.dgvData.Rows.Count = 0 Then Return
     
104.         Process.Start(strPDFPath & dgvData.CurrentRow.Cells(0).Value.ToString)
     
105.     End Sub
     
106. 
     
107.     ' / --------------------------------------------------------------------------
     
108.     Private Sub InitDataGridView()
     
109.         Me.dgvData.Columns.Clear()
     
110.         '// Initialize DataGridView Control
     
111.         With dgvData
     
112.             .AllowUserToAddRows = False
     
113.             .AllowUserToDeleteRows = False
     
114.             .AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill
     
115.             .AutoResizeColumns()
     
116.             .AllowUserToResizeColumns = True
     
117.             .AllowUserToResizeRows = True
     
118.             .SelectionMode = DataGridViewSelectionMode.FullRowSelect
     
119.         End With
     
120.         '// Declare columns type.
     
121.         '// Add 1th column (Index = 0), Show image file name.
     
122.         Dim FName As New DataGridViewTextBoxColumn()
     
123.         dgvData.Columns.Add(FName)
     
124.         With FName
     
125.             .HeaderText = "File Name"
     
126.             .ReadOnly = True
     
127.             .Visible = True
     
128.         End With
     
129.         '//
     
130.         Me.dgvData.Focus()
     
131.     End Sub
     
132. 
     
133.     Private Sub cmbCamera_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles cmbCamera.SelectedIndexChanged
     
134.         WebCamMgr.CurrentCamera = WebCamMgr.Cameras.ElementAt(cmbCamera.SelectedIndex)
     
135.         '//
     
136.         'WebCamMgr.CurrentCamera.CaptureHeight = 480
     
137.         'WebCamMgr.CurrentCamera.CaptureWidth = 640
     
138.     End Sub
     
139. 
     
140.     Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
     
141.         picFeed.Image = WebCamMgr.CurrentCamera.GetCurrentImage()
     
142.     End Sub
     
143. 
     
144.     Private Sub btnCapture_Click(sender As System.Object, e As System.EventArgs) Handles btnCapture.Click
     
145.         picPreview.Image = WebCamMgr.CurrentCamera.GetCurrentImage()
     
146.         btnSave.Enabled = True
     
147.     End Sub
     
148. 
     
149.     '// Delete PDF & PNG File.
     
150.     Private Sub btnDelete_Click(sender As System.Object, e As System.EventArgs) Handles btnDelete.Click
     
151.         If Me.dgvData.Rows.Count = 0 Then Return
     
152.         Try
     
153.             Dim sPic As String = dgvData.CurrentRow.Cells(0).Value.ToString
     
154.             sPic = Mid(sPic, 1, Len(sPic) - 3) & "png"
     
155.             '// Delete files in folder.
     
156.             FileSystem.Kill(strPDFPath & dgvData.CurrentRow.Cells(0).Value.ToString)
     
157.             FileSystem.Kill(strPDFPath & sPic)
     
158.             '// Delete current row from dgvData
     
159.             dgvData.Rows.Remove(dgvData.CurrentRow)
     
160.         Catch ex As Exception
     
161.             MessageBox.Show(ex.Message)
     
162.         End Try
     
163.     End Sub
     
164. 
     
165. End Class

คัดลอกไปที่คลิปบอร์ด

ฟังค์ชั่นการกำหนดตำแหน่งพาธ ... โมดูลหากิน 5555+

1. Module modFunction
   
2.     ' / Get my project path
   
3.     ' / Ex.
   
4.     ' / AppPath = C:\My Project\bin\debug
   
5.     ' / Replace "\bin\debug" with ""
   
6.     ' / Return : C:\My Project\
   
7.     Public Function MyPath(AppPath As String) As String
   
8.         '/ MessageBox.Show(AppPath);
   
9.         AppPath = AppPath.ToLower()
   
10.         MyPath = AppPath.Replace("\bin\debug", "").Replace("\bin\release", "")
    
11.         '// Check the backslash symbol (ASCII Code = 92) on the far right. If not, add one at the end.
    
12.         If Microsoft.VisualBasic.Right(MyPath, 1) <> Chr(92) Then MyPath = MyPath & Chr(92)
    
13.     End Function
    
14. 
    
15. End Module

คัดลอกไปที่คลิปบอร์ด

ดาวน์โหลดโค้ดฉบับเต็ม VB.NET (2010) ได้ที่นี่ ...

g2gsoftuser

ขอบคุณครับ