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.