请问如何在预览中看到TQRDBIMAGE的图像？

Question

?我没有试过,看不到吗?
DBImage能看到吗?

Answer 1

这是我试验的例子
有两个表单
表单1上有一个按钮它使用表单2
表单2上有一个Qreport, 一个Table，Table使用DELPHi自带的例程数据库DEMOSDB,选择其中的Animal数据表，一个QBand,类型为分别为DEATAIL，在QBand上放置两个字段，一个是名字name，一个是图像 bmp，－－－－－－－－－－－－第一个窗口文件
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementationuses Unit2;{$R *.DFM}procedure TForm1.Button1Click(Sender: TObject);
begin
Form2.QuickRep1.Preview;
end;end.
-----------------------------------------第二个窗口文件
unit Unit2;interfaceuses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Qrctrls, QuickRpt, Db, ExtCtrls, DBTables;type
  TForm2 = class(TForm)
    Table1: TTable;
    DataSource1: TDataSource;
    QuickRep1: TQuickRep;
    QRBand1: TQRBand;
    QRBand2: TQRBand;
    Table1NAME: TStringField;
    Table1BMP: TBlobField;
    QRDBText1: TQRDBText;
    QRDBImage1: TQRDBImage;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form2: TForm2;implementation{$R *.DFM}procedure TForm2.FormCreate(Sender: TObject);
begin
Table1.Active :=true;
end;procedure TForm2.FormDestroy(Sender: TObject);
begin
table1.Active :=false;
end;end.