Get an Leadtools.RasterException: Not able to open file

Hello,

I would like to create a PDF with the following function:

Public Function createTIF2PDF(arrlstTIFFiles As ArrayList, outputFile As String) As Boolean

Dim leadDocWriter As New DocumentWriter
leadDocWriter.BeginDocument(outputFile, Leadtools.Forms.DocumentWriters.DocumentFormat.Pdf)

Dim page As DocumentPage = DocumentPage.Empty
Dim pdfOptions As PdfDocumentOptions = DirectCast(leadDocWriter.GetOptions(Leadtools.Forms.DocumentWriters.DocumentFormat.Pdf), PdfDocumentOptions)

pdfOptions.DocumentType = PdfDocumentType.PdfA
leadDocWriter.SetOptions(Leadtools.Forms.DocumentWriters.DocumentFormat.Pdf, pdfOptions)

For Each item In arrlstTIFFiles
Using codecs As New RasterCodecs()
page.Image = codecs.Load(item.ToString)
leadDocWriter.AddPage(page)
End Using
Next

leadDocWriter.EndDocument()
Return True

End Function


Unfortunately I get an error "Leadtools.RasterException: Not able to open file" in line "leadDocWriter.AddPage(page)"
Of course I unlock LEadtools before starting the function.

I'm using LEADTOOLS 18
- I refer Leadtools, Leadtools.codecs, codecs.BMP, codecs.CMP, codecs.FAX, codecs.TIF
LEADTOOLS.PDF, LEADTOOLS.PDFCompressor

I checked your code and noticed that you are Not setting the DocumentPage.EmfHandle property. According to our documentation, the Leadtools.Forms.DocumentWriters.DocumentPage.EmfHandle property must contain a valid Windows Enhanced Meta File handle (EMF) that contains the visual representation of the page. This EMF handle can obtained through multiple sources, such as GetEnhMetaFile() API function.

The following code shows how you can set the EmfHandle property:
+------------------------+
Public Class Form1

' Windows API functions needed to load/delete an EMF
<DllImport("gdi32.dll")> _
Private Shared Function GetEnhMetaFile(ByVal lpszMetaFile As String) As IntPtr
End Function
<DllImport("gdi32.dll")> _
Private Shared Function DeleteEnhMetaFile(ByVal hemf As IntPtr) As Boolean
End Function
...
Public Function createTIF2PDF(arrlstTIFFiles As ArrayList, outputFile As String) As Boolean

Dim leadDocWriter As New DocumentWriter
leadDocWriter.BeginDocument(outputFile, Leadtools.Forms.DocumentWriters.DocumentFormat.Pdf)

Dim page As DocumentPage = DocumentPage.Empty
Dim pdfOptions As PdfDocumentOptions = DirectCast(leadDocWriter.GetOptions(Leadtools.Forms.DocumentWriters.DocumentFormat.Pdf), PdfDocumentOptions)

pdfOptions.DocumentType = PdfDocumentType.PdfA
      leadDocWriter.SetOptions(Leadtools.Forms.DocumentWriters.DocumentFormat.Pdf, pdfOptions)

For Each item In arrlstTIFFiles
Using codecs As New RasterCodecs()
page.Image = codecs.Load(item.ToString)
page.EmfHandle = GetEnhMetaFile("c:\Users\Public\Documents\LEADTOOLS Images\Ocr1.emf")
leadDocWriter.AddPage(page)
End Using
Next

leadDocWriter.EndDocument()
Return True

End Function
+------------------------+

Thanks,
Maen Badwan
LEADTOOLS Technical Support

Hello Badwan,

thanks for quick response!

Unfortunately I have to work with TIFF files!

Is there no possibility to bundle multible tiff files to one PDF without using the emf format?

Thanks Olaf

You can convert multiple tiff files to one PDF without using the DocumentWriter class. You can simple load the TIFF files using RasterCodecs.Load() method and then save them to one PDF file using the RasterCodecs.Save() method.

Thanks,
Maen Badwan
LEADTOOLS Technical Support

Hi Badwan,

but that is what I try in the first example code. I use the RasterCodecs.Load method and also the DocumentWriter class
By the way: I have multiple Single-TIFFs that I put together to a PDF.

Can you give me a correct example?

Thanks a lot...

Olaf

You need to change the code as follows:
+---------------+
Public Function createTIF2PDF(arrlstTIFFiles As ArrayList, outputFile As String) As Boolean
For Each item In arrlstTIFFiles
Using codecs As New RasterCodecs()
Dim TIFFImage As RasterImage = codecs.Load(item.ToString)
codecs.Save(TIFFImage, outputFile, RasterImageFormat.RasPdf, 0, 1, 1, 1, CodecsSavePageMode.Append)
TIFFImage.Dispose()
End Using
Next
Return True
End Function
+---------------+

Thanks,
Maen Badwan
LEADTOOLS Technical Support

Hello Badwan,

allthough I have included the Leadtools.codecs.pdf and other I get the error: "Leadtools.RasterException: Feature not supported"

Another question I have: Is it possible to write in PDFA Format? ( codecs.Options.Pdf.Save.SavePdfA = True )

Thanks Olaf

About the "Feature not supported" error, you need to add Leadtools.Pdf.dll as a refernce in your project.

About saving PDFA format, you can do this by setting the codecs.Options.Pdf.Save.Version property to CodecsRasterPdfVersion.PdfA before saving the PDF file.

Thanks,
Maen Badwan
LEADTOOLS Technical Support

Hi Badwan,

next try, next error... :-(
Leadtools.RasterException: PDF capability is required.

Of course I unlock Leadtools before and yes, I have serveral unlocks for:

[Unlocks]
L_SUPPORT_OCR_PROFESSIONAL_PDF_OUTPUT
L_SUPPORT_CLOUD
L_SUPPORT_OCR_PROFESSIONAL
L_SUPPORT_BARCODES_1D
L_SUPPORT_DOCUMENT
L_SUPPORT_MEDIA_WRITER
L_SUPPORT_JBIG2
L_SUPPORT_FORMS
L_SUPPORT_DOCUMENT_WRITERS
L_SUPPORT_DOCUMENT_WRITERS_PDF
L_SUPPORT_BASIC

I can't image, that I'm not allowed to save a normal PDF.

Thanks Olaf

Olaf,
I need to investigate this issue further, so please open a support ticket by sending an email to support@leadtools.com and mention this forum post.

Include in the email the .LIC file and the developer key (do NOT post them here) that you used to set the runtime license.

Note: If you send any attachments, please put them in a ZIP or RAR file to ensure our server delivers them correctly.

Short info: It was a wrong key (L_SUPPORT...) that I got. With the new one everything works fine.

thanks a lot

Olaf