이 예에서는 데이터베이스의 이미지 파일에 액세스하는 방법을 보여줍니다.
TListBox 컴포넌트, TImage 컴포넌트, TTable 컴포넌트를 폼에 추가합니다. 설계된 메인 인터페이스는 그림 1에 나와 있습니다.
그림 1 기본 인터페이스
이 시스템에서는 Paradox 7을 기반으로 하는 새로운 데이터베이스 Image.db를 설계해야 합니다. 그림 2는 완성된 Image.db 데이터베이스를 보여줍니다.
그림 2 설계된 데이터베이스
프로그램 테스트를 용이하게 하기 위해 Image.db 데이터베이스는 예제 프로그램이 있는 경로에 저장됩니다.
TTable 구성 요소의 TableName 속성을 Image.db로 설정하고 Active 속성을 True로 설정합니다.
프로그램 실행 시작 시 먼저 Image.db 데이터베이스에 레코드가 있는지 확인합니다. 레코드가 없으면 다음 코드를 실행하여 Image.db 데이터베이스에 "bird.bmp" 파일을 추가합니다.
절차 TForm1.FormCreate(Sender: TObject);
var
mem:TMemoryStream;
시작하다
Table1.Eof 및 Table1.Bof인 경우
시작하다
Table1을 사용하면
시작하다
끼워 넣다;
FieldByName('이름').AsString:='새';
mem:=TMemoryStream.Create();
mem.LoadFromFile('bird.bmp');
TBlobField(FieldByName('Data')).LoadFromStream(mem);
우편;
끝;
끝;
끝;
그런 다음 동일한 방법으로 "sample.wav", "leaf.wav" 및 "lotus" 이미지 파일을 Image.db 데이터베이스에 순차적으로 추가합니다.
마지막으로 다음 코드를 통해 Image.db 데이터베이스에 저장된 파일 이름을 양식의 TListBox 구성 요소에 추가합니다.
Table1을 사용하면
시작하다
첫 번째;
Eof가 아닌 동안
시작하다
ListBox1.Items.Add(FieldByName('이름').AsString);
다음;
끝;
끝;
프로그램 실행 중 사용자가 폼의 TListBox 컴포넌트에서 이미지 파일을 선택하면 프로그램은 TTable 컴포넌트의 First 메소드를 사용하여 데이터 테이블의 첫 번째 레코드를 현재 레코드로 설정한 후 순회합니다. 루프를 통해 데이터베이스. 특정 레코드의 Name 필드 내용이 사용자가 선택한 내용과 동일하면 레코드의 Data 필드에 있는 이미지 정보를 읽어서 해당 이미지를 폼의 TImage 컴포넌트에 표시합니다. 코드는 다음과 같습니다:
절차 TForm1.ListBox1Click(Sender: TObject);
var
mem:TStream;
bmp:TBitmap;
시작하다
Table1을 사용하면
시작하다
첫 번째;
Eof가 아닌 동안
시작하다
if FieldByName('Name').AsString=ListBox1.Items[ListBox1.ItemIndex] then
부서지다;
다음;
끝;
bmp:=TBitmap.Create;
mem:=CreateBlobStream(FieldByName('Data'),bmRead);
mem.위치:=0;
bmp.LoadFromStream(mem);
self.Image1.Picture.Assign(bmp);
bmp.Free;
mem.Free;
끝;
끝;
프로그램 코드는 다음과 같습니다.
단위 Unit1;
인터페이스
용도
Windows, 메시지, SysUtils, 변형, 클래스, 그래픽, 컨트롤, 양식,
대화 상자, StdCtrls, DB, DBTables, mmsystem, ExtCtrls;
유형
TForm1 = 클래스(TForm)
ListBox1: TListBox;
표1: T테이블;
이미지1: T이미지;
절차 FormCreate(보내는 사람: TObject);
절차 ListBox1Click(보내는 사람: TObject);
사적인
{비공개 선언}
공공의
{공개 선언}
끝;
var
Form1: TForm1;
구현
{$R *.dfm}
절차 TForm1.FormCreate(Sender: TObject);
var
mem:TMemoryStream;
시작하다
Table1.Eof 및 Table1.Bof인 경우
시작하다
Table1을 사용하면
시작하다
끼워 넣다;
FieldByName('이름').AsString:='새';
mem:=TMemoryStream.Create();
mem.LoadFromFile('bird.bmp');
TBlobField(FieldByName('Data')).LoadFromStream(mem);
우편;
끼워 넣다;
FieldByName('이름').AsString:='샘플';
mem:=TMemoryStream.Create();
mem.LoadFromFile('sample.bmp');
TBlobField(FieldByName('Data')).LoadFromStream(mem);
우편;
끼워 넣다;
FieldByName('이름').AsString:='잎';
mem:=TMemoryStream.Create();
mem.LoadFromFile('leaf.bmp');
TBlobField(FieldByName('Data')).LoadFromStream(mem);
우편;
끼워 넣다;
FieldByName('이름').AsString:='연꽃';
mem:=TMemoryStream.Create();
mem.LoadFromFile('Lotus.bmp');
TBlobField(FieldByName('Data')).LoadFromStream(mem);
우편;
mem.Free;
끝;
끝;
Table1을 사용하면
시작하다
첫 번째;
Eof가 아닌 동안
시작하다
ListBox1.Items.Add(FieldByName('이름').AsString);
다음;
끝;
끝;
끝;
절차 TForm1.ListBox1Click(Sender: TObject);
var
mem:TStream;
bmp:TBitmap;
시작하다
Table1을 사용하면
시작하다
첫 번째;
Eof가 아닌 동안
시작하다
if FieldByName('Name').AsString=ListBox1.Items[ListBox1.ItemIndex] then
부서지다;
다음;
끝;
bmp:=TBitmap.Create;
mem:=CreateBlobStream(FieldByName('Data'),bmRead);
mem.위치:=0;
bmp.LoadFromStream(mem);
self.Image1.Picture.Assign(bmp);
bmp.Free;
mem.Free;
끝;
끝;
끝.
파일을 저장한 후 F9 키를 눌러 프로그램을 실행하면 그림 3과 같다.
TListBox 컴포넌트에서 항목을 선택하면 그림 4와 같이 해당 이미지 파일이 표시됩니다.
그림 3 프로그램 실행 초기 화면