Android Question Convert a Pdf page into Bitmap

[Sergey_New]

Is there such a solution in B4A?
I found a similar solution on stackoverflow, but my knowledge is not enough to create B4A code.

 

[peacemaker]

This class has the renderPage method, returning the page As Image.
Oops, sorry, it's for B4J

The lib https://www.b4x.com/android/forum/threads/pdfium-pdfview2.102756/#content also has the renderPageBitmap methods.

 

[Sergey_New]

peacemaker, thank you!
But this is too complicated for me.

 

[peacemaker]

It's a wrong way to try to become a programmer/developer if you are not prepared to learn new and complicated subjects. I know almost nothing about Java, C# and C++, but by collecting information drop-by-drop, I'm sure that it's possible to understand many complicated things. (I did it with some subjects.) But you just need to be motivated to keep going.

 

[Sergey_New]

It's a wrong way to try to become a programmer/developer

I am also for everything good.

 

[Lucas Siqueira]

[B4X] [B4Xpages] PDF to Image (B4XBitmap)

I often needed to turn a PDF into an image, most of the time to have it printed on a thermal printer. I was looking for simple and cross-platform methods. This is an example that allows you to get an image with Windows / Android / iOs from a PDF file NB. For Windows it is necessary to...

www.b4x.com

[B4X] [B4Xpages] PDF to Image (B4XBitmap)

I often needed to turn a PDF into an image, most of the time to have it printed on a thermal printer. I was looking for simple and cross-platform methods. This is an example that allows you to get an image with Windows / Android / iOs from a PDF file NB. For Windows it is necessary to...

www.b4x.com

https://www.b4x.com/android/forum/threads/b4x-b4xpages-pdf-to-image-b4xbitmap.142405/

 

[Lucas Siqueira]

You can use a tool I created, it reads all the PDFs in a folder and converts each page into an image

B4J - Convert PDF to JPG

Using b4j we can convert pdf documents in folder to jpg download jar: https://www.apache.org/dyn/closer.lua/pdfbox/2.0.26/pdfbox-app-2.0.26.jar reference: https://www.b4x.com/android/forum/threads/convert-pdf-to-jpg-using-java-and-b4j.160737

www.b4x.com

 

[Sergey_New]

You can use a tool I created

Thanks, but I need B4A.

 

[Lucas Siqueira]

Thanks, but I need B4A.

[B4X] [B4Xpages] PDF to Image (B4XBitmap)

I often needed to turn a PDF into an image, most of the time to have it printed on a thermal printer. I was looking for simple and cross-platform methods. This is an example that allows you to get an image with Windows / Android / iOs from a PDF file NB. For Windows it is necessary to...

www.b4x.com

 

[Sergey_New]

[B4X] [B4Xpages] PDF to Image (B4XBitmap)

I often needed to turn a PDF into an image, most of the time to have it printed on a thermal printer. I was looking for simple and cross-platform methods. This is an example that allows you to get an image with Windows / Android / iOs from a PDF file NB. For Windows it is necessary to...

www.b4x.com

Tried to use pdfRenderer. Unfortunately, I couldn't find any examples. I installed the PDFRenderer2 library, but even the declaration

Dim pdfr As PdfRenderer

gives an error.

 

[Situ LLC]

Take a look

pdfToBMP(Path&"/File.pdf")

It better like this or use the inside print Method the best way

Printer.PrintDiskImagefileBA(pdfToBMP(Path &"/Anula.pdf"))

or

prn3.prnBMP(pdfToBMP(Path&"/Anula.pdf"))

Public  Sub pdfToBMP(pdf_path As String) As Bitmap 'ignore
 
    Try
        Dim parcel As JavaObject
        parcel.InitializeStatic("android.os.ParcelFileDescriptor")
           
        Dim f As JavaObject
        f.InitializeNewInstance("java.io.File",Array As String(pdf_path))
           
        Dim p As Object = parcel.RunMethod("open",Array(f, 268435456))
           
        Dim pdfRenderer As JavaObject
        pdfRenderer.InitializeNewInstance("android.graphics.pdf.PdfRenderer",Array(p))
           
        Dim page As JavaObject = pdfRenderer.RunMethod("openPage",Array(0))
           
        Dim bmp As Bitmap
        bmp.InitializeMutable(page.RunMethod("getWidth",Null),page.RunMethod("getHeight",Null))


        Dim cv As Canvas
        cv.Initialize2(bmp)
        Dim Rect1 As Rect
        Rect1.Initialize(0, 0, page.RunMethod("getWidth",Null), page.RunMethod("getHeight",Null))
        cv.DrawRect(Rect1, Colors.white, True,5dip)
        page.RunMethod("render",Array(bmp, Null, Null,2))
        page.RunMethod("close",Null)
        pdfRenderer.RunMethod("close",Null)
       [B] Dim Out As OutputStream
        Out = File.OpenOutput(Path , "tiquete.png", False)[/B]
        bmp.WriteToStream(Out, 100, "PNG")
        Out.Close
        Return bmp
    Catch

     '  B4XPages.MainPage.Herramienta.Print_erro("Error en impresion"  ,"AVISE ESTE ERROR","PDF-E-0012")
         
       
    End Try

End Sub

'------------------------------------------------

This lineas
Dim Out As OutputStream
Out = File.OpenOutput(Path , "tiquete.png", False)
bmp.WriteToStream(Out, 100, "PNG")

This wat you create a . bmp, png

salud

 

[Sergey_New]

Situ LLC, thank you very much!
Simple and beautiful.
Changed your code a bit for my needs:

Public  Sub pdfToBMP (pdf_path As String) As Bitmap 'ignore
    Try
        Dim parcel As JavaObject
        parcel.InitializeStatic("android.os.ParcelFileDescriptor")
        Dim f As JavaObject
        f.InitializeNewInstance("java.io.File",Array As String(pdf_path))
        Dim p As Object = parcel.RunMethod("open",Array(f, 268435456))
        Dim pdfRenderer As JavaObject
        pdfRenderer.InitializeNewInstance("android.graphics.pdf.PdfRenderer",Array(p))
        Dim page As JavaObject = pdfRenderer.RunMethod("openPage",Array(0))
        Dim bmp As Bitmap
        bmp.InitializeMutable(page.RunMethod("getWidth",Null),page.RunMethod("getHeight",Null))
        Dim Rect1 As Rect
        Rect1.Initialize(0, 0, page.RunMethod("getWidth",Null), page.RunMethod("getHeight",Null))
        page.RunMethod("render",Array(bmp, Null, Null,2))
        page.RunMethod("close",Null)
        pdfRenderer.RunMethod("close",Null)
        Return bmp
    Catch
        Log(LastException)
    End Try
End Sub

 

[Situ LLC]

Any time