如何在fastreport中显示存入数据库中的ＪＰＧ图片并打印出来． ( 积分: 50 )

如何在fastreport中显示存入数据库中的ＪＰＧ图片并打印出来．

如何在fastreport中显示存入数据库中的ＪＰＧ图片并打印出来．

朋友,看看我的贴吧
http://www.delphibbs.com/delphibbs/dispq.asp?lid=3010092

不用路径.一定得要调用数据库中的图片.

用结果集，不行吗？

急呀．哥们帮们给段代码．

lynu (2002-06-08 13:20:00)
写点代码,看我的!
procedure Tpdfrm.frReport1BeforePrint(Memo: TStringList;
View: TfrView);
var
ls: TPicture;
begin
if (View.Name = 'Picture1') and not ADOQuery2PhotoGraph.IsNull then
begin
ls := TPicture.Create;
try
ADOQuery2PhotoGraph.SaveToPicture(ls);
//这个blobFiled是一个加强型的blobfield,你如果用原生的BlobField
还要写点代码转换一下,就是JPEGImage.Assign(...),反正思路是给你了.
TfrPictureView(View).Picture.Bitmap.Assign(ls.Graphic);
finally
ls.Free;
end;
end;

frPicture处理JPG只能是直接处理文件,换句话说,frPictrue"能"处理JPG是因为他
在装入文件时进行了处理.至于数据库字段,那还不行.
另外还要告诉你,有一个现成的frADVPicture可以实现直接处理JPG.


fr的SOURCE目录下有一个Fr.inc的文档，你打开后
找到下列内容
//------------------- JPEG images -----------------------------------
// JPEG images - only available in Delphi 3 and above. Adds approximately
// 100Kb to your EXE.
// If you want to show jpeg images in "Picture"
object, uncomment
// the following line:
//{$DEFINE JPEG} {把这一句的注释//去掉，就可以打印JPEG图片了}

多人接受答案了。