Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Fallo al intentar varios hilos simultaneos (https://www.clubdelphi.com/foros/showthread.php?t=88802)

jpgonzalez 03-08-2015 03:26:02

Fallo al intentar varios hilos simultaneos
 
Buenas noches, en este caso escribo para hacer una consulta acerca del uso de hilos, dado que con lo que he leido y probado me he hecho un terrible lio.
Según lo que entiendo, al crear un nuevo hilo de ejecución, podemos tener 2 tareas corriendo en simultaneo, por lo cual intente probar esto con el siguiente problema:
Mi prueba consiste en tener un formulario (FrmMain) que tiene un Edit.
Cada vez que se presiona la tecla ENTER en el Edit, se debe realizar una tarea, la cual puede tardar algunos segundos.
A la vez, puede suceder que se ingresen 2 ENTER en menos de un segundo.
Por lo cual si la tarea lanzada por el primer ENTER tardara 3 segundos, y se ingresa un nuevo ENTER antes que esta finalice, necesito poder lanzar esa segunda tarea en simultaneo para que no tenga que esperar a que la primera finalice.


Para probar esto, tengo creados el Hilo y el Form de la siguiente manera:
Código Delphi [-]
  TMyThread = class(TThread)
  private
       hilo: String;
  public
    constructor Create(CreateSuspended: boolean; hilo: string);
    procedure Execute; override;
  end;

  TFrmMain = class(TForm)
    Edit: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    LabelContador1: TLabel;
    LabelContador2: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure EditKeyPress(Sender: TObject; var Key: Char);

El codigo de el evento KeyPress es el siguiente:
Código Delphi [-]
procedure FrmMain.EditKeyPress(Sender: TObject;
  var Key: Char);
begin
   if (key = #13) then begin
      cantHilos:= cantHilos + 1;
      hilo:= TMyThread.create(true, IntToStr(canthilos));
      hilo.Execute;
      hilo.Terminate;
      FreeAndNil(hilo);
      cantHilos:= cantHilos - 1;
   end;
end;

Luego en el execute del hilo, lo que hago es realizar alguna tarea que tarde un poco de tiempo para que el hilo demore unos segundos, por eso puse un random.
Lo que hago es que si la cantidad de hilos es 1 hago un random hasta encontrar el 5, y sino hago un random hasta encontrar el 7.
Código Delphi [-]
procedure TMyThread.Execute;
var
   i, num: integer;
begin
   Randomize;
   num:=0;
   if (FrmMain.cantHilos = 1) then begin
      while (num <> 5) do begin
         num:= Random(20000);
         FrmMain.LabelContador1.Caption:= IntToStr(num);
         FrmMain.LabelContador1.repaint;
      end;
   end
   else begin
      while (num <> 7) do begin
         num:= Random(20000);
         FrmMain.LabelContador2.Caption:= IntToStr(num);
         FrmMain.LabelContador2.repaint;
      end;
   end;
end;

PRIMER KEYPRESS:
Al presionar el primer ENTER, el programa crea el primer hilo, la variable canthilos = 1.
Ingresa al codigo del Execute del hilo y se queda en el bucle del while hasta que el random sea 5.

SEGUNDO KEYPRESS:
Presiono nuevemente el ENTER para que se cree el segundo hilo antes de que finalice la ejecución del primero.
En este caso, el segundo hilo no se crea hasta que no finaliza el bloque de codigo del primer KEYPRESS, retrasando esta tarea.

O sea que con lo que tengo hecho, es lo mismo hacer la tarea en un hilo, que hacerla en el bloque del KeyPress, ya que de todas maneras se hace de a una tarea a la vez.
Espero haber sido claro, y poder ir clarificando de a poco este tema con los hilos.

AgustinOrtu 03-08-2015 06:32:28

Tenes dos problemas de concurrencia

1. No podes modificar como si nada variables globales dentro de un hilo
2. La VCL no es thread-safe. Es decir, no podes hacer directamente dentro de un hilo cosas como:

Código Delphi [-]
Label.Caption := 'abcd';

La solucion a tu problema es usar Synchronize. No quiero detenerme mucho en el Synchronize porque ya se ha hablado por los foros y no soy el mas indicado para explicarlo; pero basicamente lo que hace es, justamente sincronizar el MainThread de tu aplicacion con el thread en cuestion; si no tengo mal entendido esto es, detener el hilo principal (el message loop), ejecutar el codigo dentro del syncronize, y luego reanudar el hilo principal

Luego hay algunas cosas que no entiendo ya que no soy experto en el tema de Threads (busca en el sitio de Neftali o por el foro, hay temas en los que el responde muy bien o incluso en su sitio web)

Por ejemplo, no entiendo porque creas el hilo suspendido para luego en la siguiente ejecucion ejecutarlo; y luego la siguiente instruccion es un Terminate :confused:. El hilo deberia terminar solo. Y por ultimo otra cosa bastante util es que la clase TThread tiene una propiedad FreeOnTerminate que justamente libera los recursos solito cuando termina.

Otro punto interesante es que tambien dispones un evento para cuando el hilo termina (propiedad OnTerminate). Este evento es el mas adecuado para "recolectar" los resultados del trabajo terminado por el hilo, este es el momento en el cual deberias actualizar los controles o decrementar la cantidad de hilos (tu variable global CantHilos); Para esto ultimo no estoy seguro si es necesario o no el uso de Synchronize

Neftali [Germán.Estévez] 03-08-2015 12:37:16

AgustinOrtu está bastante bien encaminado en las cosas que te comenta.
Yo te recomendaría que antes de ponerte a codificar, revisaras o leyeras algo de documentación sobre hilos, ya que son muy potantes, pero hay que usarlos adecuadamente, para que no te den problemas.

Algunas cosas de las que aparecen en el hilo me hace pensar que estás probando sin tener claro lo que debes hacer, de ahí mi recomendación anterior.

(1) Básico usar sincronizacíon. Algutín te lo ha explicado. Revisa el método Syncronize y entiende para qué sirve. No puedes hacer esto dentro del hilo.
Código Delphi [-]
FrmMain.LabelContador2.repaint;

(2) La idea de un hilo, es justamente que tu programa lanza el hilo y la ejecución continua. Por eso podemos ejecutar varias tareas de forma simultánea, porque el programa no se queda bloqueado esperando que una tarea termine.
Por lo tanto el siguiente código no tiene sentido:

Código Delphi [-]
  hilo:= TMyThread.create(true, IntToStr(canthilos));  
  hilo.Execute;        (1)
  hilo.Terminate;
  FreeAndNil(hilo);

Creas el hilo, lo pones en marcha es inmediatamente después lo destruyes. :eek::eek:
Creo que piensas que tu código se va a detener en el punto (1) hasta que el hilo acabe. Y justamente lo que queremos y conseguimos con un hilo, es que la ejecución no se detenga en ese punto. La aplicación pone en marcha el hilo y continua.
Por lo tanto inmediatamente después de crearlo y ejecutarlo el programa continua con el resto de sentencias...

¿Cómo sabe la aplicación que el hilo ha acabado? Pues creo que Agustín también te ha dado la pista. Posees un evento OnTerminate.

Lo dicho. Te recomiendo que dediques un rato a leer sobre el tema y realices algunas pruebas sencillas.

Un saludo.

nlsgarcia 03-08-2015 17:20:25

jpgonzalez,

Cita:

Empezado por Neftali
...Te recomiendo que dediques un rato a leer sobre el tema y realices algunas pruebas sencillas...

:rolleyes:

Revisa esta información:
Espero sea útil :)

Nelson.

jpgonzalez 04-08-2015 15:46:52

Gracias a todos muchachos, lo de los labels lo habia hecho para ver a que hilo entraba, la idea es solamente hacer tareas de insercion en la BBDD,
Es correcto, recien comienzo a ver el tema de hilos, vamos a leer un poco mas.
Abrazo grande para todos!!!!


La franja horaria es GMT +2. Ahora son las 01:26:14.

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