아래는 델코의 하영재님의 글을 갈무리 한것입니다.



참고하세요....



Blob 필드에서 불러오기 3가지 방법





1. TBlobField로 정의된 경우...



procedure TForm1.Button1Click(Sender: TObject);

begin

Image1.Picture.Bitmap.Assign(Table1Bitmap);

end;



2. Fields Property를 이용...



procedure TForm1.Button1Click(Sender: TObject);

begin

Image1.Picture.Bitmap.Assign(TBLOBField(Table1.Fields[1]));

end;



3. TBlobField로 정의 되어 있고 TBitmap을 이용...



procedure TForm1.Button2Click(Sender: TObject);

var

B: TBitmap;

begin

B := TBitmap.Create;

try

B.Assign(Table1Bitmap);

Image1.Picture.Bitmap.Assign(B);

finally

B.Free;

end;

end;



--------------------------------------------------------------------------------

Blob 필드에 그림 넣기 3가지 방법



1. 클립보드를 이용하기...



procedure TForm1.Button1Click(Sender: TObject);

var

C: TClipboard;

begin

C := TClipboard.Create;

try

if Clipboard.HasFormat(CF_BITMAP) then

DBImage1.PasteFromClipboard

else

ShowMessage('Clipboard does not contain a bitmap!');

finally

C.Free;

end;

end;





2. 파일로 부터 직접 읽어 오기...



procedure TForm1.Button2Click(Sender: TObject);

begin

Table1Bitmap.LoadFromFile(

'c:delphiimagessplash16colorconstruc.bmp');

end;





3. TBitmap을 이용하기...



procedure TForm1.Button3Click(Sender: TObject);

var

B: TBitmap;

begin

B := TBitmap.Create;

try

B.LoadFromFile('c:delphiimagessplash16colorathena.bmp');

DBImage1.Picture.Assign(B);

finally

B.Free;

end;

end;





김근영 wrote:

> 저는 지금 interbase를 이용하여 db프로그램을 만들고 있습니다.

> 그런데..다름아닌..interbase에서 지원하는 데이타타입중,

> blob에 대해서 궁금합니다.

> blob에 이미지를 집어 넣을려고 하는데, 그림이 들어가질 않습니다.

> 아니, 더 자세히 말하자면, 들어갔는지 조차도 모르겠습니다..

> 이책, 저책, 이사이트, 저사이트를 뒤져봤지만, 시원한 대답이 없었습니다.

> 그 사이트에 나와있는 방법들을 흉내를 내보았는데 저는 잘 안되더라구요..

> 이 blob에 이미지를 정말 집어 넣을수 없는지, 정말 넣을수 있다면,

> 자세한 설명을 해주셨으면 좋겠습니다..

> 자세한 설명이 나와있는 사이트를 소개시켜주셔도 고맙겠구요...

> 부탁드리겠습니다.

> 급한데..답변을 안해주시더라구요...

> 아신다면..꼭 좀 답변을 부탁드리겠습니다.