如何使用fastreport打印jpeg格式的图片,急ing....  

解决方案 »

  1.   

    在FR中放入Picture1,其BLOB TYPE设为BTJPG,LOAD JPG文件即可
    TfrReport.OnBeforePrint event:if View.Name = 'Picture1' then
    TfrPictureView(View).Picture.LoadFromFile(你的文件);
      

  2.   

    在FR的BEFORE PRINT事件中读出,并给Picture1赋值
      

  3.   

    use jpeg;var  m_JpegStream:TMemoryStream;
    begin
     m_JpegStream:=TMemoryStream.Create;
    (ADOQuery1.Fields[0] as TBlobField).SaveToStream(m_JpegStream);
      ima_PicShow.Picture.Graphic:=nil;
      ima_PicShow.Picture.Graphic:=TJpegImage.Create;
      m_JpegStream.Position:=0;
      //从文件流中读取图片信息 ima_picshow为Timage控件
      ima_Picshow.Picture.Graphic.LoadFromStream(m_JpegStream);
     end;
    TfrReport.OnBeforePrint event:if View.Name = 'Picture1' then
     TfrPictureView(View).Picture.assign(ima_Picshow.Picture);
      

  4.   

    use jpeg;var  m_JpegStream:TMemoryStream;
    begin
     m_JpegStream:=TMemoryStream.Create;
    (ADOQuery1.Fields[0] as TBlobField).SaveToStream(m_JpegStream);
      ima_PicShow.Picture.Graphic:=nil;
      ima_PicShow.Picture.Graphic:=TJpegImage.Create;
      m_JpegStream.Position:=0;
      //从文件流中读取图片信息 ima_picshow为Timage控件
      ima_Picshow.Picture.Graphic.LoadFromStream(m_JpegStream);
     end;
    TfrReport.OnBeforePrint event:if View.Name = 'Picture1' then
     TfrPictureView(View).Picture.assign(ima_Picshow.Picture);