Pass Delphi image to FastReport

Question

Я хотел бы показать изображение в FastReport.

Вот Delphi код:

img_sick.Picture.LoadFromFile(ExtractFilePath(Application.ExeName) + 
     'Pictures/' + Qry_Search.FieldByName('code_personel').AsString + '.jpg'); 

Любые идеи будут оценены.

Answer 1

1. Поместите объект изображения в свою форму отчета. Предположим, что это будет называться Picture1.

2. В коде Delphi, в методе, где вы хотите, чтобы загрузить изображение, добавьте строку:

   TfrxPictureView(YourReportObject.FindObject('Picture1')).Picture.LoadFromFile(…) 
   

   Свойство Picture является TPicture и так LoadFromFile тот же метод, который вы используете в вашем примере. Поэтому просто укажите соответствующее имя файла в качестве аргумента.

Это предполагается сделать перед запуском отчета. Если вы хотите загрузить фотографии в процессе запуска отчета, вы можете попробовать сделать что-то подобное в скрипте отчета. Может быть, я бы определить OnBeforePrint обработчик для Picture1 объекта, например:

procedure Picture1OnBeforePrint(Sender: TfrxComponent); 
begin 
    TfrxPictureView(Sender).Picture.LoadFromFile(…); // use a reference 
      // to the "code_personel" column in the file name expression 
      // as appropriate in the context of the report script, 
      // like <Qry_Search."code_personel">, perhaps 
end; 

Answer 2

Вашей проблемой является «/» она должна быть обратной косой чертой ---> «\»