No termina ejecución Programa principal al usar un Thread
 

Hola amigos !

He implementado en mi formulario principal un Thread de la siguiente forma :

Código Delphi [-]
type
  TMainform = class(TForm)
  ....
  TMyThread = class(TThread)
  protected
    procedure Execute; override;
  public
  end;

var
  Mainform : TMainform;
 
implementation
 
uses ....

{$R *.nfm}
 
var
  MyThread : TMyThread;

procedure TMainform.Button1Click(Sender: TObject);
begin
  MyThread := TMyThread.Create(False);
  MyThread.FreeOnTerminate := True;
end;
 
procedure TMainform.Button2Click(Sender: TObject);
begin
  MyThread.Terminate;
end;

procedure TMyThread.Execute;
begin
 
  repeat
    ....
    Sleep(600000);  // 10 Minutes
 
  until Terminated;
 
end;

Lo que me pasa es que al intentar terminar mi aplicación, no se cierra la aplicación.

Si lo hago desde el propio Delphi, compilo y ejecuto la áplicación, al intentar terminarla se me queda el Delphi en modo 'de ejecución' y tengo que pulsar el botón Reset para terminar la aplicación.

Si ejecuto la aplicación desde Windows, parece que se cierra, pero algo queda abierto ya que si intento recompilar, el propio Delphi me dice que el EXE de la aplicación está en uso y no se puede escribir.

Qué estoy haciendo mal ?

Gracias y saludos a todos. :)

y porque no terminas la hebra antes de cerrar tu aplicacion?

Lo tengo previsto de esa manera, antes de cerrar la aplicación, terminar el Thread.

Pero al no funcionarme, lo hice para que pudiera comprobar el proceso con dos botones, uno para comenzar el Thread, y otro para terminarlo. Ni siquiera así parece ser que lo hace correctamente, ya que al intentar salir de la aplicación principal, después de haber pulsado el boton que me termina el Thread, se queda 'colgada' la aplicación principal y en modo debug del Delphi tengo que pulsar el 'Reset' para terminar la aplicación principal.

Ya he detectado el origen del problema.

Resulta que al hacer un Terminate del Thread, realmente no lo está 'cancelando' o 'abortando' en el proceso que se encuentre en ese momento, que precisamente es el Sleep(600000) en mi caso (10 minutos).

He bajado el tiempo de Sleep a 30 segundos, y si paro el proceso y salgo de la aplicación, al cabo de máximo 30 segundos se termina correctamente la aplicación principal.

Investigaré por ese punto y ya informaré. :rolleyes:

para evitar ese cuelgue quizás puedas editar tu hebra de la siguiente forma:

Código Delphi [-]
type
  TMainform = class(TForm)
  ....
  TMyThread = class(TThread)
  private
    ejecutar: integer; 
  protected
    procedure Execute; override;
  public
  end;

....

Código Delphi [-]

procedure TMyThread.Execute;
begin
 
  repeat
    ....
    if ejecutar=10 then
    begin
       //aqui pones tu código 
       ejecutar := 0;  
    end
    else
       ejecutar := ejecutar +1; 
    Sleep(6000);  // 1 Minute
 
  until Terminated;
 
end;

Gracias por tu ayuda.

Ya conseguí solucionar el problema. La solución completa está aqui.

Al final incluí un TTimer y hago uso de la propiedad Tag de dicho Timer para comprobar si debo ejecutar el Thread.