在報表(FastReport)中動態載入jpg照片,預覽時所有的記錄都顯示的是一張照片-有解無憂

問題：如題，代碼如下：
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ADODB, DB, FR_DSet, FR_DBSet, FR_Class, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    ADOConnection1: TADOConnection;
    ADOTable1: TADOTable;
    frReport1: TfrReport;
    frDBDataSet1: TfrDBDataSet;
    DataSource1: TDataSource;
    ADOQuery1: TADOQuery;
    procedure Button1Click(Sender: TObject);
    procedure frReport1BeforePrint(Memo: TStringList; View: TfrView);

  private
    { Private declarations }  PV:TfrPictureView;
    procedure LoadPhoto;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
frReport1.LoadFromFile('d:\kwbm\zkz.frf');
  PV:=(frReport1.FindObject('Picture1') as TfrPictureView);
  frReport1.ShowReport;
end;
    procedure TForm1.LoadPhoto;
var
  S,FileName:String;
begin
FileName:= trim(ADOTable1.FieldByName('zp').AsString);

  if FileExists(FileName) then
  begin
    PV.Picture.LoadFromFile(FileName);
  end;
end;
procedure TForm1.frReport1BeforePrint(Memo: TStringList; View: TfrView);
begin
LoadPhoto
end;
end.

uj5u.com熱心網友回復：

PV:=(frReport1.FindObject('Picture1') as TfrPictureView);

PV.Picture.LoadFromFile(FileName);

PV是指定名稱的的一個組件，預覽時當然是將圖片加載到這個組件上了

uj5u.com熱心網友回復：

將圖片以二進制形式存盤在資料庫欄位中，影像框指定欄位名
就可以顯示每條記錄的影像

uj5u.com熱心網友回復：

照片有隨機性，并且資料量也大，在資料庫中，我存放的是照片的路徑，SELERON大哥，按照你的第一次回復，還是所有記錄只顯示第一條記錄的照片。還有沒有別的辦法啊

uj5u.com熱心網友回復：

參考 3 樓 KJHWXM 的回復:

照片有隨機性，并且資料量也大，在資料庫中，我存放的是照片的路徑，SELERON大哥，按照你的第一次回復，還是所有記錄只顯示第一條記錄的照片。還有沒有別的辦法啊

你指定了Pictrue1來顯示影像
Pictrue1怎么顯示多張圖片呢？一個組件只能顯示一張圖片

uj5u.com熱心網友回復：

動態創建多個TfrPictureView

轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/100383.html

下一篇：串口通訊問題，請幫忙！