delphi - 将 Delphi 图像传递给 FastReport

Question

我想在 FastReport 中显示图像。

这是德尔福代码:

 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 与您在示例中使用的方法相同。因此，只需提供相应的文件名作为参数即可。

这应该在运行报告之前完成。如果您想在运行报告的过程中加载图片，您也许应该尝试在报告脚本中执行类似的操作。也许我会为 Picture1 对象定义一个 OnBeforePrint 处理程序，如下所示:

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;