3

我想在 FastReport 中显示图像。

这是德尔福代码：

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

任何想法，将不胜感激。

4

2 回答 2

9

  1. 将图片对象放在报表上。让我们假设它会被调用Picture1。

  2. 在您的 Delphi 代码中，在您要加载图片的方法中，添加如下一行：

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

    该Picture属性是 a 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;
于 2012-06-23T11:11:31.863 回答
-1

Your problem is the "/" it is supposed to be a backslash ---> "\"

于 2012-06-23T11:44:39.380 回答