Jump to content
과거의 기술자료(읽기 전용): https://tech.devgear.co.kr ×
과거의 기술자료(읽기 전용): https://tech.devgear.co.kr

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


Recommended Posts

이 문서의 목적

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

 

qrimage_2.png

 

퀵리포트 폼의 화면 구성

QR_IMAGE.png
그림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;

 

관련된 글:

 

이 댓글 링크
다른 사이트에 공유하기

이 토의에 참여하세요

지금 바로 의견을 남길 수 있습니다. 그리고 나서 가입해도 됩니다. 이미 회원이라면, 지금 로그인하고 본인 계정으로 의견을 남기세요.

Guest
이 토픽(기고/질문)에 답하기

×   서식있는 텍스트로 붙여넣기.   Restore formatting

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   이전에 작성한 콘텐츠가 복원되었습니다..   편집창 비우기

×   You cannot paste images directly. Upload or insert images from URL.

×
×
  • Create New...

중요한 정보

이용약관 개인정보보호정책 이용규칙 이 사이트가 더 잘 작동하기 위해 방문자의 컴퓨터에 쿠키가 배치됩니다. 쿠키 설정 변경에서 원하는 설정을 할 수 있습니다. 변경하지 않으면 쿠키를 허용하는 것으로 이해합니다.