关于QRImage的问题?(100分)

C

Cnssk

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-19

• #1

我做的报表中有一个QRImage控件,我想在程序运行中,也就是预览时,
动态地调入图片,每一页的图片不一样,请问各位高手,我该怎样做?
我的图片不是存在数据库中,是以特定编号为文件名的文件保存的

 

H

hfghfghfg

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-20

• #2

procedure TForm1.QRLabel1Print(sender: TObject;
var Value: String);
begin
//
QRImage1.Picture.LoadFromFile('c:/1.bmp');
end;

 

Z

zhoufujin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-20

• #3

unit report;
...
tform.....
public
procedure setimage(Image:TImage);
end;
im...
procedure tform1.setimage(Image:TImage);
begin
qrimage.picture.assign(image.picture);
end;

动态地调入图片的时候：setimage(Image);
明白了？
end;

 

C

Cnssk

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-21

• #4

感谢以上两位回答我的问题，但我还是有些不太明白，上面的方法我都试过了：hfghfghfg的方法是可以用，但在打印时，每页的图片会不会是一样的呢，另外我的图片的文件名是用的其中一个QRDBTEXT的内容作为文件名的，应该怎样来写这样的语句呢？

 

H

hfghfghfg

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-21

• #5

procedure TForm1.QRDBText1Print(sender: TObject;
var Value: String);
begin
QRImage1.Picture.LoadFromFile(Value);
end;
//QRDBText1 =文件名的字段

 

R

realLearning

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-21

• #6

procedure TForm1.QRLabel1Print(sender: TObject;
var Value: String);
begin
//在打印时会触发，应该是不一样的。
QRImage1.Picture.LoadFromFile(QRDBText.Caption);
end;

 

C

Cnssk

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-21

• #7

多人接受答案了。