퀵리포트(Quick Report)에 사진을 출력하는 델파이 코드

[험프리]

이 문서의 목적

오라클, SQL 서버 등 DBMS의 Blob 컬럼 안에 저장된 이미지 데이터를 퀵리포트 보고서에 출력하는 코드를 제시하고 설명한다.

 

 

퀵리포트 폼의 화면 구성

그림1. 위에 선택된 사각형인 TQRImage1에 도서 표지 이미지가 표현되도록 한다.

이 예제에서는 퀵리포트에서 제공하는 이미지 컴포넌트 2 가지 중 TQRImage 컨트롤을 사용한다.

• 참고: 퀵리포트에서 제공하는 이미지 표현 컴포넌트 2 가지
  • TQRImage: JPEG, GIF, PNG 등 다양한 형식 지원
  • TQRDBImage: 비트맵 형식 데이터만 가능

 

퀵리포트 폼에 이미지 데이터를 출력하는 델파이 코드

  private
    { Private declarations }
    FWicImage: TWICImage; //다양한 포맷을 지원하기 위해 사용
    FMemoryStream: TMemoryStream;
  public
    { Public declarations }
  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); // BLOB 데이터는 TBlobField 클래스로 전환하여 읽는다
  if FMemoryStream.Size = 0 then
    Exit;
  FWicImage.LoadFromStream(FMemoryStream); //다양한 이미지 형식을 지원하기 위해 TWICImage에 넣고나서
  QRImage1.Picture.Assign(FWicImage); // TQRImage에 할당한다
end;

 

관련된 글:

• BLOB 컬럼에 (이미지 등의)데이터 읽고 쓰기
• TWICImage