LoadFromFile image1 & 2

Comments

• gordk St.Catherines On. Canada.

  September 2009 edited 12:45PM

  are you trying to work from an event inside the report or from delphi using the tfrxreport components onbeforeprint event.
  and why are you trying to do it 100 times.
• mflopes

  September 2009 edited 12:45PM

  gordk wrote: »

  are you trying to work from an event inside the report or from delphi using the tfrxreport components onbeforeprint event.
  and why are you trying to do it 100 times.

  
  my report normaly goes to 80 times a detailreport(+- 80 images each variavel.
  I tray this way but doesent work why?
  
  procedure TTermografia.MainReportBeforePrint(Sender: TfrxReportComponent);
  
  begin
  ImagePath := Dirlocal + 'Termogra\'+Contracto.text+ '\'+NInterv.text+ '\';
  MainReport.Variables:=ImagePath ;
  
  end;
  
  
  procedure Picture5OnBeforePrint(Sender: TfrxComponent);
  begin
  picture5.picture.loadfromfile(<Fot1>+'Termografia_subFoto1');
  // picture5.picture.loadfromfile('Termogra\CAM MAIA\101\IR_0783.jpg'); work??s fine
  
  end;
  where im wrong???
• gordk St.Catherines On. Canada.

  September 2009 edited 12:45PM

  procedure TTermografia.MainReportBeforePrint(Sender: TfrxReportComponent);
  
  begin
  ImagePath := Dirlocal + 'Termogra\'+Contracto.text+ '\'+NInterv.text+ '\';
  MainReport.Variables:=ImagePath ;
  
  end;
  
  
  when passing a string into a report variable it must have additional string delimiters or it will be treated as an unknown by the expression parser and trigger the ongetvalue event.
  procedure TTermografia.MainReportBeforePrint(Sender: TfrxReportComponent);
  
  in this next procedure
  'Termografia_subFoto1' is a string added to the value of <Fot1> and does not have an image extension. ie .jpg
  procedure Picture5OnBeforePrint(Sender: TfrxComponent);
  begin
  picture5.picture.loadfromfile(<Fot1>+'Termografia_subFoto1');
  // picture5.picture.loadfromfile('Termogra\CAM MAIA\101\IR_0783.jpg'); work??s fine
  
  end;
  
• mflopes

  September 2009 edited September 2009

  'Termografia_subFoto1' or <Termografia_sub."Foto1"> stores a value IR_0783.jpg .
  Really im new ate this and I???m learning but i didn???t now what you what you meant..
  
  
  ml
  
  thank??s
• gordk St.Catherines On. Canada.

  September 2009 edited 12:45PM

  The right way to pass a string values is:
  
  
  
  frxReport1.Variables := '''' + 'test' + ''''; or
  
  
  frxReport1.Variables := '''' +(delphistringvariable) + '''';
  
  read the programmers manual on working with a list of variables.
  tip
  when you are trying to trouble shoot a problem in report script code try a single time instead of many times and use the showmessage() function in the report script to see what value the string has.
  ie
  procedure Picture5OnBeforePrint(Sender: TfrxComponent);
  begin
  showmessage(<Fot1>+'Termografia_subFoto1');// temp test to check string.
  //picture5.picture.loadfromfile(<Fot1>+'Termografia_subFoto1');
  // picture5.picture.loadfromfile('Termogra\CAM MAIA\101\IR_0783.jpg'); work??s fine
  
  end;
  also remeber that when you use the external events of the tfrxreport component to pass values into the report
  you cannot preview from the delphi ide you must run the app.
  
• mflopes

  September 2009 edited 12:45PM

  Thank??s for the great HELP
  
  procedure TTermografia.MainReportBeforePrint(Sender: TfrxReportComponent);
  begin
  ImagePath := Dirlocal + 'Termogra\'+Contracto.text+ '\'+NInterv.text+ '\';
  MainReport.Variables := '''' +(ImagePath) + '''';
  MainReport.Variables := '''' +(ImagePath) + '''';
  end;
  
  
  procedure Picture5OnBeforePrint(Sender: TfrxComponent);
  var
  vF1:String;
  begin
  vF1:=<Termografia_sub."Foto1"> ;
  picture5.picture.loadfromfile(<Fot1>+vf1);
  end