FastReport的Picture控件如何显示DB的图片(50分)

  • 主题发起人 主题发起人 lixin38
  • 开始时间 开始时间
L

lixin38

Unregistered / Unconfirmed
GUEST, unregistred user!
FastReport的Picture控件如何显示DB的图片,看了Demo,只发现DataField设置为[Picture],没发现应该如何設置來显示DB中的那个字段啊
 
procedure TDataModule1.frrpPrintBeforePrint(Memo: TStringList;
//获取数据库的图片信息
View: TfrView);
var
tempstream: TStringStream;
tempjpeg: TJPEGImage;
begin
if View.Name = '控件名' then
begin
try
tempstream := TStringStream.Create(' ');
TBlobField(adoqryPrint.FieldByName('Picture')).SaveToStream(tempstream);
tempstream.Position := 0;
tempjpeg := TJPEGImage.Create;
tempjpeg.LoadFromStream(tempstream);
TfrPictureView(View).Picture.Bitmap.Assign(tempjpeg);
finally
tempstream.Free;
tempjpeg.Free;
end;
end;
end;
 
設置DataSet和DataField屬性就能顯示了.
 
to 001zqk:是猜測的還是有試過呢?我試了,是不可以的。
to idamen:我試一下!
 
我的fr是3.07版,圖片是bmp格式,經常用都沒問題.
 
to 001zqk:是Access或SQL Server的嗎?我用2.4的就有問題。。用新版本試一下吧
 
哪位大俠還有沒有好方法呢?
 
demo里面可以有
 
多人接受答案了。
 

Similar threads

回复
0
查看
804
不得闲
D
回复
0
查看
744
DelphiTeacher的专栏
D
D
回复
0
查看
718
DelphiTeacher的专栏
D
后退
顶部