Q&A
- Reference를 Release해도 Garbage가 생깁니다.
Font를 생성하여 곧바로 OleFont로 사용하려고
다음과 같은 코드를 짰습니다.
procedure TForm1.Button1Click(Sender: TObject);
var
I: Integer;
OleFont: IFontDisp;
begin
for I := 0 to 50 do begin
GetOleFont(TFont.Create, OleFont);
...
end;
end;
그런데 나중에 Garbage가 과연 생기지 않을 수 있는가 알아보기 위해서
다음과 같은 테스트를 했습니다.
procedure TForm1.Button1Click(Sender: TObject);
var
I: Integer;
OleFont: IFontDisp;
Mem: TMemoryStatus;
begin
Mem.dwLength := sizeof(Mem);
for I := 0 to 50 do begin
GetOleFont(TFont.Create, OleFont);
OleFont._Release;
OleFont := nil;
end;
GlobalMemoryStatus(Mem);
Label1.Caption := IntToStr(Mem.dwAvailPhys);
end;
그런데 이걸 테스트해보니 꾸준히 사용가능한 물리적 메모리의 양이
감소합니다.
그렇지만, for문 안에서 아무것도 하지 않아도
일시적으로는 감소하는 것도 볼 수 있었습니다.
그래서 Mem.dwAVailPhys가 과연 테스트에 적합한 것이었는지,
정말 Garbage가 발생하는 것인지, 발생한다면 무엇을 잘못한 것인지,
발생한다면 Garbage가 생기지 않게 하려면 도대체 어떻게 해야 하는지
등을 알고 싶습니다. (제 생각엔 저렇게 코딩했을때 Garbage가 생기지
않을 줄 알았습니다.)
위와 같이 하지 않고 다음과 같이 하면
Fnt := TFont.Create;
GetOleFont(Fnt, OleFont);
....
Fnt.Free;
이때는 메모리가 새는 것 같진 않더군요...
하지만 올바른 사용법인지 궁금합니다.
고견을 부탁드리겠습니다.
다음과 같은 코드를 짰습니다.
procedure TForm1.Button1Click(Sender: TObject);
var
I: Integer;
OleFont: IFontDisp;
begin
for I := 0 to 50 do begin
GetOleFont(TFont.Create, OleFont);
...
end;
end;
그런데 나중에 Garbage가 과연 생기지 않을 수 있는가 알아보기 위해서
다음과 같은 테스트를 했습니다.
procedure TForm1.Button1Click(Sender: TObject);
var
I: Integer;
OleFont: IFontDisp;
Mem: TMemoryStatus;
begin
Mem.dwLength := sizeof(Mem);
for I := 0 to 50 do begin
GetOleFont(TFont.Create, OleFont);
OleFont._Release;
OleFont := nil;
end;
GlobalMemoryStatus(Mem);
Label1.Caption := IntToStr(Mem.dwAvailPhys);
end;
그런데 이걸 테스트해보니 꾸준히 사용가능한 물리적 메모리의 양이
감소합니다.
그렇지만, for문 안에서 아무것도 하지 않아도
일시적으로는 감소하는 것도 볼 수 있었습니다.
그래서 Mem.dwAVailPhys가 과연 테스트에 적합한 것이었는지,
정말 Garbage가 발생하는 것인지, 발생한다면 무엇을 잘못한 것인지,
발생한다면 Garbage가 생기지 않게 하려면 도대체 어떻게 해야 하는지
등을 알고 싶습니다. (제 생각엔 저렇게 코딩했을때 Garbage가 생기지
않을 줄 알았습니다.)
위와 같이 하지 않고 다음과 같이 하면
Fnt := TFont.Create;
GetOleFont(Fnt, OleFont);
....
Fnt.Free;
이때는 메모리가 새는 것 같진 않더군요...
하지만 올바른 사용법인지 궁금합니다.
고견을 부탁드리겠습니다.
2
COMMENTS
-
-
답변 감사합니다.
GetOleFont보니까 Font 개체에 Adapter를 붙여서 IFontDisp를 돌려주는 식이라,
IFontDisp만 Release되면 Font 개체도 Free될 줄 믿었습니다.
하지만 안 되는 것 같네요. (쩝~! 안타깝습니다)
비슷한 식으로 다른 개체를 CreateOleObject하고
Variant 변수에 받아가지고 다시 그 변수에 varNull을 대입하는
for문을 돌려봤습니다.
이건 쓰레기가 생기지 않는 것 같네요.
오늘 저의 삽질이 훗날 다른 사람의 터 파기가 되겠죠?
전 오늘 웬일인지 두통이 심하군요.
건강하시기 바랍니다.
====================================================================
최용일 wrote:
> 안녕하세요. 최용일입니다.
>
> GetOleFont(TFont.Create, OleFont); <-----
>
> 위 부분에서 TFont를 생성해서 인터페이스를 얻었는데 인터페이스를 Release한다고 해도
>
> TFont.Create로 생성된 TFont객체는 Free가 안되어있어서 Garbage가 생기는것 같습니다.
>
> ^^ 항상 즐코하세요.
>
> 김일영 wrote:
> > Font를 생성하여 곧바로 OleFont로 사용하려고
> > 다음과 같은 코드를 짰습니다.
> >
> > procedure TForm1.Button1Click(Sender: TObject);
> > var
> > I: Integer;
> > OleFont: IFontDisp;
> > begin
> > for I := 0 to 50 do begin
> > GetOleFont(TFont.Create, OleFont);
> > ...
> > end;
> > end;
> >
> > 그런데 나중에 Garbage가 과연 생기지 않을 수 있는가 알아보기 위해서
> > 다음과 같은 테스트를 했습니다.
> >
> > procedure TForm1.Button1Click(Sender: TObject);
> > var
> > I: Integer;
> > OleFont: IFontDisp;
> > Mem: TMemoryStatus;
> > begin
> > Mem.dwLength := sizeof(Mem);
> > for I := 0 to 50 do begin
> > GetOleFont(TFont.Create, OleFont);
> > OleFont._Release;
> > OleFont := nil;
> > end;
> > GlobalMemoryStatus(Mem);
> > Label1.Caption := IntToStr(Mem.dwAvailPhys);
> > end;
> >
> > 그런데 이걸 테스트해보니 꾸준히 사용가능한 물리적 메모리의 양이
> > 감소합니다.
> > 그렇지만, for문 안에서 아무것도 하지 않아도
> > 일시적으로는 감소하는 것도 볼 수 있었습니다.
> >
> > 그래서 Mem.dwAVailPhys가 과연 테스트에 적합한 것이었는지,
> > 정말 Garbage가 발생하는 것인지, 발생한다면 무엇을 잘못한 것인지,
> > 발생한다면 Garbage가 생기지 않게 하려면 도대체 어떻게 해야 하는지
> > 등을 알고 싶습니다. (제 생각엔 저렇게 코딩했을때 Garbage가 생기지
> > 않을 줄 알았습니다.)
> >
> > 위와 같이 하지 않고 다음과 같이 하면
> >
> > Fnt := TFont.Create;
> > GetOleFont(Fnt, OleFont);
> > ....
> > Fnt.Free;
> >
> > 이때는 메모리가 새는 것 같진 않더군요...
> > 하지만 올바른 사용법인지 궁금합니다.
> >
> > 고견을 부탁드리겠습니다.
> >
(NOTICE) You must be logged in to comment on this post.
-
- 한시바삐!!
- •
- 2000.05.03 06:28
- 1 COMMENTS
- /
- 0 LIKES
-
공성환•2000.05.03 08:11한시바삐!! wrote: > 어떤 테이블에 숫자가 들어오고, 그 숫자들이 계속 들어오면 누적되어 옆테이블에 입...
-
- 이영범
- •
- 2000.05.03 06:24
- 2 COMMENTS
- /
- 0 LIKES
-
김태형•2000.05.03 18:57입력했던 레코드가 사라지는 것은 BDE가 사용하는 캐쉬 때문입니다. 그러므로 레코드가 Post될 때마다 하...
-
오현수•2000.05.03 07:32이영범 wrote: > 저는 파라독스 DB를 사용하고 있습니다. > 그런데 델파이 프로그램을 사용하다가 다운이...
-
- 이영범
- 2000.05.03 06:22
- 0 COMMENTS
- /
- 0 LIKES
-
- usb포트와 통신할 수
- 2000.05.03 05:17
- 0 COMMENTS
- /
- 0 LIKES
-
- 어린왕자
- •
- 2000.05.03 04:35
- 8 COMMENTS
- /
- 0 LIKES
-
최용일•2000.05.03 04:44
-
어린왕자•2000.05.03 05:38
-
최용일•2000.05.03 05:45
-
어린왕자•2000.05.03 05:55
-
최용일•2000.05.03 06:04
-
어린왕자•2000.05.03 06:09
-
어린왕자•2000.05.03 06:06
- • • •
-
- 최진석
- •
- 2000.05.03 04:30
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2000.05.03 05:22안녕하세요. 최용일입니다. 아마도 다른것은 다되는데 시차계산만 안되시는 것 같습니다. var Cur...
-
- 델맨
- •
- 2000.05.03 04:13
- 1 COMMENTS
- /
- 0 LIKES
-
한창희•2000.05.03 07:08델맨 wrote: > project xxx.exe raised exception class edbengineerror > with message 'key violation....
-
- 김일영
- •
- •
- 2000.05.03 03:12
- 2 COMMENTS
- /
- 1 LIKES
Font를 생성하여 곧바로 OleFont로 사용하려고 다음과 같은 코드를 짰습니다. procedure TForm1.Button1Click(Sender: TObject); var I: Integer; OleFont: IFontDisp; begin for I := 0 to 50 do begin GetOleFont(TFont.Create, OleFont...-
최용일•2000.05.03 03:39안녕하세요. 최용일입니다. GetOleFont(TFont.Create, OleFont); Font를 생성하여 곧바로 OleFont로 사...
-
김일영•2000.05.03 05:32답변 감사합니다. GetOleFont보니까 Font 개체에 Adapter를 붙여서 IFontDisp를 돌려주는 식이라, IFontD...
-
- 정재헌
- •
- 2000.05.03 03:12
- 1 COMMENTS
- /
- 0 LIKES
-
까마귀•2000.05.03 03:44정재헌 wrote: > 문제는 간단한데 방법을 모르겠습니다. > > 사원 테이블에서 퇴사를 하면 퇴직 사원 ...
-
- 정수현
- •
- 2000.05.03 03:04
- 1 COMMENTS
- /
- 0 LIKES
-
김일영•2000.05.03 04:19sql이라 함은 TQuery.SQL을 말씀하시는 것 같군요. 이건 TStrings입니다. string의 리스트에다 메소드를 ...
-
- 조광석
- •
- 2000.05.03 03:03
- 2 COMMENTS
- /
- 0 LIKES
-
윤종필•2000.09.23 18:49안녕하세요. 이거 읽어 보실지 모르겠네요. 저도 꼭 같은 문제로 고민하고 있습니다. 도무지 원인을 모르...
-
aaa•2000.05.03 03:21안녕하세욧..^^ 퀵레포트에서 네트웍 출력을 하셨는지 궁굼하군요.. 퀵레포트에서 네트웍으로 프린팅...
-
- 지승현
- •
- 2000.05.03 02:41
- 1 COMMENTS
- /
- 0 LIKES
-
조광석•2000.05.03 03:12지승현 wrote: > 안녕하세요. 고수님들. > Maskedit를 쓰다가 의문이 생겨 이렇게 문을 차고 들어왔습니...
-
- 구철수
- 2000.05.03 02:40
- 0 COMMENTS
- /
- 0 LIKES
-
- 어린왕자
- 2000.05.03 02:29
- 0 COMMENTS
- /
- 0 LIKES
-
- 까마귀
- •
- 2000.05.03 02:23
- 1 COMMENTS
- /
- 0 LIKES
-
윤석천•2000.05.03 02:36그러시다면, updatesql을 쓰실 수 있는 것으로 기억하는데요? 혹시 design시 Tupdatesql에서 insert, dele...
-
- 정수현
- •
- 2000.05.03 02:16
- 2 COMMENTS
- /
- 0 LIKES
-
장지용•2000.05.03 03:34정수현 wrote: > 시퀀스를 싸다보니 자릿수가 안 맞고 원하는 값이 나타나지 않아서요. > 코드의 값이 자...
-
까마귀•2000.05.03 02:29정수현 wrote: > 시퀀스를 싸다보니 자릿수가 안 맞고 원하는 값이 나타나지 않아서요. > 코드의 값이 자...
-
- 봉갈천
- •
- 2000.05.03 02:10
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2000.05.03 03:07안녕하세요. 최용일입니다. 전역핫키를 사용하세요. 아래 찾아보시면 예제가 많이 있습니다. ^^ 항상...
-
- 이인숙
- •
- 2000.05.03 02:09
- 3 COMMENTS
- /
- 0 LIKES
-
최용일•2000.05.03 03:54안녕하세요. 최용일입니다. ListBox1.Sorted := True; ^^ 항상 즐코하세요. 이인숙 wrote: > ...
-
이인숙•2000.05.03 04:32최용일 wrote: > 안녕하세요. 최용일입니다. > > ListBox1.Sorted := True; > > ^^ 항상 즐코하세...
-
최용일•2000.05.03 05:34안녕하세요. 최용일입니다. 제가 이해력이 딸려서 수직정렬이란 말을 이해를 못하겠군요. 문자가 수...
-
- 어린왕자
- •
- 2000.05.03 02:02
- 1 COMMENTS
- /
- 0 LIKES
-
Jae Lee•2000.06.02 08:10* StringGrid 의 키를 누를시의 이벤트를 사용하시기 바랍니다. 다음은 숫자와 +,- 사인, 그리고 백스페이...
-
- 어린왕자
- •
- 2000.05.03 01:57
- 1 COMMENTS
- /
- 0 LIKES
-
조규춘•2000.05.03 02:07어린왕자 wrote: > 안녕하세요..요즘 엑세스디비가지구 질절머리나게 가지구 노는 어린왕자입니다.. > 근...
GetOleFont(TFont.Create, OleFont); <-----
위 부분에서 TFont를 생성해서 인터페이스를 얻었는데 인터페이스를 Release한다고 해도
TFont.Create로 생성된 TFont객체는 Free가 안되어있어서 Garbage가 생기는것 같습니다.
^^ 항상 즐코하세요.
김일영 wrote:
> Font를 생성하여 곧바로 OleFont로 사용하려고
> 다음과 같은 코드를 짰습니다.
>
> procedure TForm1.Button1Click(Sender: TObject);
> var
> I: Integer;
> OleFont: IFontDisp;
> begin
> for I := 0 to 50 do begin
> GetOleFont(TFont.Create, OleFont);
> ...
> end;
> end;
>
> 그런데 나중에 Garbage가 과연 생기지 않을 수 있는가 알아보기 위해서
> 다음과 같은 테스트를 했습니다.
>
> procedure TForm1.Button1Click(Sender: TObject);
> var
> I: Integer;
> OleFont: IFontDisp;
> Mem: TMemoryStatus;
> begin
> Mem.dwLength := sizeof(Mem);
> for I := 0 to 50 do begin
> GetOleFont(TFont.Create, OleFont);
> OleFont._Release;
> OleFont := nil;
> end;
> GlobalMemoryStatus(Mem);
> Label1.Caption := IntToStr(Mem.dwAvailPhys);
> end;
>
> 그런데 이걸 테스트해보니 꾸준히 사용가능한 물리적 메모리의 양이
> 감소합니다.
> 그렇지만, for문 안에서 아무것도 하지 않아도
> 일시적으로는 감소하는 것도 볼 수 있었습니다.
>
> 그래서 Mem.dwAVailPhys가 과연 테스트에 적합한 것이었는지,
> 정말 Garbage가 발생하는 것인지, 발생한다면 무엇을 잘못한 것인지,
> 발생한다면 Garbage가 생기지 않게 하려면 도대체 어떻게 해야 하는지
> 등을 알고 싶습니다. (제 생각엔 저렇게 코딩했을때 Garbage가 생기지
> 않을 줄 알았습니다.)
>
> 위와 같이 하지 않고 다음과 같이 하면
>
> Fnt := TFont.Create;
> GetOleFont(Fnt, OleFont);
> ....
> Fnt.Free;
>
> 이때는 메모리가 새는 것 같진 않더군요...
> 하지만 올바른 사용법인지 궁금합니다.
>
> 고견을 부탁드리겠습니다.
>