Debenu Quick PDF Library - PDF SDK Community Forum : Find all annotations in a PDF http://www.quickpdf.org/forum/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Mon, 11 May 2026 22:18:59 +0000 Mon, 12 Oct 2009 01:34:12 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 11.01 360 www.quickpdf.org/forum/RSS_post_feed.asp?TID=1225 <![CDATA[Debenu Quick PDF Library - PDF SDK Community Forum]]> http://www.quickpdf.org/forum/forum_images/QPDF_Forum_Title.png http://www.quickpdf.org/forum/ <![CDATA[Find all annotations in a PDF : This is an enhanced version of...]]> http://www.quickpdf.org/forum/find-all-annotations-in-a-pdf_topic1225_post5657.html#5657 Author: Rowan
Subject: 1225
Posted: 12 Oct 09 at 1:34AM

This is an enhanced version of the Delphi Sample Code:

---
QP := TQuickPDFQVer.Create;
 try
   QP.UnlockKey(' ... ');
   QP.LoadFromFile('annots.pdf');

   for Page := 1 to QP.PageCount do
   begin
     QP.SelectPage(Page);
     Memo1.Lines.Add('Page ' + IntToStr(Page));
     for AnnotationIndex := 1 to QP.AnnotationCount do
     begin
       Memo1.Lines.Add('  Annotation ' + IntToStr(AnnotationIndex));
       Memo1.Lines.Add('    Type: ' +
         QP.GetAnnotStrProperty(AnnotationIndex, 101));
       Memo1.Lines.Add('    Contents: ' +
         QP.GetAnnotStrProperty(AnnotationIndex, 102));
       Memo1.Lines.Add('    Name: ' +
         QP.GetAnnotStrProperty(AnnotationIndex, 103));
       Memo1.Lines.Add('    Subject: ' +
         QP.GetAnnotStrProperty(AnnotationIndex, 127));
       Memo1.Lines.Add('    Left: ' +
         FormatFloat('0.00', QP.GetAnnotDblProperty(AnnotationIndex, 105)));
       Memo1.Lines.Add('    In reply to: ' +
         FormatFloat('0.00', QP.GetAnnotIntProperty(AnnotationIndex, 128)));
     end;
   end;
---
]]> Mon, 12 Oct 2009 01:34:12 +0000 http://www.quickpdf.org/forum/find-all-annotations-in-a-pdf_topic1225_post5657.html#5657 <![CDATA[Find all annotations in a PDF : Programmatically retrieving...]]> http://www.quickpdf.org/forum/find-all-annotations-in-a-pdf_topic1225_post5627.html#5627 Author: Rowan
Subject: 1225
Posted: 25 Sep 09 at 8:13AM

Programmatically retrieving a list of all the various annotations stored inside a PDF is pretty easy when using the AnnotationCount and GetAnnotStrProperty with Quick PDF Library. An example of how to do this is shown below in C# and Delphi.

C# Sample Code:

---
QP.LoadFromFile(txtFilePath.Text);

for (int i = 1; i <= QP.PageCount(); i++)
{
    QP.SelectPage(i);

    txtLog.Text = txtLog.Text + "Page " + Convert.ToString(i) + " has " + QP.AnnotationCount() + " annotations." + "\r\n" + "\r\n";
    
    for (int d = 1; d < QP.AnnotationCount(); d++)
    {
        string AnnotType = QP.GetAnnotStrProperty(d, 101);
        txtLog.Text = txtLog.Text + AnnotType + "\r\n";
    }
}
---

Delphi Sample Code:

---
Memo5.Lines.BeginUpdate;
Memo5.Lines.Clear;
ProgressBar1.Max := QP.PageCount;

for Page := 1 to QP.PageCount do
begin
  QP.SelectPage(Page);
  ProgressBar1.Position := Page;

  Memo5.Lines.Add('Page ' + IntToStr(Page) + ' has ' +
 IntToStr(QP.AnnotationCount) + ' annotations');
  for AnnotIndex := 1 to QP.AnnotationCount do
  begin
 AnnotType := QP.GetAnnotStrProperty(AnnotIndex, 101);
 Memo5.Lines.Add('Annot number ' + IntToStr(AnnotIndex) + ' on this page has type: ' + AnnotType);
  end;

  Memo5.Lines.Add('');
end;
---
]]> Fri, 25 Sep 2009 08:13:57 +0000 http://www.quickpdf.org/forum/find-all-annotations-in-a-pdf_topic1225_post5627.html#5627