这是我把数据库的图片显示在IMAGE里,然后用FR打印, if pic_img.Picture.Graphic=nil then TfrPictureView(lls_frr.FindObject('Picture2')).Picture.Graphic:=NIL else TfrPictureView(lls_frr.FindObject('Picture2')).Picture.Graphic:=pic_img.Picture.Graphic;
问题是包括图片文字的Blob字段数据,用报表中的Picture显示,总是提示Bitmap image is not valid RichEdit又只能显示纯文本,该如何操作呢?
把blob显示到报表上也很简单的。
if pic_img.Picture.Graphic=nil then
TfrPictureView(lls_frr.FindObject('Picture2')).Picture.Graphic:=NIL
else
TfrPictureView(lls_frr.FindObject('Picture2')).Picture.Graphic:=pic_img.Picture.Graphic;
RichEdit又只能显示纯文本,该如何操作呢?
用TStringStream读出Blob的数据,然后弄到TQRImage里面去。