How to Get Info for a PDF Document? Is It Crypted? What's the Version? Does it have ANY text?

in Questions :: I'm working on a project where I need to process some existing PDF documents. What I need to know about a particular PDF document is the following:

• Is a PDF encrypted?
• What is the version of the PDF?
• Does it have any text (or only images)? The actual text is irrelevant.

Note: I have found the solution: Gnostice PDFtoolkit does the trick! Details at the end of the post...

Now, there are quite a few Delphi VCL components to create or print a PDF document from code. There are not too many components that can load an existing PDF document and provide some info. So far, I have found only one library (VersyPDF) that can answer the first two questions.

To answer the third question I have tried using the IFilter interface and the code provided by ShorterPath (function GetFileContentsFromIFilter in the spFilter.pas unit). Note: ShorterPath provides a free Delphi component set - the zip file contains two units related to the IFilter interface and its Delphi implementation. The SPFilter.pas file contains a function that can extract text from a document using the IFilter interface.

To have the IFilter DLL for PDF documents I've used Foxit PDF IFilter - any everything worked well. I can easily grab the entire text from a PDF!

Here's the problem I'm having - and I need your help!
I cannot install PDF Filter on users machines - do not ask why.

If anybody knows a way to somehow just check if there's *any* text in a PDF document .. please share...

Related:

• Delphi PDF Components
• VersyPDF Delphi VCL Library
• IFilter Delphi implementation

Edit: We have a "winner"!

Gnostice PDFtoolkit VCL has the anwser to my questions!! Here's the code:

//is a PDF crypted
if gtPDFDocument1.IsEncrypted then
begin
  //
end;

//pdfVersion property reveals the PDF version
gtPDFDocument1.PDFVersion

//here's how to get the text
var
  pel : TgtPDFPageElementList;
begin
  OpenDialog1.Execute;
  try
    pel := TgtPDFPageElementList.Create;
    PDFDoc.LoadFromFile(OpenDialog1.FileName);
    pel := PDFDoc.GetPageElements(1,[etText],muPoints);
    //Similarly etImage can be used to find Images in the PDF
    if pel.Count > 0 then
      ShowMessage('The PDF has searchable text in it')
    else
      ShowMessage('The PDF has no text in it');
  finally
    FreeAndNil(pel);
  End;