B4A Class [B4X] PDF Generator - B4X Cross Platform - Class 100% B4X Code

Hi,

This class cPDF.bas (version 0.6 - 2024-01-03) generate PDF File with limited fonctionnalities (but enough for me)

• Add pages with different paper size (use constants or custom size)
• PDF standards font (Courier, Helvetica, Times, Symbol and Zapfdingbats), style (Normal, Bold, Italic, Underline and StrikeThrough), encoding cp1252
• draw text : single line of text at position x, y
• draw text flow with explicit and automatic CR at current x,y position with alignment (left, center, right, justify)
• Measure text (width and height)
• Measure multiline text (width and height)
• draw line
• draw rectangle
• draw images (only PNG, all format that can be loaded with xui.loadbitmap)
• use pdf commands directly
• save to file with/without compression

Source full commented, example for B4J and B4A, I don't use B4I (but should be OK)
dependencies :

• B4XCollections
• RandomAccessFile

Help welcome to add support for :

• PNG image wih colorspace = 6
• JPG image
• loading font from file

spsp

 

[james_sgp]

Hi,

This library doesn't support all colorspace in PNG image. (see post #10)

spsp

I understand that, so there is no solution to be able to download an image and add into the PDF?

James

 

[spsp]

I understand that, so there is no solution to be able to download an image and add into the PDF?

James

Maybe it's possible in B4X to save PNG with acceptable colorspace

 

[Setlodi]

I've found a workaround for adding images to a PDF document. My app captures signatures and then adds them on a PDF that I'm generating using the cPDF class. My signatures are captures with colorspace = 6 value and I couldn't see them in my PDF. When I use IrFax to change colorspace value to 2, as recommended in one of the posts it worked. However, to programmatically change was a challenge. So what I did is I converted my signature PNG image to JPEG and back to PNG, using the ConvertImage library.

'convert to JPEG
    Dim Bitmap1 As Bitmap = LoadBitmap(File.DirInternal, "signtest.png")
    Dim SavePathAndFileName As String = File.Combine(File.DirInternal, "signtest_JPG_conv.jpg")
    ConvertImage1.ConvertBitmapToFile(Bitmap1, SavePathAndFileName, ConvertImage1.TO_JPEG, 100)
    Log("signature.png converted to signature_JPG_conv.jpg")

    'convert to PNG
    Dim Bitmap1 As Bitmap = LoadBitmap(File.DirInternal, "signtest_JPG_conv.jpg")
    Dim SavePathAndFileName As String = File.Combine(File.DirInternal, "signtest_PNG_conv.png")
    ConvertImage1.ConvertBitmapToFile(Bitmap1, SavePathAndFileName, ConvertImage1.TO_PNG, 100)
    Log("signature.png converted back to signature_PNG_conv.png")

 

[spsp]

I've found a workaround for adding images to a PDF document. My app captures signatures and then adds them on a PDF that I'm generating using the cPDF class. My signatures are captures with colorspace = 6 value and I couldn't see them in my PDF. When I use IrFax to change colorspace value to 2, as recommended in one of the posts it worked. However, to programmatically change was a challenge. So what I did is I converted my signature PNG image to JPEG and back to PNG, using the ConvertImage library.

'convert to JPEG
    Dim Bitmap1 As Bitmap = LoadBitmap(File.DirInternal, "signtest.png")
    Dim SavePathAndFileName As String = File.Combine(File.DirInternal, "signtest_JPG_conv.jpg")
    ConvertImage1.ConvertBitmapToFile(Bitmap1, SavePathAndFileName, ConvertImage1.TO_JPEG, 100)
    Log("signature.png converted to signature_JPG_conv.jpg")

    'convert to PNG
    Dim Bitmap1 As Bitmap = LoadBitmap(File.DirInternal, "signtest_JPG_conv.jpg")
    Dim SavePathAndFileName As String = File.Combine(File.DirInternal, "signtest_PNG_conv.png")
    ConvertImage1.ConvertBitmapToFile(Bitmap1, SavePathAndFileName, ConvertImage1.TO_PNG, 100)
    Log("signature.png converted back to signature_PNG_conv.png")

Hi,

The class is updated in post #1 (version 0.5). it's support all image format loadable with xui.loadbitmap.


spsp

 

[spsp]

Hi,

New version (0.6)
Add justify alignment to outTextFlow method (post #1 updated)

spsp

 

[aeric]

PDF standards font (Courier, Helvetica, Times, Symbol and Zapfdingbats), style (Normal, Bold, Italic, Underline and StrikeThrough), encoding cp1252

I hope this class can support unicode or utf8 encoding with Chinese standard fonts such as STHeitiSC-Light and AdobeMingStd-Light in the future.

 

[spsp]

I hope this class can support unicode or utf8 encoding with Chinese standard fonts such as STHeitiSC-Light and AdobeMingStd-Light in the future.

I need some help to achieve this.