Foros Club Delphi - Problemas con un Hilo

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- C++ Builder (https://www.clubdelphi.com/foros/forumdisplay.php?f=13)

- - Problemas con un Hilo (https://www.clubdelphi.com/foros/showthread.php?t=85360)

Problemas con un Hilo

Hola, tengo un problema con un hilo que he creado. Paso a explicarme.

Primero cree el proyecto y le puse un boton para que ejecute mi hilo:

Unit1.h:

Código:

//---------------------------------------------------------------------------



#include <vcl.h>

#include <Clipbrd.hpp>



#pragma hdrstop



#include "Unit1.h"

#include "Unit2.h"

#include "HiloDBG.cpp"

//---------------------------------------------------------------------------

#pragma package(smart_init)

#pragma link "DbgCLS"

#pragma resource "*.dfm"



TFormPrincipal *FormPrincipal;

HDebugger *HiloDebugger;



__fastcall TFormPrincipal::TFormPrincipal(TComponent* Owner)

        : TForm(Owner)

{

}

//---------------------------------------------------------------------------



void __fastcall TFormPrincipal::ButtonDesencriptarClick(TObject *Sender)

{

        //Creamos el hilo del debugger

        HiloDebugger = new HDebugger(false);

}

//---------------------------------------------------------------------------

Luego en el HiloDBG.cpp tengo esto:

Código:

//---------------------------------------------------------------------------



#include <vcl.h>

#pragma hdrstop



#include "HiloDBG.h"

#include "Unit1.h"



#pragma package(smart_init)



//---------------------------------------------------------------------------



//   Important: Methods and properties of objects in VCL can only be

//   used in a method called using Synchronize, for example:

//

//      Synchronize(UpdateCaption);

//

//   where UpdateCaption could look like:

//

//      void __fastcall HDebugger::UpdateCaption()

//      {

//        Form1->Caption = "Updated in a thread";

//      }

//---------------------------------------------------------------------------



__fastcall HDebugger::HDebugger(bool CreateSuspended)

        : TThread(CreateSuspended)

{

}

//---------------------------------------------------------------------------



void __fastcall HDebugger::Execute()

{

        //---- Place thread code here ----

        Synchronize(ActualizarDatos);

        //Synchronize((TThreadMethod)&ActualizarDatos);

}

//---------------------------------------------------------------------------



void __fastcall HDebugger::ActualizarDatos(void)

{

        FormPrincipal->Caption = "Actualizado desde el hilo";

}

y el HiloDBG.h:

Código:

#ifndef HiloDBGH

#define HiloDBGH

//---------------------------------------------------------------------------

#include <Classes.hpp>

//---------------------------------------------------------------------------

class HDebugger : public TThread

{            

private:

protected:

        void __fastcall ActualizarDatos(void);

        void __fastcall Execute();

public:

        __fastcall HDebugger(bool CreateSuspended);

};

//---------------------------------------------------------------------------

#endif

El problema es que al intentar ejecutarse la linea que cambia el Caption del form pues da la siguiente excepcion:

¿Alguna idea de que puede estar pasando?

Incluye HiloDBG en el proyecto, no en el código, es decir: elimina esta línea:

Código:

#include "HiloDBG.cpp"

Hecho esto compila y ejecuta perfectamente.

Saludos.

Amigo si hago eso me salen estos errores:
[C++ Error] Unit1.cpp(16): E2141 Declaration syntax error
[C++ Error] Unit1.cpp(69): E2451 Undefined symbol 'HiloDebugger'

en esta linea:
HDebugger *HiloDebugger;

y mas errores en cualquier parte del codigo donde haga referencia a HiloDebugger.

vale, solucionado, tenias razon pero me faltó poner el #include "HiloDBG.h", solo eso.
Ahora me encuentro con otros problemas.
En el hilo tengo un bucle que puede ser muy largo por lo que he creado dos botones, uno para pausar o continuar y otro para abortar y que termine el hilo.
Hice esto:

Código:

void __fastcall TFormPrincipal::ButtonAbortarClick(TObject *Sender)

{

        //Terminamos el hilo del debugger

        if(HiloDebugger != NULL)

        {

                HiloDebugger->Terminate();

                delete HiloDebugger;

        }



        //Habilitamos el boton para crear el hilo y deshabilitamos el de terminar el hilo

        ButtonDesencriptar->Enabled = true;

        ButtonEncriptar->Enabled = true;

        ButtonAbortar->Enabled = false;

        ButtonPausar->Enabled = false;

        EditDesencriptado->Enabled = true;

        EditEncriptado->Enabled = true;

        CheckBoxConfirmar->Enabled = true;

        ComboBoxRango->Enabled = true;

        FormPrincipal->RadioGroupOrigen->Enabled = true;

}

//---------------------------------------------------------------------------



void __fastcall TFormPrincipal::ButtonPausarClick(TObject *Sender)

{

        if(ButtonPausar->Caption == "Pausar")

        {

                //Aqui entra cuando pulsamos en Pausar y pausamos el hilo

                ButtonPausar->Caption = "Continuar";

                if(HiloDebugger != NULL)

                        HiloDebugger->Suspend();

        }

        else

        {

                //Aqui entra cuando pulsamos en Continuar y hacemos que el hilo siga

                ButtonPausar->Caption = "Continuar";

                if(HiloDebugger != NULL)

                        HiloDebugger->Resume();

        }

}

//---------------------------------------------------------------------------

¿Que hago mal?

Creo que tengo que hacer algo asi:

Código:

void __fastcall TFormPrincipal::FormClose(TObject *Sender, TCloseAction &Action)

{

        //Aqui entramos al cerrar la aplicacion y, si el hilo está, lo terminamos

        //para poder salir sin problemas

        if(HiloDebugger != NULL)

        {

                HiloDebugger->Suspended = true;

                HiloDebugger->Terminate();

                delete HiloDebugger;

        }

}

//---------------------------------------------------------------------------



void __fastcall TFormPrincipal::ButtonAbortarClick(TObject *Sender)

{

        //Terminamos el hilo del debugger

        if(HiloDebugger != NULL)

        {

                HiloDebugger->Suspended = true;

                HiloDebugger->Terminate();

                delete HiloDebugger;

        }



        //Habilitamos el boton para crear el hilo y deshabilitamos el de terminar el hilo

        ButtonDesencriptar->Enabled = true;

        ButtonEncriptar->Enabled = true;

        ButtonAbortar->Enabled = false;

        ButtonPausar->Enabled = false;

        EditDesencriptado->Enabled = true;

        EditEncriptado->Enabled = true;

        CheckBoxConfirmar->Enabled = true;

        ComboBoxRango->Enabled = true;

        FormPrincipal->RadioGroupOrigen->Enabled = true;

}

Y dentro del bucle que está en una funcion que es ejecutada por ActualizarDatos y que no es miembro de la clase HDebugger tengo esto:

Código:

if(HDebugger->Suspended == true)

                        HDebugger->Suspend();

Pero esto ultimo no se lo traga ¿como hago referencia a esa variable dentro de esta funcion?
En Unit1.cpp puedo hacer HiloDebugger->Suspended sin problemas porque creo el hilo con "new" pero en HiloDBG.cpp no puedo y necesito acceder a esa propiedad desde la funcion externa. ¿tengo que crear mi funcion como miembro de la clase para acceder?

Cambia
#include "HiloDBG.cpp" por #include "HiloDBG.h"

Añade el archivo HiloDBG.cpp desde Peoyect -> Add to proyect -> HiloDBG.cpp

Código:

#include <vcl.h>

#pragma hdrstop



#include "Unit1.h"

#include "HiloDBG.h"



//---------------------------------------------------------------------------

#pragma package(smart_init)

#pragma resource "*.dfm"

TFormPrincipal *FormPrincipal;

HDebugger *HiloDebugger;

//---------------------------------------------------------------------------

__fastcall TFormPrincipal::TFormPrincipal(TComponent* Owner)

        : TForm(Owner)

{

}

//---------------------------------------------------------------------------



void __fastcall TFormPrincipal::Button1Click(TObject *Sender)

{

   HiloDebugger = new HDebugger(false);

}

Código:

#include <vcl.h>

#pragma hdrstop



#include "HiloDBG.h"

#include "Unit1.h"

#pragma package(smart_init)



__fastcall HDebugger::HDebugger(bool CreateSuspended)

        : TThread(CreateSuspended)

{

}



void __fastcall HDebugger::Execute()

{

  Synchronize(ActualizarDatos);

}



void __fastcall HDebugger::ActualizarDatos(void)

{

   FormPrincipal->Caption = "Actualizado desde el hilo";

}

Subo el proyecto.

Saludos.

Eso ya me funciona pero el problema ahora es que si pongo:

Código:

//---------------------------------------------------------------------------



#include <vcl.h>

#pragma hdrstop



#include "HiloDBG.h"

#include "Unit1.h"



#pragma package(smart_init)



//---------------------------------------------------------------------------



//   Important: Methods and properties of objects in VCL can only be

//   used in a method called using Synchronize, for example:

//

//      Synchronize(UpdateCaption);

//

//   where UpdateCaption could look like:

//

//      void __fastcall HDebugger::UpdateCaption()

//      {

//        Form1->Caption = "Updated in a thread";

//      }

//---------------------------------------------------------------------------



__fastcall HDebugger::HDebugger(bool CreateSuspended)

        : TThread(CreateSuspended)

{

        FreeOnTerminate = true;

        Suspended = false;

}

//---------------------------------------------------------------------------



void __fastcall HDebugger::Execute()

{

        //---- Place thread code here ----

        Synchronize(ActualizarDatos);

        //Synchronize((TThreadMethod)&ActualizarDatos);

}

//---------------------------------------------------------------------------



void __fastcall HDebugger::ActualizarDatos(void)

{

       int x = 0;

       while(x != 1){x = 0}

}

Y luego intento salir del hilo o pausarlo pues no responde e incluso se me queda congelada la ventana al intentar pausar el hilo o terminarlo con Terminated() o Suspend().
He intentado esto:

Código:

//Terminamos el hilo del debugger

        if(HiloDebugger != NULL)

        {

                HiloDebugger->Terminate();

                delete HiloDebugger;

        }

y tambien con esto:

Código:

//Terminamos el hilo del debugger

        if(HiloDebugger != NULL)

        {

                HiloDebugger->Suspended = true;

                HiloDebugger->Terminate();

                delete HiloDebugger;

        }

y poniendo en el bucle esto:

Código:

if(HiloDebugger->Suspended == true)

                        HiloDebugger->Suspend();

Pero sigue congelandose y no sale ni pausa el hilo y ademas nunca llega a entrar en el condicional o eso creo.

Es que tu hilo no tiene bucle por lo tanto termina solo tras ejecutar la función Execute. Sólo te queda liberarlo (Free) si no pones FreeOnTerminate = true en el constructor, en cuyo caso se libera sólo.

Saludos.

bueno si que tiene bucle lo que pasa es que el codigo es bastante largo y para hacerlo mas sencillo lo puse asi pero dentro de ActualizarDatos hay un do while que es para fuerza bruta y puede ser eterno por lo que es muy importante poder pausarlo y pararlo.
De momento he conseguido hacerlo de una manera algo chapucera ya que he creado una variable global de tipo AnsiString y cuando doy a pausar guardo la cadena en dicha variable global y luego doy a Terminated el valor true y tengo como condicion para salir del bucle que si Terminated == true salga y luego al dar a continuar pues recupero el valor de la variable global y sigo por ahi. La cosa se ha liado bastante pero funciona aunque me gustaria hacerlo de la forma mas correcta ya que de este modo al pausar lo que hago realmente es terminar el hilo y al continuar lo vuelvo a crear.

Esa variable global si es una chapuza. Tu buclq debe tener la condición de terminar si Terminated == ture:

Código:

void __fastcall TMyThread::Execute()

{

   while (!Terminated){

     //........

   }

}

Mira a ver si tienes mal diseñada tu lógica en el bucle y si es infinito...

Saludos.

lo que pasa es que el bucle no está dentro de la funcion del hilo sino que ciertamente esta en una funcion la cual es ejecutada por la funcion del hilo por lo que el Terminated asi no lo puedo usar y ademas esa funcion no pensé meterla nunca en un hilo por lo que para eso uso otra variable y ahora quiero rediseñar todo para dejarlo correctamente ya que ahora todo el codigo de dicha funcion solo se ejecuta desde la funcion del hilo asi que creo que lo mejor es olvidarme de la funcion y meter ese codigo dentro de actualizardatos y cambiar todo para optimizar. Ya te diré lo que sea cuando le meta mano.