Los hilos se destruyen??

[dtomeysoto]

Amigos, le escribo esta vez porque tengo la siguiente duda y parto desde la base que todo lo que uno crea en un programa debe de destruirlo cuando ya no lo necesite. Estoy acostumbrado a que cada vez que hago un

A := TA.Create();

.......

luego hago un

A.Free;

Entonces la duda me surge en una aplicación que estoy realizando y en la que utilizo hilos. Días atrás hice algunas preguntas porque era nuevo en este mundo y ya logré que me funcionara pero me ha quedado la siguiente duda: los hilos que estoy creando en mi programa una vez terminados su ejecución debo de destruirlos? y de que forma?

Revisando en los ejemplos de Delphi 7, específicamente el de hilos veo que hacen esto:

  with TBubbleSort.Create(BubbleSortBox, BubbleSortArray) do
    OnTerminate := ThreadDone;
  with TSelectionSort.Create(SelectionSortBox, SelectionSortArray) do
    OnTerminate := ThreadDone;
  with TQuickSort.Create(QuickSortBox, QuickSortArray) do
    OnTerminate := ThreadDone;

y yo hice algo similar pero no me doy cuenta donde es que estos hilos se destruyen, solo veo en redefinición del método Sort una línea como esta:

if Terminated then Exit;

en otros ejemplos de un colega de aquí vi que ponía dentro del Create del hilo la siguiente línea:

FreeOnTerminate := True;

y entonces les pregunto cómo proceder para que una vez que lo que yo ponga en el método Execute de cada uno de los hilos que cree mi aplicación termine, como no los voy a necesitar más se liberen los recursos que se asignaron cuando el hilo se creó.

Gracias por su atención.

[[Chris]]

"FreeOnTerminate" es una propiedad de la clase TThread, de la cual se implementan todos los Threas es una aplicación, incluyendo los que tu crees. Esta propieda indica si el Thread se destruye automáticamente luego de realizar su trabajo. Si la asignas a "False", entonces tú tendrás que encargarte manualmente de destruir el thread que hayas creado.

El código:

if Terminated then ...

sólo debería ser utilizada dentro del código interno del thread. No debes asignarla manualmente, o sea:

Código Delphi [-]
mi_thread.terminated := True;  // nunca hagas esto, además creo que no podrás.

Para asignar esta propiedad utiliza el procedimiento "Terminate;" en tu thread principal u otro.

Pueda ser que hayas quedado un poco confundido con respecto a lo anterior. Ahora te explico con un ejemplo. Imaginate que has creado un Thread que recorre todos los registros de una tabla, y deseas darle al usuario la posibilidad de cancelar el proceso, pues puede durar mucho. Entonces creas un Thread con el siguiente código para recorrer la tabla:

Código Delphi [-]
procedure TMi_thread.Execute;
begin
while not La_Tabla.Eof do
begin
  // ...
  Next;
end;
end;

Sin embargo, lo que se desea es que el usuario pueda cancelar el proceso en el momento que desee. Si lo hacer con un mi_thread.Free; seguro que tendrás problemas. Entonces los que hacemos es verificar la propiedad "Terminated" antes de ir al siguiente registro, con lo cual el código anterior qudaría así:

Código Delphi [-]
procedure TMi_thread.Execute;
begin
while not La_Tabla.Eof do
begin
  // ...
  // verificamos que el usuario ya no quiere esperar a que termine este proceso
  if self.terminated then
    Break; // salimos del bucle While ... do y el Thread termina su ejecución.
  Next;
end;
end;

El código anterior es seguro para trabajar con threads o hilos. Solo faltará agregar código al botón "Cancelar" que verá el usuario. Podría ser un código tan simple como este:

Código Delphi [-]
mi_thread.terminate;

Saludos.