[공유] 쿽레포트에 Blob 컬럼의 이미지 데이터로 이미지 출력하기

[험프리]

DBMS의 Blob 컬럼의 이미지 데이터를 퀵레포트 보고서에 출력하는 내용을 공유합니다.

[험프리]

(2016년 8월 답변으로, Quick Report 5.0.6 버전으로 작성된 내용입니다.)

쿽레포트에 사진을 출력하려면 TQRImage, TQRDBImage 2개의 컴포넌트를 이용할 수 있습니다.

TQRDBImage는 비트맵 데이터 출력만 지원하므로, 저는 JPEG, GIF, PNG 등을 지원하기 위해 TQRImage를 활용하는 방법을 안내합니다.

다음 코드는 Blob 컬럼으로 설정된 BOOK_THUMB의 데이터를 읽어 TQRImage에 표시하는 코드입니다.

// 선언부
  private
    FWicImage: TWICImage;
    FMemoryStream: TMemoryStream;
  end;
... 중략 ...
// 구현부
procedure TForm1.FormCreate(Sender: TObject);
begin
  FWicImage := TWICImage.Create;
  FMemoryStream := TMemoryStream.Create;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  FWicImage.Free;
  FMemoryStream.Free;
end;

procedure TForm1.FDQuery1AfterScroll(DataSet: TDataSet);
begin
  FMemoryStream.Clear;
  (FDQuery1.FieldByName('BOOK_THUMB') as TBlobField).SaveToStream(FMemoryStream);
  if FMemoryStream.Size = 0 then
    Exit;

  FWicImage.LoadFromStream(FMemoryStream);

  QRImage1.Picture.Assign(FWicImage);
end;

레코드 별로 이미지를 표시하기 위해 TFDQuery의 OnAfterScroll 이벤트에서 이미지를 불로오도록 구현했습니다.

필드를 TBlobField로 접근해 Stream으로 저장 후 TWICImage를 이용해 다양한 포맷을 지원했습니다.

위 코드로 출력한 결과는 다음과 같습니다.