用TStringStream读出Blob的数据,然后弄到TQRImage里面去。
解决方案 »
- 用ADO连接数据库打包时需要什么文件?不同的SQL服务器上如何实现修改数据库用户名等信息???明天要交作业不懂啊~~~~~~~~
- 制作安装程序中出现问题了!急啊!!!
- Delphi菜鸟提问9:简单问题,请看内容
- 数据库文件打包问题
- TString、WideString、String类型转换问题
- delphi自带示例程序DockExk的问题
- 如何让EDedit中的整形数居左?
- 借问一下,如何获得NT系统的当前CPU占有率???
- 如何在FORM中用程序为QuickReport的Detail上增加QRdbtext控件?
- 如何取得系统的按键和键值?
- if ord(false)=0 then 怎样才能把0转换成FALSE(不用if语句判断)谢谢!圣诞快乐!
- 请问如何在普通服务器上安装NT4.0,使C盘分区大于2G(本人的安装方式是用DOS6.22启动后对硬盘分区,C盘最大为2G。不知有什么好的安装方式?)
请问代码应该放在什么地方?我试过把代码放在ONPREVIEW,BEFOREPRINT等处,但不行!
好像还是不行!?提示说"找不到字段...."!这是什么问题?我是从FORM1中直接调用QUICKRPT1
的,FORM1和FORM2中各有DATASOURCE和TABLE控件,且属性设置教师一样的.救人救到底吧!
代码如下:
procedure form1.button1click(sender: tobject);
begin
form2.quickrep1.preview;
end;procedure
var
tmpg: tblobstream;
jpg: tjpegimage;
begin TForm8.QuickRep1NeedData(Sender: TObject; var MoreData: Boolean);
if TBlobField(form8.Table1.FieldbyName('photo')).isnull=false then
begin
tmpg:=TBlobStream.Create(TBlobField(Table1.FieldbyName('photo')), bmRead);
jpg:= TJPEGImage.Create;
jpg.LoadFromStream(tmpg);
qrImage1.Picture.Assign(jpg);
tmpg.free;
jpg.free;
end
else
qrimage1.picture:=nil;
end;