Debenu Quick PDF Library - PDF SDK Community Forum : ExtractFilePageText does it work or not ?

ExtractFilePageText does it work or not ? : Thanks Ingo for replying...I mean...

Tue, 07 Aug 2018 21:37:58 +0000

Author: masteripper
Subject: 3594
Posted: 07 Aug 18 at 9:37PM

Thanks Ingo for replying...

I mean that i get an error exactly at this line

pdfText = pdfText & pdfLibrary.ExtractFilePageText(pdfPath, "", n, 0)

Error 438

"Object Doesn't Support This Property or Method"

So i reckon that the function either has an issue or its crippled as this is the Lite Edition...

I also checked the EncryptionStatus function...same error.

Edited by masteripper - 07 Aug 18 at 9:42PM

ExtractFilePageText does it work or not ? : Hi,is "...SomeEbook.pdf"...

Tue, 07 Aug 2018 21:34:20 +0000

Author: Ingo
Subject: 3594
Posted: 07 Aug 18 at 9:34PM

Hi,

is "...SomeEbook.pdf" a real ebook?
Ebooks are protected in a special way.
Extraction won't work on these type of files.
Before starting the extraction you should check if the file is encrypted and then you should decrypt it first:

QP := TDebenuPDFLibrary1211.Create;

try

QP.LoadFromFile(Edit1.Text, '');

If ( QP.EncryptionStatus > 0 ) Then

QP.Decrypt;

// . . .

BTW: What does it mean if you're writing "it doesn't work"?
Is the extracted content not readable... do you get nothing?

Cheers and welcome here,
Ingo

ExtractFilePageText does it work or not ? : Hello to everybodyI am trying...

Tue, 07 Aug 2018 17:11:39 +0000

Author: masteripper
Subject: 3594
Posted: 07 Aug 18 at 5:11PM

Hello to everybody

I am trying to use this above function but is doesn't work...

This is my code :

Public Function Test()
    Dim pdfLibrary As Object
    Dim pdfPath As String
    Dim PDFDocID As Long
    Dim pagecount As Integer
    Dim pdfText As String
    Set pdfLibrary = CreateObject("DebenuPDFLibraryLite1114.PDFLibrary")
    pdfPath = "C:\Users\masteripper\SomeEbook.pdf"    '
    PDFDocID = pdfLibrary.LoadFromFile(pdfPath, "")
    pagecount = pdfLibrary.pagecount
    For n = 1 To pagecount
        pdfText = pdfText & pdfLibrary.ExtractFilePageText(pdfPath, "", n, 0)
    Next
End Function

This code is from Access using the latest PDFLibrary Lite