[VB.NET] โค้ดการแปลงไฟล์ PDF ให้เป็นไฟล์ภาพ (Images) ด้วย Syncfusion

thongkorn

โค้ดการแปลงไฟล์ PDF ให้เป็นไฟล์ภาพ (Images) ด้วย Syncfusion ...





Add References ... เพื่อไว้เปรียบเทียบหรืออ้างอิง กรณีที่ Syncfusion มีเวอร์ชั่นไม่ตรงกันกับแอดมิน ...

มาดูโค้ดฉบับเต็มกันเถอะ ...

1. Imports Syncfusion.Pdf.Parsing
   
2. Imports Syncfusion.Windows.Forms.PdfViewer
   
3. Imports System.Drawing
   
4. Imports System.Drawing.Imaging
   
5. Imports System.IO
   
6. Imports Syncfusion.Pdf
   
7. 
   
8. Public Class frmPdfToImageSf
   
9. 
   
10.     Private strFileName As String
    
11.     Private strPathImages As String = MyPath(Application.StartupPath) & "Images"
    
12. 
    
13.     Private Sub btnWordDoc_Click(sender As System.Object, e As System.EventArgs) Handles btnWordDoc.Click
    
14.         Dim dlgOpenFile As OpenFileDialog = New OpenFileDialog()
    
15.         ' / Open File Dialog
    
16.         With dlgOpenFile
    
17.             .Filter = "PDF|*.pdf"
    
18.             .Title = "Select PDF File"
    
19.             .DefaultExt = "pdf"
    
20.             .InitialDirectory = MyPath(Application.StartupPath) & "PDF"
    
21.             .RestoreDirectory = True
    
22.         End With
    
23.         '/ Select OK after Browse ...
    
24.         If dlgOpenFile.ShowDialog() = DialogResult.OK Then
    
25.             txtFileName.Text = dlgOpenFile.FileName
    
26.             strFileName = Path.GetFileNameWithoutExtension(dlgOpenFile.FileName)
    
27.             Dim pdfFile As String = dlgOpenFile.FileName
    
28.             '/ Load PDF into PDFViewerControl.
    
29.             Me.PdfViewerControl1.Load(pdfFile, "")
    
30.         End If
    
31.     End Sub
    
32. 
    
33.     ' / --------------------------------------------------------------------------------
    
34.     ' / Convert PDF to Images.
    
35.     ' / --------------------------------------------------------------------------------
    
36.     Private Sub btnConvert_Click(sender As System.Object, e As System.EventArgs) Handles btnConvert.Click
    
37.         If txtFileName.Text.Trim.Length = 0 Then Return
    
38.         Dim dlgSaveFile As New SaveFileDialog
    
39.         With dlgSaveFile
    
40.             .Title = "Select images"
    
41.             .Filter = "JPEG Image (.jpg)|*.jpg|Png Image (.png)|*.png|Bitmap Image (.bmp)|*.bmp;"
    
42.             .RestoreDirectory = True
    
43.             .InitialDirectory = strPathImages
    
44.             .FileName = strFileName
    
45.         End With
    
46.         '//
    
47.         If dlgSaveFile.ShowDialog() = DialogResult.OK Then
    
48.             Try
    
49.                 Dim loadedDocument As PdfLoadedDocument = New PdfLoadedDocument(txtFileName.Text)
    
50.                 Dim image As Bitmap() = PdfViewerControl1.ExportAsImage(0, loadedDocument.Pages.Count - 1)
    
51.                 '// Export all the pages as images at the specific page range.
    
52.                 For i As Integer = 0 To image.Length - 1
    
53.                     '// Saves the Image in the appropriate ImageFormat based upon the
    
54.                     '// file type selected in the dialog box.
    
55.                     Select Case dlgSaveFile.FilterIndex
    
56.                         Case 1
    
57.                             image(i).Save(strPathImages & strFileName + "-" + i.ToString() + ".jpg", ImageFormat.Jpeg)
    
58.                         Case 2
    
59.                             image(i).Save(strPathImages & strFileName + "-" + i.ToString() + ".png", ImageFormat.Png)
    
60.                         Case 3
    
61.                             image(i).Save(strPathImages & strFileName + "-" + i.ToString() + ".bmp", ImageFormat.Bmp)
    
62.                     End Select
    
63.                 Next
    
64.                 Process.Start(strPathImages)
    
65.             Catch ex As Exception
    
66.                 MessageBox.Show(ex.Message)
    
67.             End Try
    
68.         End If
    
69.     End Sub
    
70. 
    
71.     Private Sub txtFileName_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles txtFileName.KeyPress
    
72.         ' / Prevents pressing any keys.
    
73.         e.Handled = True
    
74.     End Sub
    
75. 
    
76.     Private Sub frmDoc2Pdf_FormClosed(sender As Object, e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
    
77.         Me.Dispose()
    
78.         GC.SuppressFinalize(Me)
    
79.         Application.Exit()
    
80.     End Sub
    
81. 
    
82. #Region "FUNCTION"
    
83.     Function MyPath(ByVal AppPath As String) As String
    
84.         '/ Return Value
    
85.         MyPath = AppPath.ToLower.Replace("\bin\debug", "").Replace("\bin\release", "").Replace("\bin\x86\debug", "").Replace("\bin\x86\release", "")
    
86.         '// If not found folder then put the \ (BackSlash) at the end.
    
87.         If Microsoft.VisualBasic.Right(MyPath, 1) <> Chr(92) Then MyPath = MyPath & Chr(92)
    
88.     End Function
    
89. #End Region
    
90. End Class

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

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