🚀 go-pugleaf

Inside my thread, I thought I have clean up all memory already. BTW, I have
used Indy Component and write something into database as example code
following:

void __fastcall CMyThread::Execute(void)
{
  // Thread process
  //
  if (Terminated) return;

  try {
    try {
      AnsiString strHTML = http->Get(strURL);
      try {

          Synchronize(UpdateDatabase);
      } // Processes
      catch (...) {
      }
      ::Sleep(200);
    }
  }
  FreeOnTerminate = true;
  Terminate();
}


void __fastcall CMyThread::UpdateDatabase(void)
{
  int       iResult   = ERR_OK;
  TADOQuery *ADOQuery = new TADOQuery(NULL);

  try {
    // Assign needed properties to ADO
    //
    ADOQuery->ParamCheck       = false;
    ADOQuery->Prepared         = true;

    ADOQuery->ConnectionString = ""
    AnsiString strSQLString; = <Some SQL Statement>
    strSQLString =     ADOQuery->SQL->Clear();
    ADOQuery->SQL->Add(strSQLString);
    int iSuccess=ADOQuery->ExecSQL();
  }
  catch (...) {
  }
  delete ADOQuery;
  }
}

Sara T.

"JD" <nospam@nospam.com> wrote in message
news:40fcc3d3$1@newsgroups.borland.com...
>
> "Sara T." <sarana@infoquest.co.th> wrote:
> > [...] In fact the line number 1: has been called a lot of
> > times and I thought that it should be OK if it is a thread
> > with using FreeOnTerminate.
>
> As Gambit pointed out, there's nothing wrong with what little
> code you posted. If you're sure that it's the thread that's
> eating memory, then you need to post a more complete sample.
>
> ~ JD
>