이현수님 답변 감사합니다.
for문을 백만번 돌린 이유는 메모리 증, 감이 확연히 보이라고 그렇게 한것이었습니다.
그러면,
for문 안에 Application->Processmessage를 넣어서 테스트해보면 메세지 큐 오버플로우 현상인지 확인이 될것 같습니다.
지금 PC는 VC만 깔려 있어서리 확인을 할 수가 없네요...ㅜㅜ
월욜날 출근하면 바로 확인해 보겠습니다.
친절한 답변 감사드립니다. *^0^*
이현수 님이 쓰신 글 :
: SimpleTrace[0]이 TForm1과 동일한 스레드에 있네요.
: 따라서, Button1Click 메서드 안의 for 루프를 모두 돈 다음에
: 메시지 펌프 루프로 돌아가서 GetMessage를 호출해서,
: Button1Click 메서드 안에서 호출한 SimpleTrace의 AddTrace 메서드 안에서 PostMessage로 보낸,
: 메시지들을 받게 되어있는데 Button1Click 메서드 안의 for 루프를 도는 횟수가 무려 백만 번이나 되어서
: 메시지 큐가 오버플로우되면서 이후 메시지들은 메시지큐에 들어가지 않을 것으로 보입니다.
: 그렇게 되면 SimpleTrace의 AddTrace 메서드에서 할당한 메모리는 해제될 기회가 없겠지요.
:
: SimpleTrace[0]이 TForm1과 다른 스레드에 있을 때도 SimpleTrace 스레드의 처리속도에 따라
: 이러한 문제가 발생될 소지가 있을 것이구요.
:
:
: 이길남.HoPe 님이 쓰신 글 :
: : 안녕하세요. 아래와 같이 이벤트 로그 클래스를 구성하였습니다.
: :
: :
: : CSimpleTrace *SimpleTrace[5] = { NULL, NULL, NULL, NULL, NULL };
: : //---------------------------------------------------------------------------
: : // CSimpleTrace
: : // Date : 09.11.05
: : // Dev. : HoPe
: : //---------------------------------------------------------------------------
: : __fastcall CSimpleTrace::CSimpleTrace(String AFileName)
: : {
: : FFileName = AFileName;
: : FDirectory = ExtractFilePath(ParamStr(0)) + "TRACE LOG\\";
: : if(!DirectoryExists(FDirectory)) ForceDirectories(FDirectory);
: :
: : DeleteOldFiles(31);
: : FWindowHandle = AllocateHWnd(WndProc);
: : }
: : //---------------------------------------------------------------------------
: : __fastcall CSimpleTrace::~CSimpleTrace(void)
: : {
: : DeallocateHWnd(FWindowHandle);
: : }
: : //---------------------------------------------------------------------------
: :
: : void __fastcall CSimpleTrace::DeleteOldFiles(int ABeforeDay)
: : {
: : TSearchRec mSr;
: : if(FindFirst(FDirectory + "*.*", faAnyFile, mSr) == 0)
: : {
: : do
: : {
: : if(mSr.Name == ".") continue;
: : if(mSr.Name == "..") continue;
: : if(mSr.Attr == faDirectory) continue;
: :
: : if(Now() - ABeforeDay <= FileDateToDateTime(mSr.Time)) continue;
: : DeleteFile(AnsiString(FDirectory + mSr.Name).c_str());
: : }
: : while(!FindNext(mSr));
: : }
: : }
: : //---------------------------------------------------------------------------
: :
: : void __fastcall CSimpleTrace::WndProc(TMessage &Msg)
: : {
: : if(Msg.Msg == WM_USER + 1)
: : {
: : SaveString((char *)Msg.WParam, Msg.LParam);
: :
: : delete [] ((char *)Msg.WParam);
: :
: : // free((char *)Msg.WParam);
: : }
: : }
: : //---------------------------------------------------------------------------
: : void __fastcall CSimpleTrace::SaveString(char *AString, int ALength)
: : {
: : FILE *mFile = fopen(AnsiString(FDirectory + FFileName + ".INI").c_str(), "a+");
: : if(mFile)
: : {
: : try
: : {
: : fwrite(AString, sizeof(char), ALength, mFile);
: : }
: : __finally
: : {
: : fclose(mFile);
: : }
: : }
: : }
: : //---------------------------------------------------------------------------
: : void __fastcall CSimpleTrace::AddTrace(String AMessage)
: : {
: : int mLenght = AMessage.Length();
: : char *mChar = new char[mLenght + 1];
: : // char *mChar = (char *)malloc(mLenght + 1);
: :
: : mChar[mLenght] = '\n';
: : memcpy(mChar, AMessage.c_str(), sizeof(char) * mLenght);
: : PostMessage(FWindowHandle, WM_USER + 1, (unsigned int)mChar, mLenght + 1);
: : // free((char *)mChar);
: : }
: : //---------------------------------------------------------------------------
: :
: :
: : 하지만 아래 버튼 1번을 클릭하고 난 후, 메모리가 계속 증가만(첨부 파일 참조) 되고 줄어들지가 않습니다.
: : 이유를 찾을 수가 없습니다.
: :
: : 고수님들의 조언을 부탁드립니다. 수고하십시요.
: :
: :
: : __fastcall TForm1::TForm1(TComponent* Owner)
: : : TForm(Owner)
: : {
: : SimpleTrace[0] = new CSimpleTrace("INPUT");
: : }
: : //---------------------------------------------------------------------------
: :
: : void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
: : {
: : delete SimpleTrace[0];
: : }
: : //---------------------------------------------------------------------------
: : void __fastcall TForm1::Button1Click(TObject *Sender)
: : {
: : for(int i = 0; i < 1000000; i++)
: : {
: : SimpleTrace[0]->AddTrace(Edit1->Text);
: : }
: : }
: : //---------------------------------------------------------------------------
: :
