델파이 윈도우 앱 샘플 – BLOB 스트림을 내/외부에서 쉽게 사용하기

2020-12-15
Posted by: Narae Kim
Categories: 기술자료, 메인 노출

댓글 없음

BlobStreams 샘플을 통해 파이어닥을 활용한 BLOB 스트리밍 기술 활용 방안을 확인해보세요. 외부 스트리밍과 내부 스트리밍을 모두 구현하는 방법을 알 수 있습니다.

다운로드 위치

Start | Programs | Embarcadero RAD Studio Sydney | Samples 경로에서 확인할 수 있습니다:
- 프로젝트명: Object PascalDatabaseFireDACSamplesComp LayerTFDQueryBlobStreams
서브버전 리파지토리:
- 깃허브 리파지토리에서 델파이 코드 샘플을 확인할 수 있습니다.

샘플 활용 방법

위 경로에서 BlobStreams.dproj 프로젝트를 찾아서 엽니다.
실행을 위해 F9 버튼 또는 Run > Run 메뉴를 실행합니다.

사용하는 파일들

델파이에서 활용할 파일	포함된 내용
BlobStream.dproj BlobStreams.dpr	프로젝트
fBlobStr.pas fBlobStr.fmx	메인 폼

구현하기

샘플을 실행하기 전에, 주요 컴포넌트들을 먼저 확인해보겠습니다. 오브젝트 인스펙터에서 디자인할 때 사용된 컴포넌트들을 확인할 수 있습니다:

두 개의 TFDQuery – 각각 qSelect, qInsert 라는 이름으로 되어 있습니다. 이 컴포넌트들은 SQL 쿼리를 실행하는 데이터셋을 구현하는데 사용합니다. 다음과 같은 설정이 필요합니다:
- DBMS 연결을 위해 파이어닥(FireDAC)의 연결 속성을 지정합니다. 두 컴포넌트 모두 FDConnection1로 설정하세요.
- SQL 속성을 설정해줍니다. 쿼리 실행을 위한 SQL 구문은 다음과 같이 지정해주세요.
  - qSelect의 SQL 속성은 select * from {id FDQA_Blob} 으로 설정합니다.
  - qInsert의 SQL 속성은 insert into {id FDQA_Blob} (blobdata) values (:blobdata)
- qInsert.Param[0] 을 설정해줍시다:
  - Name 속성은 BLOBDATA 로 해주세요.
  - DataType 속성은 BLOB 데이터 타입 중 하나로 설정합니다. 이 샘플에서는 ftBlob 으로 해줍시다.
  - ParamType 속성은 ptInput 으로 설정합니다. 스트림이 데이터베이스 BLOB 값에 기록되고 읽힌다는 의미입니다.
  - StreamMode 속성은 smOpenRead 로 설정합니다. 이 설정값이 기본값입니다. 스트림이 데이터베이스 BLOB 값을 읽는데 사용된다는 의미입니다.
- TDataSource 이름은 DataSource1로 설정합니다. 이 컴포넌트는 폼에서 데이터 관련 컨트롤과 데이터셋 컴포넌트 사이의 인터페이스를 제공합니다. 이 샘플에서는 데이터셋과 DBMemo1로 이름을 설정한 TDBMemo간의 커뮤니케이션을 위해 사용됩니다. DBMemo1은 데이터셋의 blobdata 필드를 보여줍니다. 이를 위해서는 다음과 같은 설정을 해주셔야 합니다:
  - DataSource의 DataSet 속성은 qSelect 로 설정합니다.
  - DBMemo1의 DataSource 속성은 DataSource1 로 설정합니다.
  - DBMemo1의 DataField 속성은 blobdata 로 설정합니다.

주요 컴포넌트들을 설정하고 나면, 애플리케이션을 실행할 수 있습니다. 이제 세 개의 버튼들을 설정해볼까요?

데이터 준비 버튼. 이 버튼에는 OnClick 이벤트를 설정해줍니다. TFileStream.Create 메소드를 사용할텐데요. 파일에 문자열을 쓰기위해 파일 스트림을 인스턴스화할 것입니다.
인서트 버튼 (외부 스트림). 이 버튼에 OnClick 이벤트를 설정해줍니다. 외부 스트리밍을 구현해줄 것입니다. 외부 스트림은 애플리케이션에 의해 파이어닥으로 제공되는 것입니다 (외부에서 파이어닥으로). 그럼 파이어닥이 이 스트림을 읽게됩니다.
인서트 버튼 (내부 스트림). 이 버튼에 OnClick 이벤트를 설정해줍니다. 내부 스트림이 파이어닥에 의해서 애플리케이션으로 넘어가게 됩니다 (내부에서 파이어닥으로). 그러면 애플리케이션이 스트림을 읽어오게 됩니다. 샘플에서의 설정은 다음과 같이 해주세요:
StarTransaction 메소드를 사용해 필수 트랜잭션을 시작합니다.
DataStyle 파라메터를 ftStream 으로 설정합니다.
StreamMode 파라메터를 smOpenWrite로 설정해 데이터베이스 BLOB 값을 작성합니다.
ExecSQL 메소드를 사용해 SQL 커맨드를 실행합니다. 내부 스트림 참조값을 반환해줄 것입니다.
외부 스트림 참조값을 작성합니다.
CloseStreams 메소드를 불러와 데이터베이스 API 버퍼를 플러시하고 내부 스트림을 닫습니다.
Commit 메소드를 사용해 트랜잭션을 종료합니다.