Generate PDF documents containing text and imagedata

Generate PDF documents containing text and imagedata using the worlds best compression techniques like Jpeg2000 for truecolor data and Jbig2 for bi-level documents.

' write one image
Dim ie As New THBImageEdit
Dim pdf As THBPdfDocument
ie.LoadPictureFromFile strFile, thbifAutoDetect
ie.FileFormatSettings.PDFCompressionSet
Set pdf = ImageFactory.CreateTHBPdfDocument
pdf.PageWriter.WriteImageToPdf ie
strFileDst = strPathDst + "PdfOneImage.pdf"
pdf.SaveToFile strFileDst

You are not limited to one picture per page, instead align as many as you want on a single PDF page.

' 4Images on one page
Set pdf = ImageFactory.CreateTHBPdfDocument
ie.LoadPictureFromFile strFile, thbifAutoDetect
ie.FileFormatSettings.PDFCompressionSet
pdf.PageWriter.ResetPage
pdf.PageWriter.AddFont "Arial", "Arial"
pdf.PageWriter.AddText UtilsFactory.CreateTHBRectd(0,20,100,100), "Pic1", "Arial", TRUE, 20
pdf.PageWriter.AddContentImage UtilsFactory.CreateTHBRectd(0,0,100,100), "Main1", ie
pdf.PageWriter.AddText UtilsFactory.CreateTHBRectd(100,20,200,100), "Pic2", "Arial", TRUE, 20
pdf.PageWriter.AddContentImage UtilsFactory.CreateTHBRectd(100,0,200,100), "Main2", ie
pdf.PageWriter.AddText UtilsFactory.CreateTHBRectd(0,100,100,200), "Pic3", "Arial", TRUE, 20
pdf.PageWriter.AddContentImage UtilsFactory.CreateTHBRectd(0,100,100,200), "Main3", ie
pdf.PageWriter.AddText UtilsFactory.CreateTHBRectd(100,100,200,200), "Pic4", "Arial", TRUE, 20
pdf.PageWriter.AddContentImage UtilsFactory.CreateTHBRectd(100,100,200,200), "Main4", ie
pdf.PageWriter.WriteToPdf
strFileDst = strPathDst + "Pdf4ImagesOnOnePage.pdf"
pdf.SaveToFile strFileDst

There are even multilayer PDF documents possible. So you can stack pictures one over the other on a single page

Set pdf = ImageFactory.CreateTHBPdfDocument
ie.LoadPictureFromFile strFile, thbifAutoDetect
ie.FileFormatSettings.PDFCompressionSet
ie2.LoadPictureFromFile vecTestFiles[1], thbifAutoDetect
ie2.FileFormatSettings.PDFCompressionSet
pdf.PageWriter.ResetPage
pdf.PageWriter.AddLayerImage UtilsFactory.CreateTHBRectd(0,0,100,100), "Main", "Layer1", ie
pdf.PageWriter.AddLayerImage UtilsFactory.CreateTHBRectd(0,0,100,100), "Main2", "Layer2", ie2
pdf.PageWriter.WriteToPdf
strFileDst = strPathDst + "Pdf2Layer.pdf"
pdf.SaveToFile strFileDst