Problemas con un Hilo

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

[aguml]

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

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

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

//Terminamos el hilo del debugger
        if(HiloDebugger != NULL)
        {
                HiloDebugger->Terminate();
                delete HiloDebugger;
        }

y tambien con esto:

//Terminamos el hilo del debugger
        if(HiloDebugger != NULL)
        {
                HiloDebugger->Suspended = true;
                HiloDebugger->Terminate();
                delete HiloDebugger;
        }

y poniendo en el bucle esto:

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.

[[escafandra]]

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.

[aguml]

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.

[[escafandra]]

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

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.

[aguml]

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.