Hola Juan Carlos, muchas gracias por lo de Junior, me has alegrado el día
.
Lamentablemente no tengo un ejemplo sobre threads, pero
mira en tu carpeta delphi\demos\threads, allí tienes uno.
La filosofía es mas o menos así:
-Defines la Clase TMihilo = Class (Thread)
- Defines al menos el método Create, si usas el estandard de un Thread, te pide una variable booleana Suspended, Si la pones a true,quiere decir que al crear el Thread, se quedará "suspendido" y tienes que llamar al método Execute para poner en marcha el proceso largo.
- Defines el método Execute, que es donde tendrás todo el proceso "gordo", definiendo una condición de salida
if Terminated then Exit, esto significa que si el Thread ha terminado (que salga de ese bucle inmediatamente). Puede ocurrir que el usuario pulse la X para cerrar la ventana, pero los threads se estan ejecutando, así que en el evento OnClose de tu ventana pones Mihilo.Terminated := true; que obligará a finalizar el Thread.
- Si dentro del Thread necesitas actualizar un Label del Form, no puedes hacerlo con un simple
Form2.Label.Caption := 'bla blah' precisamente porque es un hilo independiente y puede estar totalmente desincronizado con el Form1; para hacerlo, tienes que crearte un procedure dentro del hilo, en ese ejemplo se llama
DoVisualSwap y dentro de esa rutina si llamas a
Form2.Label.Caption := 'bla blah' cuando quieras actualizar el label llamas al procedimiento con
syncronize(DoVisualSwap). Esto es así por definición de los Threads, no tiene más explicación
.
Si te surgen algunas dudas, puedes comentarlas aquí.
Saludos