새로운 글
새로운 덧글

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

 

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

(TQRDBImage는 비트맵 데이터만 출력할 수 있습니다.)

 

저는 JPEG, GIF, PNG 등을 지원하기 위해 TQRImage를 이용합니다.

 

아래 델파이 샘플은 BOOK_THUMB(Blob 컬럼)의 데이터를 읽어 TQRImage에 표시하는 내용입니다.

Blob 컬럼을 읽기 위해 TBlobField를 사용하고, TWICImage를 이용해 다양한 포맷을 지원합니다.

(BLOB 컬럼에서 (이미지 등의)데이터 읽고 쓰기: http://blog.hjf.pe.kr/437)

 

레코드 별로 이미지를 표시하기 위해 TFDQuery의 AfterScroll 이벤트에 이미지 불러오는 코드를 작성합니다.

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

  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);

  if FMemoryStream.Size = 0 then

    Exit;

  FWicImage.LoadFromStream(FMemoryStream);

  QRImage1.Picture.Assign(FWicImage);

end;

 

아래와 같이 보고서에 이미지를 출력할 수 있습니다.

번호 제목 글쓴이 날짜 조회 수
공지 [데브기어 컨설팅] 모바일 앱 & 업그레이드 마이그레이션 관리자 2017.02.06 132
공지 이 달의 기술자료 & 기술레터 관리자 2017.02.06 154
공지 데브기어 강의 - 2017년 5월~2017년 7월 관리자 2015.01.22 5240
공지 RAD Studio(Delphi, C++Builder) 시작하기 관리자 2015.06.30 7667
공지 RAD 스튜디오로 개발된 모바일 앱 사례(17년 5월 2일 업데이트) 험프리 2014.01.16 145002
748 [발표자료] REST API 웹서비스 연동 관리자 2017.05.29 29
747 [REST API][실습] REST API 클라이언트 개발하기(REST Client 이용) 험프리 2017.05.23 54
746 [REST API][실습] REST API 서버 개발하기(엔드포인트 구현, RAD 서버 이용) 험프리 2017.05.23 48
745 [REST API] REST API 이해하기 험프리 2017.05.23 61
744 델파이 코드 분석 도구 험프리 2017.05.16 97
743 애플 개발자 프로그램 구독하지 않고 XCode8을 설정해 iOS앱을 배포하는 방법 험프리 2017.05.15 85
742 안드로이드에서 커스텀 폰트 사용하기 - 델파이 10.2 도쿄 험프리 2017.05.15 50
741 [고객 사례- 조명, 델파이] 나이아가라 폭포 야간 조명 [1] 관리자 2017.05.10 211
740 [업데이트][핫픽스][10,2 도쿄] 툴체인 이슈 핫픽스 험프리 2017.05.10 102
739 [RAD서버] EMS 패키지 프로젝트 시작하기 험프리 2017.04.28 65
738 [RAD서버] EMS 서버 운영환경에 설치하기(독립형 실행파일) 험프리 2017.04.28 81
737 이 달의 기술자료 - 2017년 05월 file 험프리 2017.04.26 145
736 리눅스 서버용 GUI 응용프로그램 만들기(10.2 도쿄 & FMXLINUX 이용) 관리자 2017.04.25 202
735 [환경설정] 아마존 EC2 이용해 리눅스 서버 환경 구축하기 험프리 2017.04.20 149
734 [환경설정] 아마존 EC2 이용해 윈도우 서버 환경 구축하기 [1] 험프리 2017.04.13 171
733 [발표자료] What's NEW! RAD Studio 10.2 도쿄 험프리 2017.04.13 131
732 [고객 사례- 3D, 이미지스캐너, 델파이] mimix 3D 프로필 스캐너 관리자 2017.04.13 144
731 [RAD 서버] 비콘펜스 소개 및 데모(실내외 길찾기, 지역진입 감지하기) [1] 험프리 2017.04.13 100
730 [발표자료] 소개합니다! RAD Studio 10.2 도쿄 관리자 2017.04.06 178
729 이 달의 기술자료 - 2017년 04월 file 험프리 2017.03.30 185


광고 모듈이 설치되어 있지 않아 실행을 중단합니다..