用过FastReport 的请进(100分)

怎样用FR打印Form上的image中的图片,我用的是Fastreport3.0

这
http://www.2ccc.com/article.asp?articleid=2302
有FastReport3.0的教程 下载了
自己研究一下吧
呵呵

procedure Page1OnBeforePrint(Sender: TfrxComponent);
begin
picture1.Picture.LoadFromFile('M:/XXX/XXX.jpg');
end;

窗体上的那个图片是通过数据库在的Blob字段得到的，不是从文件中得到的,该怎么办呢

把Blob中的内容放到一个流中，图片可以从流中读取图片的

我的图片就是从流中读取的，现在的问题是如何才能用fastreport3.0将图片打印出来呢

先保存到临时文件夹中，然后再用Fastreport打印出来

以前从网上找的,知对你是否有用:

如何打印窗体Form1中的Image1中的图片？（{}内的写法也可以，一种写法的不同形式而已）

begin
TfrxPictureView(frxReport1.FindObject('Picture1')).Picture.Graphic:=Form1.Image1.Picture.Graphic;
{(frxReport1.FindObject('Picture1') as TfrxPictureView).Picture.Graphic:=Form1.Image1.Picture.Graphic;}
frxReport1.ShowReport();
end;
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
procedure TMyData.frReport1BeginBand(Band: TfrBand);
var
cc:TfrView;
tempStream:TMemoryStream;
tempjpeg:TJPEGImage;
begin
//cc:=frReport1.FindObject(‘Picture1‘);
//向报表中插入照片信息
if Band.Name=‘CardBand‘ then
begin
tempstream:=TMemoryStream.Create;
TBlobField(tblCard.FieldByName(‘HeadPic‘)).SaveToStream(tempstream);
tempstream.Position:=0;
tempjpeg:=TJPEGImage.Create;
tempjpeg.LoadFromStream(tempstream);
TfrPictureView(frReport1.FindObject(‘Picture1‘)).Picture.Bitmap.Assign(tempjpeg);

tempjpeg.Free;
tempStream.Free;
end;
end;
end.

谢谢各位，问题已解决，散分。。。。。