如何将数据库读出的多笔数据以图片方式输出? ( 积分: 10 )

  • 主题发起人 主题发起人 oldhen
  • 开始时间 开始时间
O

oldhen

Unregistered / Unconfirmed
GUEST, unregistred user!
在学习制作图书管理系统的时候,碰到一个很现实的问题:就是制作读者借阅卡的时候,要如何把数据库读出的读者信息保存为图片呢?
 
在学习制作图书管理系统的时候,碰到一个很现实的问题:就是制作读者借阅卡的时候,要如何把数据库读出的读者信息保存为图片呢?
 
你真幸运,碰到我:昨天我赶下载了一个制作借阅卡的控件。
你真不幸,我把它给删了。
 
呵呵,碰巧前些日子做了个类似的问题。
把显示读者信息的控件(如:tdbedit,tlabel)放在一个 PANEL 上,然后放一个TIMAGE控件,TIMAGE 和 TPANEL 的大小要一样

然后做如下处理
begin
Panel1.PaintTo(image1.Canvas, 0, 0);
image1.Picture.SaveToFile('temp.bmp');
if FileExists('temp.bmp') then
Application.MessageBox('已保存为 temp.bmp !', '保存成功', mb_ok + mb_iconinformation);
end;

我的可以,希望对你也有用。
 
我在找一下!
 
找不到了,删掉了。你自己到盒子论坛去找一下。
 
谢谢.你的代码可以用.我稍微改动了一下:
Panel1.PaintTo(image1.Canvas, 0, 0);
image1.Picture.SaveToFile('card/'+label10.caption+'.jpg');
if FileExists('card/'+label10.caption+'.jpg') then
Application.MessageBox('保存成功, '确认', mb_ok + mb_iconinformation);
 
多人接受答案了。
 
现在又发现了一个问题:我将上面的代码加入到"添加记录"的按钮事件中.并在提交数据库以及输出图片后将放在image控件里的label控件的caption清空,但运行中却发现无法清空数据.但如果把该label移到image控件外却又可以清空数据,这是什么原因造成的呢
 
后退
顶部