음....



MDIForm에서 Childform을 동적 생성하고 삭제하고 있습니다.

일반적인 생성과 삭제는 별 문제가 없었는데, 다음의 경우에

에러가 생기네요.

.

.

procedure MainForm.N1click(Sender:Tobject);

Var form2: TForm2;

begin

if MessageDlg('사용중인 창을 닫습니다', mtConfirmation, [mbYes, mbNo],

0) = mrYes then

begin

form1.close;



form2 := TForm2.Creat(Application);

form2.show;

end;

여기에서 form1.close에서 에러가 납니다.



물론 form1의 Onclose 이벤트에 Action := Cafree를 적어 주었고,

form1은 동적 생성한 폼입니다.



MainForm은 fsMDIForm 입니다.



제가 델파이를 안쓰던 기간이 꽤 길어서 잊어 먹은게 많걸랑요.

그래서 에러가 나는 이유를 도저히 모르겠네요.



여러 고수님들의 조언 부탁드립니다.



꾸벅꾸벅...

표경나 wrote:

> 오라클과 델파이를 연동해서 클라이언트용 애플리케이션을 만들고 있는중입니다.

> 그런데 오라클의 데이터 타입 long으로 정의된 필드에 아이콘파일을 넣고자 합니다.

> 델파이에서 blob파일을 다루는 방법을 구체적으로 알고 싶습니다.

> Blob파일을 오라클에 밀어 넣는 방법은 알겠는데

> Blob파일을 image 콤포넌트에 띄우지를 못하고 있습니다.

> 따라서 밀어 넣은게 과연 들어갔는지 안들어갔는지 확인도 안되고..

> Table에는 SN 이라는 number type 필드와 Image라는 long type 필드 둘입니다.

> 이 데이터들을 불러와서 이미지콤포넌트에 띄우고

> 저장하는 구체적인 방법을 알고 싶습니다.

> 가능하다면.. 짧은 예제를 부탁드릴께요.

>



음냐...long type이란 long raw type을 말씀하시는 거 같군요...

음....오라클에 밀어 넣는 것은 되었다고 하셨는데...

불러 들이는 것을 모르신다고요...

아래에 얘제를 첨부 하겠습니다...참고하세요....





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;

김태균 께서 말씀하시기를...

> 음....

>

> MDIForm에서 Childform을 동적 생성하고 삭제하고 있습니다.

> 일반적인 생성과 삭제는 별 문제가 없었는데, 다음의 경우에

> 에러가 생기네요.

> .

> .

> procedure MainForm.N1click(Sender:Tobject);

> Var form2: TForm2;

> begin

> if MessageDlg('사용중인 창을 닫습니다', mtConfirmation, [mbYes, mbNo],

> 0) = mrYes then

> begin

> form1.close;

>

> form2 := TForm2.Creat(Application);

> form2.show;

> end;

> 여기에서 form1.close에서 에러가 납니다.

>

> 물론 form1의 Onclose 이벤트에 Action := Cafree를 적어 주었고,

> form1은 동적 생성한 폼입니다.

>

> MainForm은 fsMDIForm 입니다.

>

> 제가 델파이를 안쓰던 기간이 꽤 길어서 잊어 먹은게 많걸랑요.

> 그래서 에러가 나는 이유를 도저히 모르겠네요.

>

> 여러 고수님들의 조언 부탁드립니다.

>

> 꾸벅꾸벅...



안녕하세요.



혹시 폼1을 지역변수로 선언한뒤 동적 생성시켜주신건 아닌지요...그리고 사용할때는 전역적인 폼1을 사용한건 아닌지요..



예를 들어...



procedure MainForm.N1click(Sender:Tobject);

Var

form2: TForm2; // 지역변수라서 프로시져가 끝날때 이 변수는 더이상 엑세스할수 없습니다.

begin

form2 := TForm2.Create(Application);

...

...

...

end;



procedure MainForm.Test;

begin

form2.Caption := '111'; <<= 엑세스 바이올레이션이 납니다.

end;