ต้องการแปลง pdf เป็น image ตอนนี้แปลงได้แล้ว แต่มันต้องฟิกชื่อ pdf ไว้ อะคะ แต่ที่ต้องการคือ ถ้ามีหลาย pdf ในโฟลเดอร์นั้น ให้มันแปลงทุกอัน โดยไม่ต้องฟิกชื่อ pdf อ่ะคะ
Code (VB.NET)
Imports System.Collections.Generic
Imports System.Linq
Imports System.Text
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim f As New SautinSoft.PdfFocus()
f.OpenPdf("D:\KIMBALL ELECTRONIC\IT\C\bbb.pdf")
If f.PageCount > 0 Then
f.ImageOptions.Dpi = 200
f.ImageOptions.ImageFormat = System.Drawing.Imaging.ImageFormat.Jpeg
For page As Integer = 1 To f.PageCount
f.ToImage("D:\KIMBALL ELECTRONIC\IT\C\picture" & "page" & page & ".jpg", page)
Next
End If
End Sub
'Private Shared Sub Main(ByVal args As String())
' End Sub
End Class
Private Sub ConvertPDFToImage(ByVal strFileName As String)
Dim f As New SautinSoft.PdfFocus()
f.OpenPdf(strFileName)
If f.PageCount > 0 Then
f.ImageOptions.Dpi = 200
f.ImageOptions.ImageFormat = System.Drawing.Imaging.ImageFormat.Jpeg
For page As Integer = 1 To f.PageCount
f.ToImage("D:\KIMBALL ELECTRONIC\IT\C\picture" & "page" & page & ".jpg", page)
Next
End If
End Sub
Private Shared Sub Main(ByVal args As String())
Dim di As New IO.DirectoryInfo("D:\KIMBALL ELECTRONIC\IT\C\")
Dim diar1 As IO.FileInfo() = di.GetFiles()
Dim dra As IO.FileInfo
For Each dra In diar1
ConvertPDFToImage(dra)
Next
End Sub
ประมาณนี้ครับ (ดู Syntax ด้วยครับ พอดีผมเขียนสด)
Date :
2014-05-26 12:11:12
By :
mr.win
No. 2
Guest
ไม่ได้อะคะ
Code (VB.NET)
For Each dra In diar1
ConvertPDFToImage(dra) 'ตรงนี้มันไม่รู้ค่า แก้ยังไงคะ
Next
Load balance : Server 01
