🚀 go-pugleaf

thanks all, I used Sleep(5000) inside my thread exeute and it worked, now I
am trying to define the thread in other form of my program so I can control
the start and terminate of my thread, so I declared in the .h file of the
program form


private: // User declarations

       TIMConnection * MySampleThread;


and in the CPP file



__fastcall TMainScreen::TMainScreen(TComponent* Owner)
        : TForm(Owner)
{
    MySampleThread = new TIMConnection;
}
//--------------------------------------------------------------------------
-
void __fastcall TMainScreen::Button1Click(TObject *Sender)
{
    MySampleThread->Resume(); // Make the thread start
}
//--------------------------------------------------------------------------
-
void __fastcall TMainScreen::Button2Click(TObject *Sender)
{

    MySampleThread->Close(); // Call the Terminate() Method to stop the
thread by calling the Close function inside the thread
}
//--------------------------------------------------------------------------
-

and I can't make it work .....any suggestions what I am doing wrong


"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();
> }
>
>