如何用Delphi实现从文件夹中提取图片打印--急! ( 积分: 100 )

Z

zzming

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-09-23

• #1

现在我在用Delphi6的QReport做一个打印单位员工信息的一个打印软件，现在打印文字部分已经做好了，可是打印照片这部分我不懂怎么做。情况是这样：
所有员工的信息都放在ACCESS报中，每个员工都有一个唯一的ID号，这些员工的照片统一另外放在image文件夹中，并且用员工的ID为照片命名，我现在不能解决的是如何实现在打印员工信息的同时也能从image文件夹中打印他的照片呢？

像asp在制作动态网页的时候不是可以用 [ID]+‘.jpg’ 来实现动态显示嘛；我用QRDBIamge试过，如果直接使用的话，它只能调用存放在表中的图片，我不知道是否还有没有其它的办法?
谢谢!

 

Z

zzming

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-09-23

• #2

现在我在用Delphi6的QReport做一个打印单位员工信息的一个打印软件，现在打印文字部分已经做好了，可是打印照片这部分我不懂怎么做。情况是这样：
所有员工的信息都放在ACCESS报中，每个员工都有一个唯一的ID号，这些员工的照片统一另外放在image文件夹中，并且用员工的ID为照片命名，我现在不能解决的是如何实现在打印员工信息的同时也能从image文件夹中打印他的照片呢？

像asp在制作动态网页的时候不是可以用 [ID]+‘.jpg’ 来实现动态显示嘛；我用QRDBIamge试过，如果直接使用的话，它只能调用存放在表中的图片，我不知道是否还有没有其它的办法?
谢谢!

 

X

xuegaoyili

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-09-23

• #3

想和记录对应打出来的话,你为什么不把图放到数据库中呢....记得有相关文章能实现放图片进数据库,
按你的要求的话,在打印前要自己加载图片,然后定义到你的Qreport报表上的QImage控件上.

 

C

chenybin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-09-25

• #4

http://www.delphibbs.com/delphibbs/dispq.asp?LID=2115066
标题： (难道真的没有高手？)请问如何在Quickreport内打印OLE生成的DWG图形;
(99分)
方法类似，自己在QRImage上面画图就可以了
uses
Activex;
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
OleDraw(OleContainer1.OleObjectInterface, 1, QRImage1.Canvas.Handle,
QRImage1.Canvas.ClipRect);
QuickRep1.Preview;
end;

 

Z

zzming

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-09-28

• #5

非常感谢xuegaoyili,和chenybin, ，谢谢你们！
To chenybin,
我认真的看了你的贴子，可能是我的delphi水平比较低吧，我真的看不懂这些语句，然后这几天我就查了delphi的help和相关的资料，不过没有找到，能不能麻烦你帮我讲解一下，好吗？
能留个联系方式吗，好方便联系，谢谢！

 

C

chenybin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-09-28

• #6

委屈一下,留下你的吧,QQ什么的都可以

 

A

app2001

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-09-28

• #7

这样行不行？？？
TQRImage:打印静态的图片，包括（BMP,WMF,ICON）首先要保证你的图片是位图,不能是jpg或gif格式的.
procedure TForm9.QuickRep1StartPage(Sender: TCustomQuickRep);
var
bitmap:Tbitmap;
begin
bitmap:=Tbitmap.Create;
bitmap.LoadFromFile('E:/net1.bmp');
　QRImage1.Picture.Bitmap.Assign(bitmap);
//这样才行.
bitmap.free;
end;

 

Z

zzming

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-09-28

• #8

非常感谢！[]
app2001的方法倒是个好方法，可是我的图片格式是.jpg 的，而且有近2千多张呀，如果要人工转化为 .bmp ，用人工转化图片工作量可能太大了，不知道有没有直接调用.jpg的方法，或者有程序把图片自动转化格式的。
呵呵，真的很谢谢大家，可能是我悟性太低啦，老是麻烦大家真不好意思啦！
我的Q号是：369123009
谢谢！

 

Z

zzming

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-09-28

• #9

delphi bbs Q群的管理员：桁骀 提醒我要及时结贴。这个提醒的很对。
我说明一下我做事都会有始有终的，我一定会结贴的，其实我也很想结贴的，可能是我悟性太低，老做不出来，老是麻烦大家真不好意思啦！
[]

 

0

0桁骀

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-09-28

• #10

[][]

 

C

chenybin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-09-28

• #11

参考
http://www.delphibbs.com/delphibbs/DispQ.asp?LID=1677558
标题： 100分 求购jpeg和bmp图象格式 (100分)

 

Z

zzming

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-09-28

• #12

真的非常谢谢chenybin, app2001, xuegaoyili, 谢谢大家！[]

 

Z

zzming

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-10-27

• #13

不好意思又打扰啦，后来我把这段代码给放在我的Form7里面，其中改为：
procedure TForm7.QuickRep1StartPage(Sender: TCustomQuickRep);
var
bitmap:Tbitmap;
begin
bitmap:=Tbitmap.Create;
bitmap.LoadFromFile('D:/00.bmp');
　QRImage1.Picture.Bitmap.Assign(bitmap);
//这样才行.
bitmap.free;
end;

我在后来试了，在Form7的QuickRep1没有显示啊？