各位大侠,在使用qreport制作打印报表时想让QRDBImage1控件显示jpeg格式该怎么做,急急急!!! ( 积分: 100 )

  • 主题发起人 主题发起人 nxjwork
  • 开始时间 开始时间
N

nxjwork

Unregistered / Unconfirmed
GUEST, unregistred user!
各位大侠,在使用qreport制作打印报表时想让QRDBImage1控件显示jpeg格式该怎么做,急急急!!!或者可以用什么第三方的控件可以代替QRDBImage1也可以。在此表示谢谢了。使用qrimage1能实现图象的显示。但是在使用newpage分页时提示 :access violation at address 00511a3a in module 'project1.exe'.read of address 00000085。 实在是想不出办法解决了。高手们帮帮忙。小弟真的是很急。
 
各位大侠,在使用qreport制作打印报表时想让QRDBImage1控件显示jpeg格式该怎么做,急急急!!!或者可以用什么第三方的控件可以代替QRDBImage1也可以。在此表示谢谢了。使用qrimage1能实现图象的显示。但是在使用newpage分页时提示 :access violation at address 00511a3a in module 'project1.exe'.read of address 00000085。 实在是想不出办法解决了。高手们帮帮忙。小弟真的是很急。
 
看看这个吧
procedure TForm9.QuickRep1StartPage(Sender: TCustomQuickRep);
var
 mss: TmemoryStream;
 jpeg:tjpegimage;
begin
if tblobfield(form9.QuickRep1.DataSet.FieldByName('图片信息')).BlobSize>0 then
begin
  jpeg:=tjpegimage.Create;
  mss3:=TMemoryStream.Create;
  try  
   tblobfield(form9.QuickRep1.DataSet.FieldByName('图片信息')).savetostream(mss);
  mss.Seek(0,soFrombegin
ning);
  jpeg.loadfromstream(mss);
   QRImage1.Picture.Bitmap.Assign(jpeg);
finally
   jpeg.Free;
  mss.Free;
end;
 
end
else
begin
qrimage1.Picture:=nil
end;
end;
 
怎么和我一样的问题?
不过我解决了.
你去下载一个我写的控件安装就好了!
http://www.tomore.com/3/34507.html
 
后退
顶部