fastreport

报表中的图片对象 TFrxPictureView

赋值方式

• 通过数据集赋值

  procedure TForm1.Button1Click(Sender: TObject);
  begin
      frxReport1.Clear;
      frxReport1.LoadFromFile('c:\reports\rp06.fr3');
      pv:=frxReport1.FindObject('Picture1') as TfrxPictureView;
      pv.DataSet:=frxDBDataset1;
      pv.DataField:='BMP';
      frxReport1.PrepareReport();
      frxReport1.ShowPreparedReport;
  end;
  

• 通过文件或流赋值

   procedure TForm1.Button1Click(Sender: TObject);
   var
     pv:TfrxPictureView;
     path:string;
   begin
     path:=ExtractFilePath(ParamStr(0))+'2.png'; //图片路径
     frxReport1.Clear;
     frxReport1.LoadFromFile('c:\reports\rp06.fr3');
     pv:=frxReport1.FindObject('Picture1') as TfrxPictureView;
     if FileExists(path) then
     pv.Picture.LoadFromFile(path);
   //    pv.DataSet:=frxDBDataset1;
   //    pv.DataField:='BMP';
     frxReport1.PrepareReport();
     frxReport1.ShowPreparedReport;
   end;