FastReport 報表中圖片對象

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;