Debenu Quick PDF Library - PDF SDK Community Forum : Newbe Question http://www.quickpdf.org/forum/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Tue, 05 May 2026 10:21:50 +0000 Wed, 08 Jul 2009 08:30:47 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 11.01 360 www.quickpdf.org/forum/RSS_post_feed.asp?TID=1134 <![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[Newbe Question : What is the first message that...]]> http://www.quickpdf.org/forum/newbe-question_topic1134_post5267.html#5267 Author: ukobsa
Subject: 1134
Posted: 08 Jul 09 at 8:30AM

What is the first message that you get? Note that getting back zero indicates an error while not zero indicates success!

What is the value of curPage? And how is TMyQuickPDF defined? Is there any additional code in it. And what happens when after setting the page dimensions you try to read them again? Are the values right?

best regards,

Ulrich

]]> Wed, 08 Jul 2009 08:30:47 +0000 http://www.quickpdf.org/forum/newbe-question_topic1134_post5267.html#5267 <![CDATA[Newbe Question : Perhaps you should check if the...]]> http://www.quickpdf.org/forum/newbe-question_topic1134_post5266.html#5266 Author: Ingo
Subject: 1134
Posted: 07 Jul 09 at 4:07PM

Perhaps you should check if the value in dpi is the correct one?]]> Tue, 07 Jul 2009 16:07:30 +0000 http://www.quickpdf.org/forum/newbe-question_topic1134_post5266.html#5266 <![CDATA[Newbe Question : Sorry, none of the suggestions...]]> http://www.quickpdf.org/forum/newbe-question_topic1134_post5265.html#5265 Author: RhoTu
Subject: 1134
Posted: 07 Jul 09 at 2:54PM

Sorry, none of the suggestions work.  I still get no '0' returns, yet I get the range check error but not all of the time.  Using D7 and VISTA64.  Can someone with Delphi see if they get the error as well?
 
 
procedure TForm1.Button1Click(Sender: TObject);
var
  qp:TMyQuickPDF;
  currPage,dpi:integer;
  i:integer;
begin
  try
    qp:=TMyQuickPDF.create; // unLockKey called in TMyQuickPDF.create after inherited create
    if 0=qp.SetOrigin(1)then
      showMessage('result: '+intToStr(i));
    currpage:=qp.SelectedPage;
    dpi:=screen.PixelsPerInch;
    if 0=qp.SetPageDimensions(11*dpi,8.5*dpi) then
      showMessage('result: '+intToStr(i));
    if 0=qp.SetTextColor(1,1,1) then
      showMessage('result: '+intToStr(i));
    if 0=qp.SetFillColor(0.2,0.4,0.1) then
      showMessage('result: '+intToStr(i));
    if 0=qp.DrawBox(1*dpi,1*dpi,4*dpi,1*dpi,2) then
      showMessage('result: '+intToStr(i));
    if 0=qp.DrawTextBox(1*dpi,1*dpi,4*dpi,1*dpi,'This is a Test',0) then
      showMessage('result: '+intToStr(i));
    if 0=qp.RenderPageToDC(dpi,currPage,image1.Canvas.Handle) then
      showMessage('result: '+intToStr(i));
  except on e:exception do
    showMessage(e.Message);
  end;
  freeAndNil(qp);
end;
 
]]> Tue, 07 Jul 2009 14:54:45 +0000 http://www.quickpdf.org/forum/newbe-question_topic1134_post5265.html#5265 <![CDATA[Newbe Question : You should also set the orgin...]]> http://www.quickpdf.org/forum/newbe-question_topic1134_post5264.html#5264 Author: DELBEKE
Subject: 1134
Posted: 07 Jul 09 at 7:26AM

You should also set the orgin with
Qp.SetOrigin(1); //Origin at top/left
]]> Tue, 07 Jul 2009 07:26:37 +0000 http://www.quickpdf.org/forum/newbe-question_topic1134_post5264.html#5264 <![CDATA[Newbe Question : Sorry... i didn&#039;t see it...]]> http://www.quickpdf.org/forum/newbe-question_topic1134_post5263.html#5263 Author: Ingo
Subject: 1134
Posted: 07 Jul 09 at 5:47AM

Sorry... i didn't see it ;-)
What are the returning values of your functions?
result := QP.SetPageDimensions(...
result2 := QP.DrawBox(...
Perhaps then you see where's the prob.
If SetPageDimensions doesn't work then (later) your DrawBox getting out of range...
Something like this ...

Cheers, Ingo


Edited by Ingo - 07 Jul 09 at 6:41AM]]> Tue, 07 Jul 2009 05:47:33 +0000 http://www.quickpdf.org/forum/newbe-question_topic1134_post5263.html#5263 <![CDATA[Newbe Question : Screen.PixelsPerInch=96 ]]> http://www.quickpdf.org/forum/newbe-question_topic1134_post5262.html#5262 Author: RhoTu
Subject: 1134
Posted: 06 Jul 09 at 10:11PM

Screen.PixelsPerInch=96]]> Mon, 06 Jul 2009 22:11:21 +0000 http://www.quickpdf.org/forum/newbe-question_topic1134_post5262.html#5262 <![CDATA[Newbe Question : Hi What&#039;s in dpi? ]]> http://www.quickpdf.org/forum/newbe-question_topic1134_post5261.html#5261 Author: Ingo
Subject: 1134
Posted: 06 Jul 09 at 10:08PM

Hi What's in dpi?

]]> Mon, 06 Jul 2009 22:08:03 +0000 http://www.quickpdf.org/forum/newbe-question_topic1134_post5261.html#5261 <![CDATA[Newbe Question : Can anyone explain why the following...]]> http://www.quickpdf.org/forum/newbe-question_topic1134_post5260.html#5260 Author: RhoTu
Subject: 1134
Posted: 06 Jul 09 at 9:58PM

Can anyone explain why the following code gives me a 'range check' error?  Test program has a TImage and a TButton.  If I issue the SetFillColor or the DrawBox functions the error occurs upon the RenderPageToDC(dpi,currPage,image1.Canvas.Handle) call.
 
procedure TForm1.Button1Click(Sender: TObject);
var
  qp:TMyQuickPDF;
  currPage,dpi:integer;
begin
  qp:=TMyQuickPDF.create; // unLockKey called in TMyQuickPDF.create after inherited create
  currpage:=qp.SelectedPage;
  dpi:=screen.PixelsPerInch;
  qp.SetPageDimensions(11*dpi,8.5*dpi);
//  qp.SetFillColor(0.8,0.1,0.1);
  qp.SetTextColor(0.01,0.01,0.9);
//  qp.DrawBox(1*dpi,1*dpi,4*dpi,1*dpi,0);
  qp.DrawTextBox(1*dpi,1*dpi,4*dpi,1*dpi,'This is a Test',0);
  qp.RenderPageToDC(dpi,currPage,image1.Canvas.Handle);
  freeAndNil(qp);
end;
 
TIA
 
RT
 
]]> Mon, 06 Jul 2009 21:58:06 +0000 http://www.quickpdf.org/forum/newbe-question_topic1134_post5260.html#5260