Q&A

  • 퀵레포트 이미지 출력이 안되요?
퀵레포트에서 QRIMAGE component를 썼는데,
미리보기 화면에서는 이미지가 잘나오는데,
출력하면 이미지가 나오지 않네요.
다른 설정이 필요하나요?
1  COMMENTS
  • Profile
    정성훈 2002.03.15 23:45


    안녕하세요.
    어떤방법으로 하셧는지 잘 모르겠지만
    전 아래같이 햇는데 잘 되거든요?
    혹시나 해서 참고가 되셧음 하네요...

    필드타입은 Bool 이고 JPEG 직는 부분입니다.

    procedure TACG10F0R.DetailBand1BeforePrint(Sender: TQRCustomBand;
      var PrintBand: Boolean);
    var
       aJpeg : TJpegImage;
       Buffer: PChar;
       MemSize: Integer;
       BStream : TStream;
    begin
      if  DataSet.FieldByName('GYUL_DATE').AsString <> '' then
      Begin
       QRImage1.Picture := nil;
       BStream := DataSet.CreateBlobStream(DataSet.FieldByName('HSIN_SIGN'),bmRead);
       MemSize := BStream.Size;
       if MemSize = 0 then
          Exit;
       Inc(MemSize);
       Buffer := AllocMem(MemSize);
       try
           BStream.Read(Buffer^, MemSize);
           BStream.Position := 0;
           aJpeg := TJPEGImage.Create;
           try
             aJpeg.LoadFromStream(BStream);
             QRImage1.Picture.Assign(aJpeg);
           finally
             aJpeg.Free;
           end;
       finally
           FreeMem(Buffer, MemSize);
       end;
      End
      else
       QRImage1.Picture := Nil;
    end;