TppReport Descedent

rbuser

is there an example somewhere that has a TppReport descendent? Thanks

nicocizik

Hi Jeff,

Creating a descendent of the TppReport class should not be very
difficult. There is no registration necessary or special processing.

For what purpose are you creating one? Perhaps a bit more information
about what you are ultimately trying to accomplish will help us
understand the issue better.

rbuser

the only reason i need to create one is for attempting to fix an Integer
overflow error that is occuring sometimes in report builder 11.08
Enterprise edition delphi 2010. I cannot figure out why its occuring
(the integer overflow) or how to fix it. But thought if I could get an
example of how to create a TppReport descendent (I tried and could not
get it to work), i may somehow be able to trap for that error and ignore it

nicocizik

Hi Jeff,

Does the error occur with every report or just certain reports? Is
there a certain component or calculation that seems to cause the error
to occur? If you get the error, are you able to trace into the RB
source and see where it is occurring?

rbuser

The error only occurs if I am doing a very large report. I have tried
to track down the error, and only got it narrowed down to

procedure RequestPage(Sender: TObject; aPageRequest: TObject); override;

Something in that event was causing the error, so I was going to try to
inherit that and trap for the error or something.

nicocizik

Hi Jeff,

Are you able to recreate this issue with an example I could run on my
machine. If so, please send it to me in .zip format and I can test it
with the latest version of ReportBuilder.

rbuser

No I was not able to duplicate it in a small app, which sucks. Sorry

nicocizik

Hi Jeff,

You might try downloading a trial copy of the latest version of
ReportBuilder and see if the problem still exists.

As a side note, I was able to create a simple TppReport descendent and
use it as expected. Something like the following...

TMyReport = class(TppReport)
public
procedure Print; override;
end;

{ TMyReport }

procedure TMyReport.Print;
begin
ShowMessage('My Report!');
inherited;

end;

{TForm1}

procedure TForm1.Button1Click(Sender: TObject);
var
lReport: TMyReport;
begin

lReport := TMyReport.Create(self);
lReport.Print;

end;