Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Vida de un Thread! (https://www.clubdelphi.com/foros/showthread.php?t=85249)

Red_Leon 20-02-2014 14:33:20

Vida de un Thread!
 
Buenos días a todos!

Me preguntaba a ver si alguien me puede echar una mano. He estado buscando por hay y no he encontrado la respuesta y a ver si alguien me puede iluminar un poco en el tema.

He creado un hilo para sincronizar la base de datos del cliente en local con la del servidor, este hilo se estará en ejecución durante toda la vida del programa. El código básicamente es este:

Código Delphi [-]
TThreadSynch = class(TThread)
   private     
     status:TStatusSynch;
     newStatus:TStatusSynch;
   protected
     procedure Execute; override;
   public
     constructor Create(CreateSuspended:Boolean);
     procedure showStatus;
   end;   

constructor TThreadSynchronize.Create(CreateSuspended:Boolean); 
begin
   self.status:=ssInit;
   inherited Create(CreateSuspended);
   self.FreeOnTerminate:=true;
end;  

procedure TThreadSynchronize.Execute; 
begin
   while not Terminated do
   begin
       if Se ha conseguido conectar con el servidor then
       begin
         self.newStatus:=ssConnect;
         synchronize(showStatus);
         if Se debe actualizar la base de datos then
         begin
           self.newStatus:=ssSynchronizing;
           synchronize(showStatus);
           Sincronización de la base de datos
           self.newStatus:=ssConnect;
           synchronize(mostrarEstado);
         end;
       end
       else
       begin
         self.newStatus:=ssNoConnect;
         synchronize(mostrarEstado);
       end;
     {Se duerme el hilo 10 seg}
     sleep(10000);
   end;
   {Terminación del Hilo}
   self.Terminate; 
end;  

procedure TThreadSynchronize.mostrarEstado; 
begin
   if (self.status <> self.newStatus) then   
   begin
     self.status:=self.newStatus;
     Se muestra el estado de la conexión por pantalla;
   end;
end;

Vale, creo que en código no esta nada mal.

Desde un formulario creo este hilo, pero es la única referencia que hago al hilo.

Mi pregunta es, si yo no llamo a al hilo.Terminate, que no lo hago, ¿quien termina este hilo? ¿hasta cuando esta en ejecución?

Yo al cerrar la aplicación, veo como el hilo se termina, la aplicación no se queda bloqueada ni abierta ¿por qué?

Si cierro la aplicación mientras esta sincronizando la base de datos salta este error: "La operación no se puede realizar de forma asincrona" y a continación se cierra la aplicación, dejando la sincronización a medias.

Lo que realmente me gustaría es que la aplicación no se cerrase asta que la sincronización este terminada.

O que el hilo siguiera la ejecución aunque la aplicación estuviese cerrada.

¿Que sería lo mas recomendable y alguna idea de que hacer?

Muchas gracias de antemano.

Red_Leon

Neftali [Germán.Estévez] 20-02-2014 20:11:43

Cita:

Empezado por Red_Leon (Mensaje 472840)
Vale, creo que en código no esta nada mal.

Desde un formulario creo este hilo, pero es la única referencia que hago al hilo.

Mi pregunta es, si yo no llamo a al hilo.Terminate, que no lo hago, ¿quien termina este hilo? ¿hasta cuando esta en ejecución?

Yo al cerrar la aplicación, veo como el hilo se termina, la aplicación no se queda bloqueada ni abierta ¿por qué?

Si cierro la aplicación mientras esta sincronizando la base de datos salta este error: "La operación no se puede realizar de forma asincrona" y a continación se cierra la aplicación, dejando la sincronización a medias.

Lo que realmente me gustaría es que la aplicación no se cerrase asta que la sincronización este terminada.

O que el hilo siguiera la ejecución aunque la aplicación estuviese cerrada.

¿Que sería lo mas recomendable y alguna idea de que hacer?

Muchas gracias de antemano.

Antes de nada, sólo un comentario. Como has puesto pseudocódigo, no se acaba de ver cómo realizas la sincronización de la Base de Datos.
(a) Si la sincronización de la BD la haces con Synchonize piensa que todo ese trabajo se hace en el hilo principal, es decir, no aprovecha realmente el potencial del hilo.
(b) Si la sincronización de la BD la heces desde dentro del hilo, sin Synchronize, piensa que deberás definir conexión y componentes nuevos dentro del hilo, ya que estos no son thread-safe.

El hilo debería terminar cuando finalize su trabajo o cuando alguien se lo indique. Es decir puedes utilizar condiciones como estas en el hilo; Dependerá del trabajo que tenga que realizar y de si "acaba sólo" o no. Si no acaba por sí sólo, alguien (la aplicación principal) deberá llamar al Terminate.

* while not Terminated do begin
* while (not SQL.EOF) do begin
* while (condicion) do begin
* while (true) do begin

Al cerrar tu aplicación la variable del thread se destruirá y eso manda ejecutar de forma automática el Terminate. Revisa el destroy de la clase TThread. de ahí que el thread termine.

De todas formas no seria la manera más correcta de hacerlo, ya que si la aplicación se está cerrando (destruyéndose cosas) y el thread está sincronizando (por ejemplo) puedes tener errores. Para ello creo que deberías mirar la ayuda del método WaitFor.

nlsgarcia 20-02-2014 21:55:13

Red_Leon,

Cita:

Empezado por JULIPO
...He creado un hilo para sincronizar la base de datos del cliente en local con la del servidor...este hilo estará en ejecución durante toda la vida del programa...¿quien termina este hilo?...¿hasta cuando esta en ejecución?...¿Que sería lo mas recomendable y alguna idea de que hacer?...

Revisa este link:
Espero sea útil :)

Nelson.

Red_Leon 21-02-2014 10:50:21

Buenas señores,

Neftali, la sincronización de la base de datos la hago sin Synchronize, sino no me vale para nada como bien dices y es verdad si cierro la aplicación y lo pillo en medio de la sincronización es cuando me da el error de "La operación no se puede realizar de forma asincrona". Voy a buscar información sobre WaitFor. Lo que yo pensaba es que la aplicación no se podría cerrar mientras el hilo esta en ejecución, no que la aplicación destruye todos los hilos aunque esten en ejecución.

nlsgarcia, voy a mirarme ahora mismo los enlaces.

Voy a mirar todas estas cosas y os comento.

Muchas gracias por arrojarme un poco de luz sobre el tema, es la primera vez que utilizo los hilos para estos fines (tenia otros hilos, pero con fines mucho más acotados) y encima tengo que ir deprisa sin poder pararme mucho.

Mil Gracias!

Neftali [Germán.Estévez] 21-02-2014 15:24:12

Cita:

Empezado por Red_Leon (Mensaje 472883)
...Lo que yo pensaba es que la aplicación no se podría cerrar mientras el hilo esta en ejecución, no que la aplicación destruye todos los hilos aunque esten en ejecución.

Mírate el código del Destroy que te he comentado.


La franja horaria es GMT +2. Ahora son las 21:02:24.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi