Como detengo un Hilo

[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é!

[Luis Castillo]

ok .....ya lo vi.

Pero tambien es claro lo que yo hago....sobre que el proceso es solo una linea: abrir una consulta. Y obviamente quiero hacer esto de la mejor manera....


TU QUE HARIAS.....

Muchas gracias.....

PD: ya que tu estas conectado....no sepuede ir a un chat?

[delphi.com.ar]

Empezado por Luis Castillo

TU QUE HARIAS.....

Lo que sugerí anteriormente:

Empezado por Delphi.com.ar

Yo analizaría si tu herramienta de conexión y tu servidor soportan consultas asincrónicas.

Desconozco Paradox como para poder seguir guiándote.

Saludos!

[jachguate]

Empezado por Luis Castillo

PD: ya que tu estas conectado....no sepuede ir a un chat?

Esto se convertiría en un servicio técnico, del que el resto de la comunidad no obtendría ningún beneficio. Te invito a leer la guia de estilo (link en mi firma) y recordar que nuestra regla general es: Un tema público se mantendrá público. De esa manera, hemos logrado una base de datos de mas de 170,000 mensajes, entre los foros actuales y los antiguos (sin tomar en cuenta unos 25,000 que, según recuerdo, se perdieron de los mas antiguos. )

Saludos.