Load report in Windows Service

zkusmo · March 2013

I want to generate a PDF file in the Windows Service. I use Delphi XE2 with FastRepor 4.12.2.

On the line where loaded from the database, the service is completely stops. After uninstall service generates a blank PDF.

LoadFromBlobField(frxReport, QuerySestava.FieldByName('obsah'));

procedure TSAODV.LoadFromBlobField(frxReport: TfrxReport; Blob: TField);
var Stream: TMemoryStream;
begin
Â Â Stream := TMemoryStream.Create;
Â Â try
Â Â Â Â TBlobField(Blob).SaveToStream(Stream);
Â Â Â Â Stream.Position := 0;
Â Â Â Â frxReport.LoadFromStream(Stream);
Â Â finally
Â Â Â Â Stream.Free;
Â Â end;
end;

I tried the code below does not work.

frxReport.LoadFromStream(QuerySestava.CreateBlobStream(TBlobField(QuerySestava.FieldByName('obsah')),bmRead));

The above lines in the standard program are OK.

Thanks for the advice.

gpi · March 2013

try to save report to file after frxReport.LoadFromStream(Stream); and check content of report template

zkusmo · April 2013

I forgot to set up the connection to the database for the report.

ADOComp := TfrxADOComponents.Create(Self);
ADOComp.DefaultDatabase := ADOConnection;
frxReport := TfrxReport.Create(Self);
frxReport.Script.Parent := fsGlobalUnit;
frxReport.LoadFromStream(QuerySestava.CreateBlobStream(TBlobField(QuerySestava.FieldByName('obsah')),bmRead));

Thanks, it all works OK.

Peta · April 2013

zkusmo wrote: »

frxReport.LoadFromStream(QuerySestava.CreateBlobStream(TBlobField(QuerySestava.FieldByName('obsah')),bmRead));

Thanks, it all works OK.

Hello,

Almost OK.
CreateBlobStream() returns a stream that you need to free. Especially if, I assume, this is a server.

strm := QuerySestava.CreateBlobStream(TBlobField(QuerySestava.FieldByName('obsah')),bmRead);
try
Â Â frxReport.LoadFromStream(strm);
finally
Â Â strm.Free;
end;

Best Regards,
Cristian Peta

Load report in Windows Service

Comments

Leave a Comment