PageCount not working

Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic

Hi,
I load PDF documents wich contain more than one page. PageCount always returns 1. I'm using LoadFromStream. What am I missing?

Note that further in the code I display the document in a PDF Viewer and the document is perfectly displayed. 

Here is my code listing:

// oDocument is a business object containing the PDF stream and other data related to it...
  try
    sLicence := 'my_reg_key';
    myPDFLibCtrl := TQuickPDF0722.Create();
    if (myPDFLibCtrl.UnlockKey(sLicence) = 1) then
    begin
      myPDFLibCtrl.LoadFromStream(oDocument.fileStream);
      oDocument.numberOfPages := myPDFLibCtrl.PageCount;
      Result := SaveNewDocument(oDocument);
    end
    else
    begin
      ShowMessage('Quick PDF Library: Invalid licence.');
    end;
  finally
    if Assigned(myPDFLibCtrl) then
    begin
      myPDFLibCtrl.Free();
      myPDFLibCtrl := nil;
    end;
  end;

Thanks for your help.

Patrick Maltais, programmer

Edited by Ingo - 15 Dec 10 at 8:05AM

Author	Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic
pmaltais Members Profile Find Members Posts Beginner Joined: 14 Dec 10 Location: 404 Status: Offline Points: 8	Post Options Post Reply Quote pmaltais Report Post Thanks(0) Quote Reply Topic: PageCount not working Posted: 14 Dec 10 at 8:00PM
	Hi, I load PDF documents wich contain more than one page. PageCount always returns 1. I'm using LoadFromStream. What am I missing? Note that further in the code I display the document in a PDF Viewer and the document is perfectly displayed. Here is my code listing: // oDocument is a business object containing the PDF stream and other data related to it... try sLicence := 'my_reg_key'; myPDFLibCtrl := TQuickPDF0722.Create(); if (myPDFLibCtrl.UnlockKey(sLicence) = 1) then begin myPDFLibCtrl.LoadFromStream(oDocument.fileStream); oDocument.numberOfPages := myPDFLibCtrl.PageCount; Result := SaveNewDocument(oDocument); end else begin ShowMessage('Quick PDF Library: Invalid licence.'); end; finally if Assigned(myPDFLibCtrl) then begin myPDFLibCtrl.Free(); myPDFLibCtrl := nil; end; end; Thanks for your help. Patrick Maltais, programmer Edited by Ingo - 15 Dec 10 at 8:05AM

pmaltais Members Profile Find Members Posts Beginner Joined: 14 Dec 10 Location: 404 Status: Offline Points: 8	Post Options Post Reply Quote pmaltais Report Post Thanks(0) Quote Reply Posted: 14 Dec 10 at 8:54PM
	I have found the problem. The Stream must be repositionned to its beginning. I added the line oDocument.fileStream.Seek(0, soFromBeginning); just before the LoadFromStream call and it works perfectly. Thanks

Rowan Members Profile Find Members Posts Moderator Group Joined: 10 Jan 09 Status: Offline Points: 398	Post Options Post Reply Quote Rowan Report Post Thanks(0) Quote Reply Posted: 15 Dec 10 at 1:00PM
	Thanks for sharing. Useful tip.