动态打印图片

适用于荷花项目，备忘

一、写脚本方法;  （建义使用）

procedure Picture1OnBeforePrint(Sender: TfrxComponent);
var
  s1: string;                                                          
begin    
  s1 := LoadImage('ws_item_mas', <master."ID">);     //下载图片到本地    
  if s1 <> '' then
  begin              
    TfrxPictureView(Sender).Picture.LoadFromFile(s1);//载入图片
    //或                  
    //Picture1.FileLink := s1;
  end 
  else begin
    Picture1.FileLink := '';
    TfrxPictureView(Sender).Picture.Assign(nil);     // 清空图片内容                                                                           
  end          
end;

说明：
        LoadImage 是自已定义的一个函数。功能是通过传入的参数 tableName 和 ID 从 Web 服务器下载图片并保存到本地，然后返回图片保存后的本地文件。

二、设置属性 FileLink , 如下图： (该方法有一个问题，就是当浏览器关闭后再进入系统打印时第1行的图片打不到，所以不建议使用）

最后运行效果， 如下