如何用frReport打印从数据库查询出来的图片?

Question

如题

Answer 1

程序（功能可以实现，方法有待推敲。注意：PicName为全局变量）
====
procedure TForm1.Button1Click(Sender: TObject);
begin
  OpenPictureDialog1.Execute;
  PicName:=OpenPictureDialog1.FileName;  frReport1.LoadFromFile('C:\pic.frf');
  frReport1.ShowReport;  
end;procedure TForm1.frReport1BeforePrint(Memo: TStringList; View: TfrView);
begin
  if View.Name='Picture1' then
  begin
    TfrPictureView(View).Picture.LoadFromFile(PicName);
  end;
end;

Answer 2

在FastReport报表中放一个tfr:PictureView, 把PicureView的DataSet设
成为你片所在表的字段, 如果你的图片是JPG的格式要把BlogType设成
btJPG, 其它的设定与普通FastReport报表一样.