PDF to Image Converter COM is a component for converting PDF documents into single page or multi-page raster images such as TIFF or JPEG. It is mainly developed for developers who can use it in web, TIFF-based DMS solutions, archive and workflow systems and the protection of PDF documents.
All version PDF file
C#, VB .NET, J# via .NET, C, C++ via native C and Borland Delphi
Method A
C:\>pdf2tif_cmd C:\input.pdf C:\output.tif
C:\>pdf2tif_cmd C:\input.pdf C:\output.jpg
C:\>pdf2tif_cmd C:\input.pdf C:\output.bmp
Method B
Double click "pdf2tif_cmd.exe" software; select one or several PDF file, and click OK button, then your PDF file(s) will be converted to image files.
Method C
Open VB or VC example project in VB or VC development environment, compile and test PDF to Image SDK directly.
If you need to know more usage and functions, please check details on PDF to Image Converter COM user manual. package as there are more examples saved in it.
Private Sub bconvert_Click()
On Error GoTo cError
Dim i As Integer
Dim myFiles() As String
Dim myPath As String
' Register PDF to Image Converter Library
PDFToImageSetCode "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"
'Call PDFToImageSetProgressCBFunc(AddressOf PageProgressCBFunc)
' only PDF Files
cdialog.Filter = "PDF Files (*.PDF)|*.PDF"
cdialog.Flags = cdlOFNAllowMultiselect + cdlOFNExplorer
cdialog.CancelError = True
' if ok
cdialog.ShowOpen
myFiles = Split(cdialog.FileName, vbNullChar) 'the Filename returned is delimeted by a null character because we selected the cdlOFNLongNames flag
Select Case UBound(myFiles)
Case 0 'if only one was selected we are done
myPath = myFiles(0)
TIFFFile = Left(myPath, Len(myPath) - 4) + ".tif"
If Dir(TIFFFile) <> "" Then
Kill TIFFFile
End If
x = PDFToImageConverter(myPath, TIFFFile + "_g4.tif", "", "", 200, 200, 1, COMPRESSION_CCITTFAX4, 70, False, True,
-1, -1)
MsgBox TIFFFile + "_g4.tif"
x = PDFToImageConverter(myPath, TIFFFile + "_color.tif", "", "", 200, 200, 24, COMPRESSION_JPEG, 70, False, True, -1, -1)
MsgBox TIFFFile + "_color.tif"
Case Is > 0 'if more than one, we need to loop through it and append the root directory
For i = 1 To UBound(myFiles)
myPath = myFiles(0) & IIf(Right(myFiles(0), 1) <> "\", "\", "") & myFiles(i)
TIFFFile = Left(myPath, Len(myPath) - 4) + ".tif"
If Dir(TIFFFile) <> "" Then
Kill TIFFFile
End If
x = PDFToImageConverter(myPath, TIFFFile + "_g4.tif", "", "", 200, 200, 1, COMPRESSION_CCITTFAX4, 70, False, True,
-1, -1)
MsgBox TIFFFile + "_g4.tif"
x = PDFToImageConverter(myPath, TIFFFile + "_color.tif", "", "", 200, 200, 24, COMPRESSION_JPEG, 70, False, True, -1, -1)
MsgBox TIFFFile + "_color.tif"
Next i
End Select
MsgBox "finished!"
cError:
Beep
End Sub