Do you own a Debenu Quick PDF Library version 7, 8, 9, 10, 11, 12, 13 or iSEDQuickPDF license? Upgrade to Debenu Quick PDF Library 14 today!

Debenu Quick PDF Library - PDF SDK Community Forum Homepage
Forum Home Forum Home > For Users of the Library > I need help - I can help
  New Posts New Posts RSS Feed - ExtractFilePageText does it work or not ?
  FAQ FAQ  Forum Search   Register Register  Login Login

ExtractFilePageText does it work or not ?

 Post Reply Post Reply
Author
Message
masteripper View Drop Down
Beginner
Beginner
Avatar

Joined: 07 Aug 18
Location: Greece
Status: Offline
Points: 3
Post Options Post Options   Thanks (0) Thanks(0)   Quote masteripper Quote  Post ReplyReply Direct Link To This Post Topic: ExtractFilePageText does it work or not ?
    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
Back to Top
Ingo View Drop Down
Moderator Group
Moderator Group
Avatar

Joined: 29 Oct 05
Status: Offline
Points: 3524
Post Options Post Options   Thanks (0) Thanks(0)   Quote Ingo Quote  Post ReplyReply Direct Link To This Post 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

Cheers,
Ingo

Back to Top
masteripper View Drop Down
Beginner
Beginner
Avatar

Joined: 07 Aug 18
Location: Greece
Status: Offline
Points: 3
Post Options Post Options   Thanks (0) Thanks(0)   Quote masteripper Quote  Post ReplyReply Direct Link To This Post 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
Back to Top
 Post Reply Post Reply
  Share Topic   

Forum Jump Forum Permissions View Drop Down

Forum Software by Web Wiz Forums® version 11.01
Copyright ©2001-2014 Web Wiz Ltd.

Copyright © 2017 Debenu. Debenu Quick PDF Library is a PDF SDK. All rights reserved. AboutContactBlogSupportOnline Store