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

[zbk]

[kxy]

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

[Venne]

看得到啊你是不是记录集还没有打开？

[Venne]

这是我试验的例子
有两个表单
表单1上有一个按钮它使用表单2
表单2上有一个Qreport, 一个Table，Table使用DELPHi自带的例程数据库DEMOSDB,选择其中的Animal数据表，一个QBand,类型为分别为DEATAIL，在QBand上放置两个字段，一个是名字name，一个是图像 bmp，－－－－－－－－－－－－第一个窗口文件
unit Unit1;

interface

uses
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;

implementation

uses Unit2;

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
Form2.QuickRep1.Preview;
end;

end.
-----------------------------------------第二个窗口文件


unit Unit2;

interface

uses
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.