适用于荷花项目,备忘
一、写脚本方法; (建义使用)
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行的图片打不到,所以不建议使用)
最后运行效果, 如下