Passing a Bitmap from app to report

Tom SmithTom Smith
edited 12:13PM in FastReport 4.0
Please help!!

I have an app that needs to generate a picture for my reports and i need to pass the picture to the reports but i dont want to have to save each file to disk and reload it etc. I have tried the code below but just get an error on my report, help...
function TForm1.QRCodeStream(encData: String; x, y: Integer): TStream;
var
  tmpCanvas: tBitMap;
begin
// necessary logic
  result:= TStream.Create;
  tmpCanvas := TBitMap.Create;
  QRCode1.code := encData;
  QRCode1.paintBarcode(tmpCanvas.Canvas);

  tmpcanvas.SaveToStream(result);
  tmpcanvas.Free;

end;

function TForm1.MainReportUserFunction(const MethodName: string;
  var Params: Variant): Variant;
begin
  if MethodName = 'QRCODE' then
    Result := Integer(QRCodeStream(Params[0], Params[1], Params[1]));
end;


//this next lin is in the forms create
  MainReport.AddFunction('function QrCode(encData: String; X, Y: Integer): TStream');

Then on my report attached to some data whitch all works fine and has been tested i have a picture object and i have set the onBeforePrint For the Picture to 
Picture2.LoadFromStream(QrCode('This is a tes ' + <Time>,1,1) );

I know the code is not very elegant yet but i just wanted to get it working firstly, so any advise.

Comments

  • gpigpi
    edited 12:13PM
    Use in Delphi's code 
    var BMP: TBitmap;
begin
     BMP:=TBitmap.Create;
     BMP.LoadFromFile('C:\Test.bmp');
     frxReport1.Script.Variables['pBMP']:=integer(BMP);
     frxReport1.ShowReport();
     BMP.Free;
end;
    in report's script 
    procedure Picture1OnBeforePrint(Sender: TfrxComponent);
var P: TPicture;
begin
     P:=TPicture.Create;
     P:=TPicture(pBMP);
     Picture1.Picture:=P;
end;

    or use TfrxReport.OnBeforePrint event

    or use TfrxPictureView(MainReport.FindObject('Picture2')).LoadPictureFromStream function
  • Mick.plMick.pl
    edited 12:13PM
    Is your app databased? Can you insert this picture in a table (or maybe the picture is already in any table) and then use a query to get if and put on then band?

    Mick
  • FranGesFranGes
    edited 12:13PM
    I am new in FR. So I would like to know if the "in report's script" means to include the informed text in the property "frxReport1.ScriptText"? I don't need do anything inside the TFrxReport? I will appreciate any information related to passing a bitmap to a report. Thanks.
  • gpigpi
    edited 12:13PM
    See a demo project in attach
  • FranGesFranGes
    edited 12:13PM
    gpi wrote: »
    See a demo project in attach

    Thank you for the help. Unfortunatelly, I can't see the image in the report. A blank page is visualized. No image is transfered.
  • gpigpi
    edited 12:13PM
    Did you change a path to your bitmap? 
    BMP.LoadFromFile('C:\Test.bmp');
  • FranGesFranGes
    edited 12:13PM
    gpi wrote: »
    Did you change a path to your bitmap? 
    BMP.LoadFromFile('C:\Test.bmp');

    Yes, I did. In order to be sure if the image was loaded I have included in the form an Image.Bitmap. The image is correct in the form but doesn't appear in the report. Can be something related to image size?
  • gpigpi
    edited 12:13PM
    See a new test project in attach
  • FranGesFranGes
    edited 12:13PM
    gpi wrote: »
    See a new test project in attach

    Unfortunately, the problem remains.
  • gpigpi
    edited 12:13PM
    Unfortunately, I can't to help you. My test project works OK for me
  • FranGesFranGes
    edited 12:13PM
    Anyway I appreciate your willingness to want to help me.
  • FranGesFranGes
    edited 12:13PM
    gpi wrote: »
    Unfortunately, I can't to help you. My test project works OK for me

    Finally I found a way to solve the problem in my computer. See attached file. Thanks.
  • soundeffectssoundeffects
    edited 12:13PM
    gpi wrote: »
    Use in Delphi's code 
    var BMP: TBitmap;
begin
// <snip>
end;
    in report's script 
    procedure Picture1OnBeforePrint(Sender: TfrxComponent);
// <snip>
end;

    or use TfrxReport.OnBeforePrint event

    or use TfrxPictureView(MainReport.FindObject('Picture2')).LoadPictureFromStream function

    Thank you, gpi. This response was very helpful to me. >

Leave a Comment

Rich Text Editor. To edit a paragraph's style, hit tab to get to the paragraph menu. From there you will be able to pick one style. Nothing defaults to paragraph. An inline formatting menu will show up when you select text. Hit tab to get into that menu. Some elements, such as rich link embeds, images, loading indicators, and error messages may get inserted into the editor. You may navigate to these using the arrow keys inside of the editor and delete them with the delete or backspace key.

Home • FastReport 4.0Comment As ...

© Vanilla Keystone Theme 2024