🚀 go-pugleaf

I'm not sure why you are triggering a TTimer this way.  If you are after a
thread that processes a task after a given period of time check out my
tutorials page.  I have just the class for you.  Look for TWaitEventThread.

-- 
Malcolm Smith
MJ Freelancing- http://www.mjfreelancing.com
Software Protection for C++Builder
Borland Technology Partner


"Paul E." <paulepst69@aol.com> wrote in message
news:3f2daa27@newsgroups.borland.com...
> I've developed an application that must process few function every 1-5
> seconds, unfortunately when I run the application it is very slow and
> dramatically use a lot of the system resources, so I thought of making a
> thread that can handle this time based operation in my application as the
> code below shows, but still the application is very slow and it uses a lot
> of the system resources...can anyone give me any idea on how to speed up
the
> process...optimize my thread....and is my code correct or I am missing
> anything...???  thanks all for your help
>
> void __fastcall TIMConnection::Execute()
> {
>     while(Terminated==false)
>     {
>         Synchronize(RUNME1);
>         Close();
>     }
> }
>
//--------------------------------------------------------------------------
> -
> void __fastcall TIMConnection::Close()
> {   // Suspend the thread
>      Suspend();
> }
>
//--------------------------------------------------------------------------
> -
> void __fastcall TIMConnection::RUNME(void)
> {
>     Mytimer = new TTimer(NULL);
>     Mytimer->Interval = 5000;
>     Mytimer->Enabled = true;
>     Mytimer->OnTimer=MytimerTimer;
> }
>
//--------------------------------------------------------------------------
> -
> void __fastcall TIMConnection::MytimerTimer(TObject *Sender)
> {
>    //Call my list of functions
>    ...
>    ...
>    ...
>    ...
>    ...
>    ...
>
> }
>
//--------------------------------------------------------------------------
> -
>
>
//--------------------------------------------------------------------------
> -
>
//--------------------------------------------------------------------------
> -
> in thread header
>
//--------------------------------------------------------------------------
> -
>
//--------------------------------------------------------------------------
> -
>
//--------------------------------------------------------------------------
> -
>
> class TIMConnection : public TThread
> {
> private:
>
>         TTimer *Mytimer;
>         void __fastcall MytimerTimer(TObject *Sender);
>
>
>
>
>
//--------------------------------------------------------------------------
> -
> Calling the thread code
>
//--------------------------------------------------------------------------
> -
>
//--------------------------------------------------------------------------
> -
>
//--------------------------------------------------------------------------
> -
> void __fastcall TMainScreen::Button2Click(TObject *Sender)
> {
>     TIMConnection* MySampleThread = new TIMConnection();
>       MySampleThread->Resume();
> }
>
>