http://www.quickpdf.org/forum/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Fri, 01 May 2026 05:14:04 +0000 Sat, 18 Jun 2011 11:59:56 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 11.01 360 www.quickpdf.org/forum/RSS_post_feed.asp?TID=1862 http://www.quickpdf.org/forum/forum_images/QPDF_Forum_Title.png http://www.quickpdf.org/forum/ http://www.quickpdf.org/forum/drawtextbox-and-getpagetext_topic1862_post8016.html#8016 Author: haka
Subject: 1862
Posted: 18 Jun 11 at 11:59AM

Hallo Ingo.

I tried many things. There seems to be a problem with DrawTextBox.
Code example:

procedure TForm15.BtnSaveClick(Sender: TObject);
begin
  with TQuickPDF.Create do
  try
    UnlockKey(QuickPdfSN);
    SetPageSize('A4');
    DrawTextBox(50, PageHeight-50,  PageWidth-10, PageHeight-70, 'My text (DrawTextBox)', 1);
//  DrawText   (50, PageHeight-100, 'DrawText');
    SaveToFile('C:\Temp\quickpdf-drwatextbox.pdf')
  finally
    Free;
  end;
end;

procedure TForm15.BtnReadClick(Sender: TObject);
var s: string;
begin
  with TQuickPDF.Create do
  try
    UnlockKey(QuickPdfSN);
    LoadFromFile('C:\Temp\quickpdf-drwatextbox.pdf');
    s := UTF8ToAnsi(GetPageText(0));
    ShowMessage(s);
  finally
    Free;
  end;
end;

And the example PDF: http://www.officemanager.de/tmp/foren/quickpdf-drwatextbox.pdf

You can not read the text with GetPageText.

Thanks, Harald
]]> Sat, 18 Jun 2011 11:59:56 +0000 http://www.quickpdf.org/forum/drawtextbox-and-getpagetext_topic1862_post8016.html#8016 http://www.quickpdf.org/forum/drawtextbox-and-getpagetext_topic1862_post8012.html#8012 Author: Ingo
Subject: 1862
Posted: 17 Jun 11 at 9:34PM

Hi!

Try to change the two lines.
First DrawText then the other one...
New result?
What are the settings regarding font heighs and so on?
Is the box big enough for "DrawTextBox"?
You should deal a bit more with the settings.
I had been wondered that you could ever extract text before save it to disk ;-)

Cheers and welcome here,
Ingo
]]> Fri, 17 Jun 2011 21:34:00 +0000 http://www.quickpdf.org/forum/drawtextbox-and-getpagetext_topic1862_post8012.html#8012 http://www.quickpdf.org/forum/drawtextbox-and-getpagetext_topic1862_post8011.html#8011 Author: haka
Subject: 1862
Posted: 17 Jun 11 at 9:08PM

Hallo.
A text that is stored with DrawTextBox can not be read by GetPageText.

procedure TForm15.Button1Click(Sender: TObject);
var LPDF: TQuickPDF;
    s   : string;
begin
  LPDF := TQuickPDF.Create;
  try
    LPDF.UnlockKey(QuickPdfSN);
    LPDF.SetPageSize('A4');
    // Store OCR-Text...
    LPDF.DrawTextBox(50, LPDF.PageHeight-50,  LPDF.PageWidth-10, LPDF.PageHeight-70, 'DrawTextBox', 1);
    LPDF.DrawText   (50, LPDF.PageHeight-100, 'DrawText');
    // Read Text...
    s := UTF8ToAnsi(LPDF.GetPageText(0));
    ShowMessage(s);
  finally
    LPDF.Free;
  end;
end;

Variable s only contains "DrawText". Is this a bug?
I'm using QuickPDF 7.25 and Delphi 2009.

Greetings, Harald
]]> Fri, 17 Jun 2011 21:08:33 +0000 http://www.quickpdf.org/forum/drawtextbox-and-getpagetext_topic1862_post8011.html#8011