[VB.NET] การเปิดอ่านไฟล์ PDF (Portable Document Format)

thongkorn

เป็นอีกคำถามที่ถามเข้ามา จะทำฐานข้อมูลจัดเก็บเอกสาร PDF ได้อย่างไร? แต่ก่อนจะไปถึงจุดนั้นเราก็ต้องทำการเปิดไฟล์ PDF ให้ได้ซ่ะก่อนซิขอรับ โดยการใช้ Adobe Acrobat Reader Component เป็นตัวช่วยเปิดไฟล์ PDF ซึ่งถ้าหากเครื่องคอมฯเราไม่มี Adobe Reader ก็ต้องไปดาวน์โหลดฟรีมาติดตั้งก่อนแหละครับ ...

ดาวน์โหลด Adobe Acrobat Reader DC ฟรี ... จากนั้นก็ทำการติดตั้งเข้าไปเลยครับ ...


เรียกใช้งาน Adobe Reader Component ... (จากหมายเลข 1 เราจะเอาไปเข้าในกลุ่มเครื่องมือ หรือ ToolBox ตัวไหนก็เลือกได้ตามใจชอบเอาเองครับ)  


จับลาก Component มาวางบนฟอร์ม

มาดูโค้ดง่ายๆกันเถอะ ...

1. ' / ----------------------------------------------------------------
   
2. ' / Developer : Mr.Surapon Yodsanga (Thongkorn Tubtimkrob)
   
3. ' / eMail : thongkorn@hotmail.com
   
4. ' / URL: http://www.g2gnet.com (Khon Kaen - Thailand)
   
5. ' / Facebook: https://www.facebook.com/g2gnet (For Thailand)
   
6. ' / Facebook: https://www.facebook.com/commonindy (Worldwide)
   
7. ' / Purpose: Open PDF File with VB.NET.
   
8. ' / Microsoft Visual Basic .NET (2010)
   
9. ' /
   
10. ' / This is open source code under @CopyLeft by Thongkorn Tubtimkrob.
    
11. ' / You can modify and/or distribute without to inform the developer.
    
12. ' / ----------------------------------------------------------------
    
13. Public Class frmReadPDF
    
14.     '// Download Adobe Reader DC
    
15.     '// https://get.adobe.com/reader/
    
16.     Private Sub btnBrowse_Click(sender As System.Object, e As System.EventArgs) Handles btnBrowse.Click
    
17.         '// ประกาศใช้งาน Open File Dialog ในแบบ Run Time
    
18.         Dim dlgOpenFile As OpenFileDialog = New OpenFileDialog()
    
19. 
    
20.         ' / ตั้งค่าการใช้งาน Open File Dialog
    
21.         With dlgOpenFile
    
22.             .InitialDirectory = MyPath(Application.StartupPath)
    
23.             .Title = "เลือกไฟล์ PDF File"
    
24.             .Filter = "PDF Files (*.pdf)|*pdf"
    
25.             .FilterIndex = 1
    
26.             .RestoreDirectory = True
    
27.         End With
    
28.         ' หากเลือกปุ่ม OK หลังจากการ Browse ...
    
29.         If dlgOpenFile.ShowDialog() = DialogResult.OK Then
    
30.             txtFileName.Text = dlgOpenFile.FileName
    
31.             Me.AxAcroPDF2.LoadFile(dlgOpenFile.FileName)
    
32.         End If
    
33. 
    
34.     End Sub
    
35. 
    
36.     Private Sub frmReadPDF_FormClosed(sender As Object, e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
    
37.         Me.Dispose()
    
38.         Application.Exit()
    
39.     End Sub
    
40. 
    
41.     ' / --------------------------------------------------------------------------------
    
42.     ' / Get my project path
    
43.     ' / AppPath = C:\My Project\bin\debug
    
44.     ' / Replace "\bin\debug" with ""
    
45.     ' / Return : C:\My Project\
    
46.     Function MyPath(ByVal AppPath As String) As String
    
47.         '/ MessageBox.Show(AppPath);
    
48.         AppPath = AppPath.ToLower()
    
49.         '/ Return Value
    
50.         MyPath = AppPath.Replace("\bin\debug", "").Replace("\bin\release", "").Replace("\bin\x86\debug", "")
    
51.         '// If not found folder then put the \ (BackSlash) at the end.
    
52.         If Microsoft.VisualBasic.Right(MyPath, 1) <> "" Then MyPath = MyPath & ""
    
53.     End Function
    
54. 
    
55. End Class

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

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

my2alee

VB6 ได้ไหมครับ

thongkorn

ผมใช้ FoxIt Reader ครับ ดาวน์โหลดได้จากที่นี่ มันจะให้ตัว Viewer แบบ OCX มาให้ใช้งานด้วย โดยเราต้องเลือก Project --> Components (ตามภาพ)

1. Me.FoxitPhantomOCX1.OpenFile (App.Path & "\test.pdf")

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

my2alee

ผมใช้เลือกใช้ Acrobat เพราะว่าทุกเครื่องที่ทำงาน เป็นโปรแกรมสามัญประจำเครื่อง
เลยใช้ตัวนี้ครับ Adobe Acrobat 7.0 Browser Control Type Library 1.0 รันบน Win8 / 7 / xp ได้..แต่พอรันบน Win10 แล้วไม่เวิร์ค ยังหาสาเหตุไม่เจอ

AcroPDF1.src = App.Path & "\DES-1026G_ds.pdf"

thongkorn

AcroPDF.dll มันมีปัญหากับ Windows 10 ครับ เมื่อใช้ VB6 เอ๋อตลอดกาล

my2alee

thongkorn ตอบกลับเมื่อ 2019-8-22 15:23
AcroPDF.dll มันมีปัญหากับ Windows 10 ครับ เมื่อใช้ VB6 เอ๋อตลอดกาล

เศรา้เลยครับงานนี้ เขาเร่งจะใช้พอดี อุตส่าห์เขียนอยู่หลายวัน (พอดีเครื่องที่ผมใช้อยู่เป็น win8.1 เห็นรันผ่านเลยคิดว่า Win10 น่าจะใช้ได้)

zxczxc20

my2alee ตอบกลับเมื่อ 2019-8-23 10:03
เศรา้เลยครับงานนี้ เขาเร่งจะใช้พอดี อุตส่าห์เขียนอ ...

รบกวนขอแนวทางทำระบบแสกนด้วยครับอาจารย์