Problemas con un Hilo

[aguml]

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:

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

#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:

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

#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:

#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?

[[escafandra]]

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

#include "HiloDBG.cpp"

Hecho esto compila y ejecuta perfectamente.


Saludos.

[aguml]

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.

[aguml]

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:

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?

[aguml]

Creo que tengo que hacer algo asi:

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:

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?

[[escafandra]]

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

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

#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);
}

#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.