如何使用fastreport打印jpeg格式的图片，急ing....

[singwolf007]

如何使用fastreport打印jpeg格式的图片，急ing....

[WWWWA]

在FR中放入Picture1，其BLOB　TYPE设为BTJPG，LOAD　JPG文件即可
TfrReport.OnBeforePrint event:

if View.Name = 'Picture1' then
TfrPictureView(View).Picture.LoadFromFile(你的文件);

[singwolf007]

多谢,问题是我要从数据库从读呀

[dickeybird888]

高，哈哈（·￥·）

[WWWWA]

在FR的BEFORE　PRINT事件中读出，并给Picture1赋值

[WWWWA]

use jpeg;

var m_JpegStream:TMemoryStream;
begin
m_JpegStream:=TMemoryStream.Create;
(ADOQuery1.Fields[0] as TBlobField).SaveToStream(m_JpegStream);
ima_PicShow.Picture.Graphic:=nil;
ima_PicShow.Picture.Graphic:=TJpegImage.Create;
m_JpegStream.Position:=0;
//从文件流中读取图片信息 ima_picshow为Timage控件
ima_Picshow.Picture.Graphic.LoadFromStream(m_JpegStream);
end;
TfrReport.OnBeforePrint event:

if View.Name = 'Picture1' then
TfrPictureView(View).Picture.assign(ima_Picshow.Picture);

[WWWWA]

use jpeg;

var m_JpegStream:TMemoryStream;
begin
m_JpegStream:=TMemoryStream.Create;
(ADOQuery1.Fields[0] as TBlobField).SaveToStream(m_JpegStream);
ima_PicShow.Picture.Graphic:=nil;
ima_PicShow.Picture.Graphic:=TJpegImage.Create;
m_JpegStream.Position:=0;
//从文件流中读取图片信息 ima_picshow为Timage控件
ima_Picshow.Picture.Graphic.LoadFromStream(m_JpegStream);
end;
TfrReport.OnBeforePrint event:

if View.Name = 'Picture1' then
TfrPictureView(View).Picture.assign(ima_Picshow.Picture);