Como detengo un Hilo

[Luis Castillo]

Hola colegas....

Tengo una forma que ejecuta una consuta por medio de un hilo.....debido a que los datos de la tabla pueden llegar a ser muy numerosos...

Pero quiero poner un boton que permita al usuario detener la busqueda....

Me podrian informar algo?

[delphi.com.ar]

¿El procedimiento que ejecuta el hilo lo has creado vos?... Lo normal sería ejecutar el método Terminate, pero para esto es necesario que el código que se este ejecutando "se preocupe" por verificar el estado de la variable FTerminated, y si esta es True, que cancele la ejecución!

http://www.clubdelphi.com/foros/showthread.php?t=25299

Saludos!

[Luis Castillo]

Pues .....si el procedimiento lo hice yo....

El hilo solo abre la consulta con unos parametros....y yo lo que hago es decier Query.open

Como es eso que el codigo se preocupe por la verificacion de la variable FTErminated. Porque creo que no es asi....

[delphi.com.ar]

Código Delphi [-]
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
 TMiThread = class(TThread)
  protected
    procedure Execute; override;
  end;

TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    FThread: TMiThread;
  public
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TMiThread }

procedure TMiThread.Execute;
begin
  repeat
    { Código en ejecución }
  until Terminated;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  { Le envía la señal para que el hilo termine correctamente }
  FThread.Terminate;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  { Mata el hilo forzosamente }
  TerminateThread(FThread.Handle, 0);
end;


procedure TForm1.FormCreate(Sender: TObject);
begin
  FThread := TMiThread.Create(True);
  FThread.FreeOnTerminate := True;
  FThread.Resume;
end;

end.

Si el hilo creó un DataSet, y lo matas abruptamente, el hilo no se encargará de cerrar y liberar este DataSet. Es mas, es muy posible que la consulta se siga ejecutando en el servidor. Solo imagina lo que puede producir que varios usuarios cancelen reiteradamente consultas de este tipo.
Yo analizaría si tu herramienta de conexión y tu servidor soportan consultas asincrónicas.

Saludos!

[Luis Castillo]

Huy....te agradezco esa explicacion tan detallada y precisa,....vamos a ver si puedo decirte algo...

En el Execute tu pones un procemiento que es el que toma el tiempo. Sin embargo mi proceso es solo este:

...
query.open
...

Creo que debo utilizar un hilo porque puede tener muchos registros. Si es asi, no puedo verificar Terminated como tu lo haces en el REPEAT ... UNTIL

NOTA...
yo estoy trabajando en Paradox.....y localmente...

Muchisimas gracias....

[delphi.com.ar]

Fíjate en mi explicación que hay dos formas de terminar un hilo, por las buenas con Terminate, y por las malas con TerminateThread. Vos estas buscando la segunda, yo no lo sugiero, pero bué!

[Ainbazter]

Tengo exactamente el mismo problema, ¿como lo resolvisteis finalmente?