Información sobre hilos de ejecución

[danielmj]

Hola, quiero mirarme como funcionan y como se crean los hilos de ejecución, he encontrado cosas en internet, pero no me aclaran mucho, ¿sabeis alguna explicación completa y digamos que didactica para comprender como funcionan y como se crean? La verdad es que tengo varios programas hechos por mi, que practicamente están terminados pero consumen muchos recursos y claro llega un momento en que se cuelgan, y quería retomarlos y meter los procesos mas pesados dentro de hilos. un saludo.

[Ñuño Martínez]

No está mal que quieras aprender a usar hilos de ejecución, pero lo primero que debes tener en cuenta es que no siempre es mejor. Es decir, dices que tu programa se cuelga porque usa muchos recursos: hacer que funcione en otro hilo no tiene por qué solucionar el problema. A veces (casi siempre, en mi experiencia) la solución es otra (mejor uso de la memoria, por ejemplo).

Pero como digo, no está mal que quieras aprender a usar hilos porque son útiles en muchas ocasiones, así que ahí va.

Lo más simple es usar la clase TThread. Es bastante simple: hay que extender la clase TThread para añadirle las propiedades (datos) que necesite, e implementar el método "Execute", que es el código que se ejecutará en paralelo. Aquí tienes un ejemplo sencillito para iniciarte. Es algo viejo (de 2008), pero dudo que haya cambiado mucho la cosa. También tienes esta conversación en la que se habla del tema.

Espero que te ayude a empezar.

[[nlsgarcia]]

danielmj,

...Información sobre hilos de ejecución...¿sabéis alguna explicación completa y digamos que didáctica para comprender como funcionan y como se crean?...

Revisa este link:

Aclaracion de Threads

Espero sea útil

Nelson.

[danielmj]

buenas,

gracias voy a revisar a ver que tal se me da, lo que he leido hasta ahora se me escapa un poco pero bueno, lo he leido mas o menos por encima sin detenerme mucho.
Un saludo.

[danielmj]

Hola,

Bueno ya he empezado a experimentar con hilos, he implementado un hilo a una aplicacion que ya tenia hecha y he conseguido que corra, pero en un momento dado, no siempre el mismo, me tira este error...


Sé que el error no se da en el mismo momento siempre, por una barra de progreso, a veces se rellena mas y otras menos, antes de tirar el error. También he agregado al programa la unidad SynchedThreads, que si no me equivoco (y si estoy en un error que alguien me corrija) es para sincronizar la vcl, creo.

El error me marca la linea 246, y esa linea tiene este codigo:

Código Delphi [-]
procedure TThread1.Execute;
var
begin
...
form1.button4.enabled:= true;
...
end;

Por cierto, como veis el mensaje de error sale en español, esto es por que es lazarus, sé que hay una seccion para lazarus en el foro, pero entre que empece el hilo sobre delphi y que el código es igual, me pareció acertado ponerlo aquí, si está mal que algún administrador lo mueva.

En fin ¿alguien sabe este error a que obedece?
Un saludo y gracias.

[Ñuño Martínez]

Empezado por danielmj

Hola,

Bueno ya he empezado a experimentar con hilos, he implementado un hilo a una aplicacion que ya tenia hecha y he conseguido que corra, pero en un momento dado, no siempre el mismo, me tira este error...

(...)

Pregunto: ¿Has hecho programas de prueba, más simples, antes?

Ten en cuenta que una aplicación que funcione con hilos necesita una planificación diferente que las aplicaciones que no los usan. Principalmente, en el acceso a memoria. Es posible que en algún punto uno de los hilos intente acceder a alguna variable u objeto de otro hilo diferente sin realizar la necesaria comprobación de sincronización, lo que puede ser la razón por la que salte el error en momentos deferentes. Lo más complicado es cuando hay ventanas/formularios implicados. Hay que estar seguro de en qué hilo se crea para asegurarse de hacer la sincronización adecuada de ser necesario.

[Neftali [Germán.Estévez]]

Empezado por danielmj

Código Delphi [-]
procedure TThread1.Execute;
var
begin
...
form1.button4.enabled:= true;
...
end;

Bueno, viendo esa línea te diría que es normal el error.
Hay que tener claro que la VCL de por sí, no es "Thread-safe". Eso se traduce en que desde dentro de un hilo no puedes acceder "alegremente" a componentes y código que tengas fuera de él.

Es decir, desde dentro del hilo, NO PUEDES llamar "directamente" a un botón del formulario (Form1.Button4.Enabled).

Lo ideal es que los hilos se utilicen para relizar procesos que no inviolucren elementos visuales, como son formularios, componentes,...
Está claro que en algunos casos debemos modificarlos, por ejemplo, una barra de progreso para indicar el estado, labels, o si es el caso, el botón4 del form1.
Si esto es necesario, está contemplado y para ello está el método Synchronize.

Como te he dicho la VCL no es "thread-safe" por lo tanto tenemos que asegurarnos que cuendo accedemos desde el thread a "elementos externos" lo hagamos de forma exclusiva. Para eso sirve el Synchronize.

Aquí tienes algún ejemplo:

Y aquí en mi página un par más:
http://neftali.clubdelphi.com/?p=146
http://neftali.clubdelphi.com/?p=149

Me centro en estos ultimos para explicarte lo que más arriba apunto.

En el primero de los ejemplo, hay varios componentes del fiormulario que se deben modificar (similar a lo que haces tú con el edit).
Verás que en el thread NO SE LLAMA directamente a este código:

Código Delphi [-]
  // Incrementar un progressbar del formulario
  pb.Position := (pb.Position + FStep) MOD 100;

O a este otro:

Código Delphi [-]
  // Cambiar el color de un panel del formulario
  FColor := RGB(Random(255), Random(255), Random(255));
  pnb.Color := FColor;

Hay que colocarlos en un procedimiento y llamarlos con el método anterior; Así el código resultante es algo así:

Código Delphi [-]
procedure TPanelColorThread.ChangeColor;
begin
  FColor := RGB(Random(255), Random(255), Random(255));
  pnb.Color := FColor;
end;

...

  // La llamada
  while true do begin
    Synchronize(ChangeColor);
  end;

Y en el caso del progressbar, es algo similar.