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

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

blob에 대해서 궁금합니다.

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

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

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

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

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

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

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

부탁드리겠습니다.

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

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

폼명을 변수로 해서 생성 후 캡션을 가져오시려고 하는것이면 이렇게 하세요.

만약 GoodForm이라는 폼(폼의 형은 TGoodForm)을 배열로 생성하려면..



var

Forms : array[0..10] of TGoodForm;



위는 전역변수여야 겠죠?

i라는 integer현 변수를 선언후~



for i := 0 to 10 do

begin

Forms[i] := TGoodForm.Create(Self);

Forms[i].Caption := IntToStr(i);

Forms[i].Show;

end;



위처럼 하면 Caption이 0 부터 10까지 있는 폼을 만들게 됩니다.



그리고 폼의 켭션은 그냥 가져오면 되겠져?



var

Cap : Array[0..10] of ShortString;

i : integer;

begin

for i := 0 to 10 do

Cap[i] := Forms[i].Captoin;

end;



이렇게 하면 다 가져오게 되죠.



물론 프로그램을 마칠때는 모두 Free해주는것 잊지 마시구요.





윤종구 께서 말씀하시기를...

> 프로젝트 파일에 존재하는 모든 form의 caption을 가지고 오려고 하는데

> 폼명을 변수로 해서 crate시키려고 하는데 않되더군요...

> 혹시 방법을 알고 계신분들은 가르쳐 주십시요....

> ......................................

>

>

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



참고하세요....



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에 이미지를 정말 집어 넣을수 없는지, 정말 넣을수 있다면,

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

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

> 부탁드리겠습니다.

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

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